例36：打开文件读出文件内容

1.建立一个EXE工程，在主窗体上放一个按钮，如图32。

                    图32

1. 在按钮的单击事件中输入代码：

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))

         Print ValInt(s)

         Line Input #1, s

      Loop

      Print ValInt(s)

      Close #1

   End If

End Sub

1. 在本工程的release文件夹中建立一个文本文件输入：

1099

1199

4300

运行程序，在打开的文件选择框中选择步骤4中建立的文件，程序将其内容输出在开发界面下方的控制台里