Question

请问在VB中怎样实现点击按钮以后弹出系统内的打开文件对话框，然后打开一个文本文档

并在text中显示文档的所有内容显示出来，急！！！

Answer 1

Private Declare Function icePub_readFileToText Lib "icePubDll.dll" (ByVal strFilename As String, ByVal strText As String, ByVal maxLen As Integer) As Integer

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

Answer 2

Private Sub command1_click()
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