在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程:Private Sub Command1_Click()CommonDialog1.Flags=vbOFNHideReadOnlyCommonDialog1.Filter="All Files(*.*)|*.*|Text Files(*.txt)|*.txtCommonDialog1.FiherIndex=1CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是A.All Files(*.*)B.Text Files(*.*)C.*.txtD.All Files(*.*)|Text Files(*.*)
在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程:
Private Sub Command1_Click()
CommonDialog1.Flags=vbOFNHideReadOnly
CommonDialog1.Filter="All Files(*.*)|*.*|Text Files(*.txt)|*.txt
CommonDialog1.FiherIndex=1
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub
程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是
A.All Files(*.*)
B.Text Files(*.*)
C.*.txt
D.All Files(*.*)|Text Files(*.*)
相关考题:
在窗体上画一个通用对话框,其名称为 CommonDialog1 ,然后画一个命令按钮,并编写如下事件过程:Private Sub Command1_Click()CommonDialog1.Filter="All Files(*.*)|*.*Text Files"_"(*.txt)|*.txt| Executable Files(*.exe)|*.exe"CommonDialog1.Filterindex=3CommonDialog1.Show OpenMsgBox CommonDialog1.FileNameEnd Sub程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是( )。 A.All Files(*.*)B.Text files(*.txt)C.Executable Files(*.ext)D.不确定
( 31 )在窗体上画一个通用对话框,其名称为 CommonDialog1 ,然后画一个命令按钮,并编写如下事件过程:Private Sub Command1_Click()CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" _"(*.txt)|*.txt| Executable Files(*.exe)|*.exe"CommonDialog1.FilterIndex = 3CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub程序运行后,单击命令按钮,将显示一个 “ 打开 ” 对话框,此时在 “ 文件类型 ” 框中显示的是A ) All Files(*.*)B ) Text Files(*.txt)C ) Executable Files(*.exe)D ) 不确定
在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程。Private Sub Command1_Click()CommonDialog1.Flags=vbOFNHideReadOnlyCommonDialog1.Filter= "All Files(*.*) |*.*|Text Files(*.txt)|*.txtCommonDialog1.FilterIndex=1CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub程序运行后,单击命令按钮,将显示一个"打开"对话框,此时在"文件类型"框中显示的是A.All Files(*.*)B.Text Files(*.txt)C.Batch Files(*.bat)D.All Files(*.*) |Text Files(*.txt)
在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如下事件过程: Private Sub Commandl_click() CommonDialogl.Friter="AllFiles(*.*)|*.*|Text Files"_ "(*.txt)|*.txt|Executable Files(*.exe)|*.exe" CommonDialog1.FilterIndex=3 CommonDA.AllFries(*.*)B.TextFiles(*.txt)C.Executable Fries(*.exe)D.不确定
在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个名为Command1的命令按钮,并编写如下事件过程: Private Sub Command1_ Click() CommonDialogFlags= cd10FNHideReadOnly CommonDialogFilter= "All Files (*.*) |*.*|Text File" _ "(*.txt) |*.txt | Batch Files (*.bat)| *.bat" CommonDialogFilterIndex = 2 CommonDialogShowOpen MsgBox CommonDialogFileName End Sub程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是______。A.All Files (*.*)B.Text Files(*.txt)C.Batch Files (*.bat)D.不确定
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:Private Sub Command1_Click()a = 12345Print Format$(a, "000.00")End Sub程序运行后,单击命令按钮,窗体上显示的是( )。A.123.45B.12345.00C.12345D.00123.45