您当前的位置：首页 > 教育培训 >> 高考状元

中实现带预览的对话呢

2021-10-28 05:43:01

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

Publicfilename＄

dimsfilename＄

Privatesubdrive1_change()

th=ive

Endsub

Privatesubdir1_change()

th=th

Endsub

Privatesubcmd1_click()

filename=sfilename

Endsub

Privatesubcmd2_click()

End

Endsub

Privatesubfile1_click()

dimssizeaslong

stcount0then

ifright(th,1)“\\\"then

sfilename=th＆“\\\"＆lename

else

评估风险筹款和风险投资的相关因素 sfilename=th＆lename

Endif

eckedthen

cture=loadpicture(“\")

cture=loadpicture(sfilename)

ssize=filelen(sfilename)

ssize=ssize/1000

ption=str(ssize)＆“k\"

else

ption=“\"

cture=loadpicture(“\")

endif

Endsub

查看本文来源

做健身操的好处有哪些
唐山睾丸炎治疗多少钱
重庆治白癜风医院哪家好