第一次用VB写程序,有很多错,请大家指点
我想实现将一个.INI文件内容读取出来,并将内容写到一个TEXTBOX里,但是运行后TEXTBOX里显示不出来
代码如下:
Private Sub Form_Load()
Dim filename As String
Dim StrArr() As String
Dim TmpStr() As String
Dim WritStr As String
Dim I As Long
filename = "d:\msitest\cfgchk\v10523\N011.ini"
StrArr = ReadFile(filename)
End Sub
Private Sub Text1_Change()
Text1.Text = StrArr
End Sub
Public Function ReadFile(filename As String) As String()
Dim TempFile As Long
Dim LoadBytes() As ByteTempFile = FreeFile
Open filename For Binary As #TempFile
ReDim LoadBytes(1 To LOF(TempFile)) As Byte
Get #TempFile, , LoadBytes
Close TempFile
End Function
请大家帮忙指点下,谢谢!!!新手没有多少分送了,不好意思.
我想实现将一个.INI文件内容读取出来,并将内容写到一个TEXTBOX里,但是运行后TEXTBOX里显示不出来
代码如下:
Private Sub Form_Load()
Dim filename As String
Dim StrArr() As String
Dim TmpStr() As String
Dim WritStr As String
Dim I As Long
filename = "d:\msitest\cfgchk\v10523\N011.ini"
StrArr = ReadFile(filename)
End Sub
Private Sub Text1_Change()
Text1.Text = StrArr
End Sub
Public Function ReadFile(filename As String) As String()
Dim TempFile As Long
Dim LoadBytes() As ByteTempFile = FreeFile
Open filename For Binary As #TempFile
ReDim LoadBytes(1 To LOF(TempFile)) As Byte
Get #TempFile, , LoadBytes
Close TempFile
End Function
请大家帮忙指点下,谢谢!!!新手没有多少分送了,不好意思.
Public Function ReadFile(filename As String) As String()
Dim TempFile As Long
Dim LoadBytes() As Byte TempFile = FreeFile
Open filename For Binary As #TempFile
ReDim LoadBytes(1 To LOF(TempFile)) As Byte
Get #TempFile, , LoadBytes
Close TempFile
ReadFile=LoadBytes '加上此句End Function