例44：存盘对话框的使用

1. 建立一个EXE工程，在默认窗体上放一个文本框（设为可多行），和一个按钮。如图40。

                 图40

1. 在按钮的单击事件中添加代码：

Dim 文件 As CWSTR = FF_SaveFileDialog(hWndForm,_

      "打开机器码文件",_

      "",_

      "",_

      "全部(*.*)|*.*|所有文件(*.*)|*.*",_

      "",_

      OFN_EXPLORER Or OFN_NOCHANGEDIR Or OFN_CREATEPROMPT,_

      False)

   If Len(文件) Then

      'Print 文件

      Open 文件 For Output As #1

      Print #1,Text1.text

         Close #1

   End If

End Sub