Private Sub Command1_Click（） Image1.Picture=LoadPicture（Text1.Text）＇当单击“确定”时，文本框中的文件在图像框中显示出来 End Sub －－－－－－ Private Sub Command2_Click（）＇当单击“退出”时，弹出是否退出系统对话框 Dim exi As String exi=MsgBox（“您真的想退出吗？”，vbYesNo＋vbQuestion＋vbDefaultButton1，“退出”） If exi=vbYes Then End End If End Sub －－－－－－ Private Sub Dir1_Change（） File1.Path=Dir1＇当目录发生变化时，文件列表框中的文件也相应变化 End Sub －－－－－－ Private Sub Drive1_Change（） Dir1.Path=Drive1＇当驱动器变化时，目录列表也相应变化 End Sub －－－－－－ Private Sub File1_Click() Text1.Text=File1.Path＋“\”＋File1＇用来在文本框中显示被选中的图形名 End Sub －－－－－－ Private Sub File1_DblClick（） Image1.Picture=LoadPicture（File1.Path＋“\”＋File1）＇当双击文件列表中的文件时,文件在图像框中显示出来 End Sub －－－－－－ Private Sub Form_Load（） Command1.Enabled=False＇在未选择图形文件时“确定”按钮不可用 File1.Pattern=“＊.bmp；＊.jpg；＊.ico；＊.cur”＇在文件列表框中显示扩展名为.BMP、.JPG、.ICO、.CUR的文件 End Sub －－－－－－ Private Sub Text1_Change() Command1.Enabled=True＇当文本框中的内容变化时使“确定”按钮可用 End Sub
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
