[填空题]在窗体上添加一个文本框控件Info，画一个命令按钮，当单击命令按钮显示“保存文件”对话框，设置该对话框可用于保存文本文件(默认)和可执行文件(．exe)，然后在文本控件中显示保存的文件名。　　Private Sub Command1_Click( ) 　　　　CommonDialog1．Filter=【】　　　　CommonDialog1．FilterIndex=【】　　　　CommonDialog1．ShowSave 　　　　Info．Text=【】　　End Sub

更多"在窗体上添加一个文本框控件Info，画一个命令按钮，当单击命令按钮显示"的相关试题:

[填空题]在窗体上添加一个文本框控件Info，画一个命令按钮，当单击命令按钮显示“保存文件”对话框，设置该对话框可用于保存文本文件(默认)和可执行文件(．exe)，然后在文本控件中显示保存的文件名。　　Private Sub Command1_Click( ) 　　　　CommonDialog1．Filter= 【13】　　　　CommonDialog1．FilterIndex= 【14】　　　　CommonDialog1．ShowSave 　　　　Info．Text= 【15】　　End Sub

查看答案

[填空题]设窗体上有一个名称为CD1的通用对话框、一个名称为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。
Private Sub Command1_Click（　）
CD1.Filter="文本文件|*.txt|Word文档|*.doc"
CD1.FilterIndex=1
CD1.ShowOpen
If CD1.FileName＜＞"" Then
Open (9) For Input As #1
Line Input #1, Ch$
Close #1
Text1.Text= (10)
End If
End Sub

查看答案

[填空题]设窗体上有一个名为CD1的通用对话框、一个名为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示“打开”文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。
Private Sub Command1_Click（　）
CD1.Filter="文本文件|*.txt|Word文档|*.doc"
CD1.FilterIndex=1
CD1.ShowOpen
If CD1.FileName＜＞""Then
Open______For Input As #1
Line Input #1,ch$
Close #1
Text1.Text=______
End If
End Sub

查看答案

[单项选择]下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按Cancel 键退出对话框，则（）。　　Private Sub Command1_Click( ) 　　CommonDialogl．CancelError=True 　　CommonDialogl．Flags=cdlCFEffects Or cdlDFBotb 　　CommonDialogl．Action=4 　　CommonDialogl．ShowFont 　　Text1.Font.Name=CommonDialogl．FontName 　　Text1．Font．Size=CommonDialogl．FontSize 　　Text1．Font．Bold=CommonDialog1．FontBold 　　Text1．Font．Italic=CommonDialog1．FontItalic 　　Text1．Font．Underline=CommonDialog1．FontUnderline 　　Text1．FontStrikethru=CommonDialog1．FontStrikethru 　　Text1．ForeColor=CommonDialog1．Color 　End Sub
A. Text1的字体不发生变化
B. Text1的字体发生变化
C. Text1的字体和颜色发生变化
D. 程序出错!

查看答案

[单项选择]下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按Cancel键退出对话框，则　Private Sub Command1_Click( )　　CommonDialogl．CancelError=True　　CommonDialogl．Flags=cdlCFEffects Or cdlDFBotb　　CommonDialogl．Action=4　　CommonDialogl．ShowFont　　Text1.Font.Name=CommonDialogl．FontName　　Text1．Font．Size=CommonDialogl．FontSize　　Text1．Font．Bold=CommonDialog1．FontBold　　Text1．Font．Italic=CommonDialog1．FontItalic　　Text1．Font．Underline=CommonDialog1．FontUnderline　　Text1．FontStrikethru=CommonDialog1．FontStrikethru　　Text1．ForeColor=CommonDialog1．Color　End Sub
A. Text1的字体不发生变化
B. Text1的字体发生变化
C. Text1的字体和颜色发生变化
D. 程序出错!

查看答案

[单项选择]在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如
Private Sub Command1_Click（　）
CommonDialogl. Flags = vbOFNHideReadOnly
CommonDialogl. Filter =" All Files(*.*)|*. * |Text Files(*.txt)|*. txt
CommonDialogl. FilterIndex = 1
CommonDialogl. ShowOpen
MsgBox CommonDialogl. FileName
End Sub
程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是
A. All Files(*.*)
B. Text Files(*.txt)
C. Batch Files(*.bat)
D. All Files(*. *)

查看答案

[填空题]在窗体上画一个通用对话框，其名称为CommandDialog1，再画一个命令按钮，其名称为Command1。程序运行时，单击命令按钮，在对话框内只允许显示文本文件。将以下程序补充完整。 Private Sub Command1_Click（　） CommandDialog1．Filter= 【15】 CommandDialog1．ShowOpen End Sub

查看答案

[单项选择]在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如下事件过程。
Private Sub Command1_Click（　）
CommonDialog1.Flags=vbOFNHideReadOnly
CommonDialog1.Filter="All Files(*.*)|*.*|Text Files(*.txt)|*.txt
CommonDialog1.FilterIndex=1
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub
程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是
A. All Files(*.*)
B. Text Files(*.txt)
C. *.txt
D. All Files(*.*)

查看答案

我来回答:

提交