您的位置: 首页 > 软件教程 > Visual Basic教程专题 > Visual Basic中实现带预览的对话框

Visual Basic中实现带预览的对话框

8.2分
出处:网络 时间:2011-04-25

您可能感兴趣的话题: Visual Basic  

核心提示:用户在图片框中选择图片时,希望预先对图片的轮廓及大小有初步了解,但是VB的通用对话框没有预览的功能。

   用户在图片框中选择图片时,希望预先对图片的轮廓及大小有初步了解,但是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

网友评论
精品软件课程
更多 >
C++是一种静态数据类型检查的,支持多重编程... [详细]
Java,是由Sun Microsystem... [详细]
C语言是一种面向过程的计算机程序设计语言。多... [详细]
Oracle Database,又名Orac... [详细]
Visual Basic.NET是从 Vis... [详细]
Visual C++微软公司的C++开发工具... [详细]