Visual Basic中實現帶預覽的對話框

　　用戶在圖片框中選擇圖片時希望預先對圖片的輪廓及大小有初步了解但是VB的通用對話框沒有預覽的功能為此需要定制一個自定義對話框我們可以通過image控件加入窗體中來實現其功能

　　程序示例

　　程序功能說明

　　在窗體的file中選擇一個圖片文件點選預覽復選框image控件就顯示相應的圖片label就顯示該圖片的大小

　　新建一個工程加入以下控件

　　控件 名稱 屬性

　　form form borderstyle=

　　(vbsizedouble)

　　caption=圖片預覽對話框

　　drivelistbox drive

　　dirlistbox dir

　　filelistbox file pattern=＊bmp;

　　＊jpg;＊gif

　　image image stretch=true

　　checkbox chk value=預覽

　　commandbutton cmd caption=確定

　　cmd caption=退出

　　label lab caption=

　　源代碼

　　 以下是引用片段
declare 
Public filename＄ 
dim sfilename＄ 
Private sub drive_change() 
　dirpath=drivedrive 
End sub 
Private sub dir_change() 
　filepath=dirpath 
End sub 
Private sub cmd_click() 
　filename=sfilename 
End sub 
Private sub cmd_click() 
　End 
End sub 
Private sub file_click() 
　dim ssize as long 
　if fillelistcount> then 
　 if right(filepath)<>\ then 
　　 sfilename=filepath＆\＆filefilename 
　 else 
　　 sfilename=filepath＆filefilename 
　 End if 
　if chkchecked then 
　　imagepicture=loadpicture() 
　　imagepicture=loadpicture(sfilename) 
　　ssize=filelen(sfilename) 
　　ssize=ssize/ 
　　labcaption=str(ssize)＆k 
　else 
　　labcaption= 
　　imagepicture=loadpicture() 
　end if 
　end if 
End sub 

From:http://tw.wingwit.com/Article/program/net/201311/13485.html