Caption屬性為“圖片瀏覽器”,BorderStyle屬性為3,即表單大小不可更改。
2.將Label1的屬性設置為“當前驅動器”,Label2的屬性設置為“當前目錄”,Label3的屬性設置為“當前文件”;Label4的屬性是“當前圖像”,Label5的屬性是“當前文件路徑”。
3.將Text1的Text屬性設置為空。
4.將Image1的Stretch屬性設置為True,也就是說,可以縮放加載的圖形以適合圖像框的大小。
5.將Command1的Caption屬性設置為OK,將Command2的Caption屬性設置為Exit。
具體的程序源代碼如下:
私有子命令1_Click()
image 1 . picture = load picture(text 1 . text)單擊“確定”時,文本框中的文件將顯示在圖像框中。
末端接頭
-
Private Sub Command2_Click()'點擊“退出”時,彈出是否退出系統的對話框。
Dim exi作為字符串
Exi=MsgBox("妳真的要退出嗎?",vbyesno+VB question+vbdefaultbutton 1,“退出”)
如果exi=vbYes,則
結束
如果…就會結束
末端接頭
-
私有子目錄1_Change()
文件1。Path=Dir1 '當目錄改變時,文件列表框中的文件也相應改變。
末端接頭
-
私有子驅動器1_Change()
Dir1。Path=Drive1 '當驅動器改變時,目錄列表也相應地改變。
末端接頭
-
私有子文件1_Click()
text 1 . text = file 1 . path+" \ "+file 1 '用於在文本框中顯示選定的圖形名稱。
末端接頭
-
私有子文件1_DblClick()
image 1 . picture = load picture(file 1 . path+" \ "+file 1)雙擊文件列表中的文件時,該文件會顯示在圖像框中。
末端接頭
-
私有子窗體_Load()
命令1。Enabled=False“確定”按鈕在沒有選擇圖形文件時不可用。
文件1。模式="*。bmp*.jpg*.ico*.“CUR”顯示擴展名為的文件。BMP,。JPG。ICO和。文件列表框中的cur。
末端接頭
-
私有子文本1_Change()
命令1。Enabled=True '當文本框中的內容發生變化時,使“確定”按鈕可用。
末端接頭
孫、、褚先妮、張、胡