為了幫助廣大考生更好的復(fù)習(xí)，幫考網(wǎng)小編整理提供了計(jì)算機(jī)等級(jí)考試:VB中實(shí)現(xiàn)帶預(yù)覽的對(duì)話框，以供各位考生復(fù)習(xí)參考，希望對(duì)考生復(fù)習(xí)有所幫助。
用戶在圖片框中選擇圖片時(shí)，希望預(yù)先對(duì)圖片的輪廓及大小有初步了解，但是VB的通用對(duì)話框沒有預(yù)覽的功能，為此需要定制一個(gè)自定義對(duì)話框。我們可以通過image控件加入窗體中來實(shí)現(xiàn)其功能。
程序示例：
程序功能說明：
在窗體的file1中選擇一個(gè)圖片文件，點(diǎn)選“預(yù)覽”復(fù)選框，image控件就顯示相應(yīng)的圖片，label1就顯示該圖片的大小。
新建一個(gè)工程，加入以下控件：
控件 名稱 屬性
form form1 borderstyle=3
（vbsizedouble）
caption=“圖片預(yù)覽對(duì)話框“
drivelistbox drive1
dirlistbox dir1
filelistbox file1 pattern=“＊.bmp;
＊.jpg;＊.gif”
image image1 stretch=true
checkbox chk value=“預(yù)覽“
commandbutton cmd1 caption=“確定”
cmd2 caption=“退出“
label lab1 caption=“”
源代碼：
‘declare
Public filename＄
dim sfilename＄
用戶在圖片框中選擇圖片時(shí)，希望預(yù)先對(duì)圖片的輪廓及大小有初步了解，但是VB的通用對(duì)話框沒有預(yù)覽的功能，為此需要定制一個(gè)自定義對(duì)話框。我們可以通過image控件加入窗體中來實(shí)現(xiàn)其功能。
程序示例：
程序功能說明：
在窗體的file1中選擇一個(gè)圖片文件，點(diǎn)選“預(yù)覽”復(fù)選框，image控件就顯示相應(yīng)的圖片，label1就顯示該圖片的大小。
新建一個(gè)工程，加入以下控件：
控件 名稱 屬性
form form1 borderstyle=3
（vbsizedouble）
caption=“圖片預(yù)覽對(duì)話框“
drivelistbox drive1
dirlistbox dir1
filelistbox file1 pattern=“＊.bmp;
＊.jpg;＊.gif”
image image1 stretch=true
checkbox chk value=“預(yù)覽“
commandbutton cmd1 caption=“確定”
cmd2 caption=“退出“
label lab1 caption=“”
源代碼：
‘declare
Public filename＄
dim sfilename＄