VB6.0中CommonDialog控件怎么添加使用

要在VB6.0中使用CommonDialog控件，可以按照以下步骤进行操作：

1. 打开VB6.0的设计界面，选择“工具箱”中的“组件”选项。

2. 在“组件”对话框中，找到并勾选“Microsoft Common Dialog Control 6.0”（或类似的名称）。

3. 点击“确定”按钮，该控件将出现在工具箱中。

4. 在设计界面上，双击CommonDialog控件，该控件将出现在表单上。

5. 单击表单上的CommonDialog控件，然后在属性窗口中设置控件的属性，例如Title（标题）、Filter（文件过滤器）等。

6. 可以通过代码来调用CommonDialog控件的方法和事件。例如，可以使用CommonDialog控件的ShowOpen方法来打开文件选择对话框，使用CommonDialog控件的FileName属性来获取用户选择的文件名。

以下是一个使用CommonDialog控件的示例代码：

Private Sub cmdOpen_Click()
' 调用打开文件对话框
CommonDialog1.ShowOpen
' 获取用户选择的文件名
If CommonDialog1.FileName <> "" Then
' 打开文件
Open CommonDialog1.FileName For Input As #1
' 读取文件内容
TextBox1.Text = Input$(LOF(1), #1)
' 关闭文件
Close #1
End If
End Sub
Private Sub cmdSave_Click()
' 调用保存文件对话框
CommonDialog1.ShowSave
' 获取用户选择的文件名
If CommonDialog1.FileName <> "" Then
' 打开文件
Open CommonDialog1.FileName For Output As #1
' 写入文件内容
Print #1, TextBox1.Text
' 关闭文件
Close #1
End If
End Sub

在上述示例中，cmdOpen_Click事件处理程序中调用了CommonDialog控件的ShowOpen方法来打开文件选择对话框，并通过CommonDialog控件的FileName属性获取用户选择的文件名。然后，通过Open语句打开文件，使用Input$函数读取文件内容，并将内容显示在TextBox控件中。

cmdSave_Click事件处理程序中同样调用了CommonDialog控件的ShowSave方法来打开保存文件对话框，并通过CommonDialog控件的FileName属性获取用户选择的文件名。然后，通过Open语句打开文件，使用Print语句将TextBox控件中的内容写入文件中。