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

2007-05-04 07:00作者：出處：論壇整理責任編輯：盧林嘉

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

　　 程序示例：

　　 程序功能說明：

　　 在窗體的file1中選擇一個圖片文件，點選“預覽”復選框，image控件就顯示相應的圖片，label1就顯示該圖片的大小。

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

　　 控件 名稱 屬性

　　 form form1 borderstyle=3

　　 (vbsizedouble)

　　 caption=“圖片預覽對話框"

　　 drivelistbox drive1

　　 dirlistbox dir1

　　 filelistbox file1 pattern=“＊.bmp;

　　 ＊.jpg;＊.gif"

　　 image image1 stretch=true

　　 checkbox chk value=“預覽"

　　 commandbutton cmd1 caption=“確定"

　　 cmd2 caption=“退出"

　　 label lab1 caption=“"

　　 源代碼：

以下是引用片段： 'declare? Public?filename＄? dim?sfilename＄? Private?sub?drive1_change()? 　dir1.path=drive1.drive? End?sub? Private?sub?dir1_change()? 　file1.path=dir1.path? End?sub? Private?sub?cmd1_click()? 　filename=sfilename? End?sub? Private?sub?cmd2_click()? 　End? End?sub? Private?sub?file1_click()? 　dim?ssize?as?long? 　if?fille1.listcount>0?then? 　?if?right(file1.path,1)<>“/"?then? 　　?sfilename=file1.path＆“/"＆file1.filename? 　?else? 　　?sfilename=file1.path＆file1.filename? 　?End?if? 　if?chk.checked?then? 　　image1.picture=loadpicture(“")? 　　image1.picture=loadpicture(sfilename)? 　　ssize=filelen(sfilename)? 　　ssize=ssize/1000? 　　lab1.caption=str(ssize)＆“k"? 　else? 　　lab1.caption=“"? 　　image1.picture=loadpicture(“")? 　end?if? 　end?if? End?sub?

??閱讀關于 VB 控件 屬性 定義 定制 通用 的全部文章

總結

以上是生活随笔為你收集整理的Visual Basic中实现带预览的对话框的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。