Sub Form1_Command1_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)
Dim s As String
Dim 文件 As CWSTR = FF_OpenFileDialog(hWndForm,_
"打开机器码文件",_
"",_
"",_
"全部(*.*)|*.*|所有文件(*.*)|*.*",_
"",_
OFN_EXPLORER Or OFN_NOCHANGEDIR Or OFN_CREATEPROMPT,_
False)
If Len(文件) Then
'Print 文件
Open 文件 For Input As #1
Line Input #1, s
Do Until(EOF(1))
Text1.Text = Text1.Text & s & Chr(13) & Chr(10)
Line Input #1, s
Loop
Close #1
End If