填空题

在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个名称为Command1的命令按钮，并编写如下事件过程： Private Sub Command1_ Click() CommonDialog1. Flags = cd10FNHideReadOnly CommonDialog1. Filter= "All Files (.) ｜. ｜Text Files" & "(.txt ｜.txt｜Batch Files (.bat)｜.bat)" CommonDialog1. FilterIndex = 1 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是；如果在对话框中选择D盘temp 目录下的te1.txt 文件，然后单击“确定”按钮，则在信息框中显示的提示信息是。

【参考答案】

All Files(*.*) D:\temp\te1.txt

<上一题目录下一题>

热门试题

填空题

在窗体上画一个名称为CD1的通用对话框，一个名称为Text1的文本框和一个名称为 C1的命令按钮。程序运行后，如果单击C1命令按钮，则弹出打开文件对话框，该对话框的标题是“打开文件”，此时如果单击对话框上的“打开”按钮，则把选中的文件读到内存，并在Text1中显示出来。下面给出了C1的Click事件过程。请填空。Private Sub C1_ Click()Dim n As LongCD1 ______=“打开文件”CD1. FileName = CD1 ______= “所有文件｜*.* ｜文本文件｜*.txt ｜Word 文档｜*.doc CD1. FilterIndex = 2CD1.If CD1. FileName ＜＞ ThenOpen ______ For ______ As #1n = LOF(1)Text1. Text = Input (n, #1)Close ______End IfEnd Sub

填空题

在窗体上画一个名为Text1的文本框，然后建立一个弹出式菜单，菜单名称为 Textformat，包含“宋体”、“黑体”、“隶书”等3个菜单项，其名称分别为font1、font2和font3，分别用来使Text1中的文字用相应的字体显示。程序运行后，如果用鼠标右键单击文本框，则弹出此菜单。要求：在弹出的菜单中只显示与Text1中字体不同的其他两种字体的菜单项。例如，假定文本框种显示的字体是“宋体”，则弹出的菜单中只有“黑体”和“隶书”两个菜单项(如下图所示)。请填空。Private Sub font1_ Click()Text1. FontName = “宋体”End SubPrivate Sub font2 Click()Text1. FontName = “黑体”End SubPrivate Sub font3 Click()Text1. FontName = “隶书”End SubPrivate Sub Form_ MouseDown (Button As Integer, Shift As Integer, _X As Single, Y As Single)If ______ ThenIf Text1. FontName =“宋体” ThenFont1. Visible =Font2. Visible = TrueFont3. Visible = TrueElseIf Text1. FontName= ______ ThenFont1. Visible = TrueFont2. Visible = FalseFont3. visible = TrueElseIf Text1. FontName = ______ ThenFont1. Visible = TrueFont2. Visible = TrueFont3. Visible = FalseEnd If______ TextformatEnd IfEnd Sub

相关试题

在窗体上画一个名称为Text1的文本框，一个...