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

( 8 ) 设窗体上有一个名称为 CD1 的通用对话框 , 一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮。程序执行时,单击 Command1 按钮,则显示打开文件对话框,操作者从中选择一个文本文件,并单击对话框上的 “ 打开 ” 按钮后 , 则可打开该文本文件 , 并读入一行文本 , 显示在 Text1 中 。 下面是实现此功能的事件过程,请填空。

Private Sub Command1_Click()

CD1.Filter =" 文本文件 1*.txt(Word 文档 )*.doc"

CD1.Filterinder = 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


相关考题:

在窗体上有若干控件,其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是( )。A.TabStopB.EnabledC.VisibleD.Tablndex

在窗体上有若干控件,其中有一个名称为Text1文本框。影响Text1的Tab顺序的属性是 ______。A.TabIndexB.TabStopC.EnabledD.Visible

在窗体上有若干控件,其中有一个名称为Text1文本框。影响Text1的Tab顺序的属性是 ______ 。A.TabStopB.EnabledC.VisibleD.Tablndex

在窗体上有一个名称为CD1的通用对话框和一个名称为Comrnand1的命令按钮。要求单击命令按钮时,打开一个保存文件的通用对话框。该窗口的标题为“保存”,缺省文件名为“ABC”, 在“文件类型”栏中显示*.txt。则能够满足上述要求的稗序县( )。\

在窗体上有若干控件,其中有一个名称为,Text1的文本框。影响Text1的Tab顺序的属性是________。A.TabStopB.EnabledC.VisibleD.TabIndex

在窗体上有若干控件,其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是A. TabStopB.EnabledC.VisibleD.TabIndex

在窗体上有若干控件,其中有一个名称为Text1文本框。影响Text1的Tab顺序的属性是 ______。A.TabStopB.EnabledC.VisibleD.TabIndex

在窗体上有若干控件,其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是______。A.TabStopB.EnabledC.VisibleD.TabIndex

在窗体上有若干控件,其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是( )。A.TabStopB.EnabledC.VisibleD.TabIndex