Visual Basic中实现带预览的对话框
来源:互联网 发布:小区净水器利润 知乎 编辑:程序博客网 时间:2024/05/16 13:40
Visual Basic中实现带预览的对话框
用户在图片框中选择图片时,希望预先对图片的轮廓及大小有初步了解,但是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中实现带预览的对话框
- Visual Basic中实现带预览的对话框
- 文件预览对话框的实现
- MFC在对话框中实现打印预览
- Visual Basic .Net中实现HTTP协议
- MFC对话框的打印预览实现
- XImageDialog,带图像预览的打开文件对话框
- Visual Basic中ActiveX控件的制作
- Visual Basic中使用资源的技巧
- Visual Basic 2008 中Application的使用
- Visual Basic 2008 中 Linklabel 的使用
- Visual Basic 2008 中 TreeView的使用方法
- Visual Basic 实现计算器
- 在VC对话框中实现打印和打印预览
- 怎样在一个对话框中实现预览图形文件功能
- 在 Visual Basic .NET 中实现后台进程
- 在 Visual Basic 中实现业务层服务器
- 在 Visual Basic .NET 中实现后台进程
- 思科专题(一):Ethernet-to-the-Factory (EttF)(1)
- ABAP Subscreen and tabstrip controls
- 这只是一个测试博客
- VB访问SQL Server数据库技术全揭密
- 项目的业务价值
- Visual Basic中实现带预览的对话框
- 理解x86架构的捷径
- 魔兽的寂寞——源自中国的寂寞(转载) 原作者:尚良
- SQL Prompt 4试用
- 嵌入式处理器分类现状
- 李开复:算法的力量
- 企业转型升级该怎么落实?
- eclipse 无法启动 JVM terminated. Exit code=-1
- Sum of Factorials