91驱动器、目录和文件列表框 驱动器、目录和文件列表框示例 □回区 Sub drvDrive Changeo dirDirectory. Path drvDrive Drive→s顾彐 End sub Active setup Lo ARCHES. BMP ARGYLE BMP HCOMMAND &P. EXE Sub dirDirectory_ Changeo ICONFIG ARTGALRY INI filFile Path dir Directory Path ASPIZHLP SIS AUDDRIVEHLP End sub AUDDRTVE INI 口 sorites aLmOra8 9 所有A5 Sub Form Load( Sub filFile Click() tem=“所有文件(**)” cboType AddItem Item +Space(20-Len(Item))+ tem="窗体文件(*FRM) End sub cboType Additem Item+ Space(20-Len(item))+*.FRI tem="位图文件(*BMP)" Sub filFile_DblClick() cboType. Addltem Item+ Space(20-Len(Item))+ *.BMP" cboType. ListIndex=2 End sub End sub Sub cboType Click() filFile Pattern= Mid(cboType. Text, 21) End sub 例9,1示例程序9.1 驱动器、目录和文件列表框 Sub drvDrive_Change() dirDirectory.Path = drvDrive.Drive End Sub Sub dirDirectory_Change() filFile.Path = dirDirectory.Path End Sub Sub Form_Load() Item = “所有文件(*.*)” cboType.AddItem Item + Space(20 - Len(Item)) + "*.*" Item = "窗体文件(*.FRM)" cboType.AddItem Item + Space(20 - Len(Item)) + "*.FRM" Item = "位图文件(*.BMP)" cboType.AddItem Item + Space(20 - Len(Item)) + "*.BMP" cboType.ListIndex = 2 End Sub Sub cboType_Click() filFile.Pattern = Mid(cboType.Text, 21) End Sub Sub filFile_Click( ) ┆ End Sub Sub filFile_DblClick( ) ┆ End Sub 例9.1示例程序