在窗体上画一个通用对话框,其名称为CommandDialog1,再画一个命令按钮,其名称为Command1。程序运行时,单击命令按钮,在对话框内只允许显示文本文件。将以下程序补充完整。 Private Sub Command1_Click() CommandDialog1.Filter=【 】 CommandDialog1.ShowOpen End Sub
查看答案
编写一过程将C盘中的Config.sys文件内容读出,并在文本框中显示出来。在窗体Form1上建立一个文本框Text1,将其MultiLine属性设置为True,ScrollBars属性设置为3-Both。给定的程序不完整,请将程序补充完整。 Option Explicit Private Sub Form. _Click() Dim ch1 As String,fn As Integer Dim Str As String fn=【 】 Open "C:\Config.sys" For Input As fn Do While Not EOF(【 】) Line Input fn, ch1 Str = Str + chl+ vbCrLf Loop Text1.Text =【 】 End Sub