例43:打开文件对话框示例

1. 新建一个EXE工程，在窗体上放一个文本框，设多行为允许状态，再加一个按钮。
2. 在按钮的单击事件中输入代码：

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

1. 运行程序，单击按钮，选择一个文本文件就可以将其内容显示在多行文本框内。如图39。