Dim strFilename As String
Dim a2 As Integer
Dim strText As String
CommonDialog1.Filter = "*.txt|*.txt|All(*.*)|*.*"
CommonDialog1.Action = 1
If CommonDialog1.FileName <> "" Then
strFilename = CommonDialog1.FileName
strText = Space(1024 + 1)
a2 = icePub_readFileToText(strFilename, strText, 1024)
Text1.Text = strText
End If
下载新版：
http://icese.net/VC/icePubDll.rar追问
显示 "*.txt|*.txt|All(*.*)|*.*"
为无效外部过程， 可以输出到list里吗？还有读取是在单击按钮事件以后发生
CommonDialog1是一个标准控件，需要手动添加。把从Dim开始的所有语句放到按钮事件里即可
追问我把text换成了listbox，代码如下，请问怎样来让文本显示的就如同文档内的格式一样，一行是一行
List1.AddItem strTex
看到追问请加我QQ244825467
Dim a2 As Integer
Dim i As Integer
Dim strResult As String
strResult = Space(1024)
strText = "(char *sourceStr,int number,char *strFenge,char *strSubResult)"
'赋值例子而已，从文件里读即可
i = 0
a2 = 0
While a2 = 0
a2 = icePub_getFormatString(strText, i, ",", strResult)
' a2 = icePub_getFormatString(strText, i, VbCrLf, strResult)
'用VbCrLf做为分隔串即可一行一行的取
If a2 = 0 Then
List1.AddItem strResult
End If
i = i + 1
Wend
用上边下载连接重新下新版dll
Text1.Text = " "
Dim nline As String
Open "D:\T1.txt" For Input As #1
Do Until EOF(1)
Line Input #1, nline '循环 每次读取一行
Text1.Text = Text1.Text & nline & Chr(13) + Chr(10)
Loop
End Sub
VB里怎么实现按一个按钮弹出“打开”对话框,并且复制选中文件地址到文本...
上面代码中cd1是common dialog控件，添加方法：在vb6中单击菜单 工程-->部件，在部件对话框中选择microsoft common dialog control6.0 确定
请问怎么用VB实现点击一个按钮弹出一个对话框
Private Sub Command1_Click()MsgBox "因为你长的不够帅，所以执行了非法操作， " + Chr(13) + " " + Chr(13) + "此程序即将关闭，" + Chr(10) + " " + Chr(13) + "如果有问题，请与供应商联系。", 19, "系统信息"End Sub ...
在VB中怎么用代码弹出输入对话框
1、首先，打开“易语言”，然后选择“Windows窗口程序”选项，如下图所示，然后进入下一步。2、其次，完成上述步骤后，将编辑框、按钮和常用对话框从基本组件栏拖放到程序中，如下图所示，然后进入下一步。3、接着，完成上述步骤后，单击以选中“通用对话框”，然后在左侧的属性列中看到“过滤器”。根...
VB怎样设置点击一个按钮后弹出另一个窗口
要新建一个窗口 form2在那个按钮上双击，然后输入Private Sub command1_click1()form2.Show End Sub就可以了
请问VB中如何点击按键后能弹出类似列表的对话框,列表只需可关闭或确定...
可以利用msgbox 实现，也可以通过另外的窗体上画出表格实现 方法一，利用msgbox：Private Sub Command1_Click()Dim a As Long, b As Long, c As LongMsgBox "┌────┬────┬────┐" & vbCrLf _ & "│ 库存1 │ 库存2 │ 库存3 │" & vbCrLf _ & "├────...
如何使VB中点一下按键会弹出汉字,即点击command的按钮可以在text的空...
定义一个变量，如：dim a as ……这样好让你输出到textbox的数据可以从别处获得。如：a = text2.text Private Sub Command1_Click()text1.text = a '如果想用对话框输出的话就用以下：msgbox"a",64,"提示！"end sub
vb中怎么编写 单击命令按钮,则窗体显示文本框内的内容?
1、首先，双击窗体空白处进入代码窗口。2、然后我们在事件中找到Click事件。3、这个时候开始编写代码测试【Print "我是Click单击属性！"】。4、然我们开始运行测试。5、启动后，我们在窗体空白处单击。6、这个时候我们将可以看到测试的效果。
VB怎么实现在文本框输入文件名“文件1”,点击“打开”按钮,就调用“程...
Private Sub Command1_Click()'可以自行加入判断程序1和文件1是否存在的语句,如下:'If Dir(app.path & "程序1.exe")="" or Dir("D:\\" & Trim(Text1.Text))="" Then Msgbox "文件不存在!"Shell "程序1.exe " & Trim(Text1.text),vbNormal End Sub ...
VB怎样设置点击一个按钮后弹出另一个窗口
首先要添加两个窗体，假设第一个窗体名为Form1，第二个窗体名为Form2。在Form1窗体中添加个按钮Command1。按钮单击事件的代码为：Private Sub Command1_Click()Form2.Show\/\/用show方法加载并且显示名为Form2的窗体 End Sub show 方法后面省略了两个参数即Form2.Show 0或Form2.Show 1此参数可缺省。
用vb写程序:“打开文件”“保存文件”“字体”“颜色”“结束”按钮,弹...
CommonDialog 控件（“打开”、“另存为”对话框）示例 下例显示“打开”对话框然后在信息框中显示所选的文件名：（仅供参考，任何打印、字体、颜色代码请参考VISUAL STUDIO6.0的MSDN6.0中的相关代码进行修改和编写。）Private Sub Command1_Click() ' 设置“CancelError”为 True CommonDialog1....
