更多"改变驱动器列表框的Drive属性值将引发【 】事件。"的相关试题:
[填空题]改变驱动器列表框的Drive属性值将引发卫士事件。
[填空题]改变驱动器列表框的Drive属性值将引发【 】事件。
[填空题]改变驱动器列表框的Drive属性值将引发 【12】 事件。
[填空题]窗体中有一组文件系统控件,分别是驱动器列表框drive1、目录列表框dir1和文件列表框file1,在它们下面有一个图片框pic1。要求选择一个bmp文件,即单击文件列表框中的某个文件时,将该文件显示在图片框中。请在空白处填入适当的内容,将程序补充完整。
Option Explicit
Private Sub File1_Click( )
Dim fn As String
If Len(Dir1.Path)=3 Then
Fn=Dir1.Pach+File1.FileName
Else
Fn=Dir1.Path & "/"&______
End if
Pic1.AutoSize=True:Pic1.ScaleMode=vbPixels
Pic1.Picture=______
End Sub
Private Sub Form Load( )
File1.FileName="*.bmp"
End Sub
Private Sub Dir1_Change( )
File1.Path=Dir1.Path
End Sub
Private Sub Drive1_Change( )
Dir1.Path=Drive1.Drive
End Sub
[填空题]在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框,其名称分别为Drive1、Dir1和File1。为了使它们同步操作,必须触发Drive1_Change( )事件和Dir1_Change( )事件,在这两个事件中执行的语句分别是 (8) 和 (9) 。
[填空题]窗体上已有名称分别为Drive1、Dir1、File1的驱动器列表框、目录列表框和文件列表框,且有一个名称为Text1的文本框。以下程序的功能是:将指定位置中扩展名为".txt"的文件显示在File1中,如果双击File1中的某个文件,则在Text1中显示该文件的内容。请填空。
Private Sub Form_Load( )
File1.Pattern= (13)
End Sub
Private Sub Drive1_Change( )
Dir1.Path=Drive1.Drive
End Sub
Private Sub Dir1_Change( )
File1.Path=Dir1.Path
End Sub
Private Sub File1_DblClick( )
Dim S As String*1
If Right(File1.Path,1)="/"Then
f_name=File1.Path+Filel.FileName
Else
f_name=Filel.Path+"/"+Filel.FileName
End If
Open f_name (14) As#1
Text1.Text=" "
Do While (15)
s=Input(1,#1)
Text1, Text=Text1.Text+S
Loop
Close#1
End Sub
[填空题]设窗体中已经加入了文件列表框(File1)、目录列表框(Dir1)、驱动器列表框(Drive1),完成下列程序使这三个控件可以同步变化。
Private Sub Dir1_Change( )
______
End Sub
Private Sub File1_Click( )
MsgBox File 1.FileName
End Sub