在窗体上加上一个文本控件PCSTextBox,画一个命令按钮,当单击命令按钮的时候将显示 “打开文件”对话框,设置该对话框只用于打开文本文件,然后在文本控件中显示打开的文件名。请填空。   Private Sub Command1_Click()     

admin2009-01-15  27

问题 在窗体上加上一个文本控件PCSTextBox,画一个命令按钮,当单击命令按钮的时候将显示 “打开文件”对话框,设置该对话框只用于打开文本文件,然后在文本控件中显示打开的文件名。请填空。
  Private Sub Command1_Click()
    CommonDialog1.Filter=【  】
    CommonDialog1.ShowOpen
    PCSTextBox.Text=【  】
  End Sub

选项

答案Text Files(*.txt)|*.Txt , CommonDialog1.FileName

解析 要设置通用对话框只用于打开文本文件,需要设置通用对话框的Filter属性值,在这里我们应该填写的是"Text Files(*.txt)| *.txt";在使用了对话框控件的 ShowOpen后出现的打开文件对话框中的文件类型只有Text Files(*.txt)|*.txt,选择了需要打开的文本文件后,应该让文件的文件名显示在文本框中,因此需要将通用对话框中选择的文件赋给文本控件,即将对话框的FileName属性值赋给文本框的Text属性。
转载请注明原文地址:https://kaotiyun.com/show/WY2p777K
0

最新回复(0)