熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

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

2013-11-13 10:23:51  來源: .NET編程 

  用戶在圖片框中選擇圖片時希望預先對圖片的輪廓及大小有初步了解但是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
  • 上一篇文章:

  • 下一篇文章:
  • Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.