Private Sub command1_click()
Dim TempFile As Long
Dim LoadBytes() As Byte
TempFile = FreeFile
Open "c:\1.txt" For Binary As #TempFile
ReDim LoadBytes(1 To LOF(TempFile)) As Byte
Get #TempFile, , LoadBytes
Close TempFile
Text1.Text = StrConv(LoadBytes, vbUnicode)
End Sub
用雅奇990,不用写代码,自动编程
这是神经调节药物,不是镇静剂,没有明显副作用.