VisualBasic中實現帶預覽的對話框

在圖片框中選擇圖片時，用戶希望事先對圖片的輪廓和大小有一個初步的了解，但是VB的通用對話框沒有預覽功能，所以需要定制一個自定義對話框。我們可以在表單中添加圖像控件來實現它的功能。

程序示例:

程序功能描述:

在表單的file1中選擇一個圖片文件，單擊預覽複選框，圖像控件將顯示相應的圖片，label1將顯示圖片的大小。

創建一個新項目竝添加以下控件:

控件名稱屬性

表單表單1邊框樣式=3

(vbsizedouble)

Caption="圖片預覽對話框"

敺動列表框敺動1

文件列表框file1 pattern="*。bmp

*.jpg*.gif"

圖像圖像1拉伸=真

複選框檢查值=“預覽”

命令cmd1 caption ="ok"

2 cmd caption ="退出"

lab1標簽標題=""

源代碼:

下麪是一段引文:
' declare
public filename $
dim s filename $
Private sub drive 1 _ change()
dir 1 . path = drive 1 . drive
End sub
Private sub dir 1 _ change()
file 1 . path = dir 1 . path
End sub
Private sub cmd 1 _ click()
filename = sfilename
End sub" & file 1 . filename
else
sfilename = file 1 . path & file 1 . filename
End if
if chk . checked then
image1 . picture = load picture(""
image1 . picture = load picture(sfilename)
ssize = filelen(sfilename)
ssize = ssize/1000
lab1 . caption = str(ssize)&" k