vb中怎么使图片适应框的大小_如何让放进框内的图片随框大小而变

如何让放进框内的图片随框大小而变

有一个图片框,可以随进放进新图片,替换旧图图片,但问题是放进的新图片无法随原框的大小,而放不满一个框或比框大.

那位能将下面的代码改一下,要求不论原图多大,放进此框后,都要随此框大小相应放大或缩小:

原代码如下:

提示:在窗体上有二个按钮(放进图片和保存图片),另要引进一个CommonDialog控件.

Dim OpenFileName As String

Private Reg

Private Sub Command1_Click()

On Error Resume Next

CommonDialog1.DialogTitle = "放进新图片"

CommonDialog1.Filter = "所有支持的格式" + _

"(*.bmp;*.jpg;*.gif;*.pcx;*.ico)|" + _

"*.bmp;*.jpg;*.gif;*.pcx;*.ico)"

CommonDialog1.ShowOpen

If CommonDialog1.FileName <> "" Then

If Err <> 32755 Then

OpenFileName = CommonDialog1.FileName

Picture1.Picture = LoadPicture(OpenFileName)

End If

End Sub

Private Sub Command2_Click()

Call Reg.RegWrite("HKLM\SOFTWARE\PIC\Lj", OpenFileName, "REG_SZ") '保存新图片

End Sub

Private Sub Form_Load()

On Error Resume Next

Set Reg = New IWshShell_Class

If Reg.RegRead("HKLM\SOFTWARE\PIC\Lj") = "" Then

Exit Sub

End If

Picture1.Picture = LoadPicture(Reg.RegRead("HKLM\SOFTWARE\PIC\Lj"))

CommonDialog1.CancelError = True

End Sub

5on3rLhw.rar

(6.9 KB)

如何让放进框内的图片随框大小而变

vb中怎么使图片适应框的大小_如何让放进框内的图片随框大小而变相关推荐

vb中怎么使图片适应框的大小_怎么让放进的图片随框大小而变
当前位置:我的异常网» VB » 怎么让放进的图片随框大小而变怎么让放进的图片随框大小而变 www.myexceptions.net 网友分享于:2013-01-30 浏览:6次如何让放进的图 ...
vb中怎么使图片适应框的大小_叮！VB考前练习了解一下？
1.Visual Basic窗体设计器的主要功能是(C ). A) 画图 B) 编写源程序代码 C) 建立用户界面 D) 显示文字解析:Visual Basic窗体设计器简称窗体(Form ...
java图片识别查看器模拟_[转载]windows照片查看器无法显示图片内存不足
问题描述最近在使用Windows照片查看器打开一个jpg文件的时候异常 Windows照片查看器无法显示此图片,因为计算机上的可用内存可能不足.请关闭一些目前没有使用的程序或者释放部分硬盘空间(如果 ...
plt.scatter设置点大小_设置电脑桌面壁纸图文教程，下载图片设置计算机系统屏幕背景方法...
大家好,我是老盖,首先感谢观看本文,本篇文章做的有视频,视频讲述的比较详细,也可以看我发布的视频. 我们改变桌面背景,需要有一些图片,我个人是在百度图片中下载图片,打开浏览器进入百度图片网站后,输入壁 ...
instagram图片大小_如何上传最好看的Instagram图片
instagram图片大小 Instagram is probably our favorite social network here at How-To Geek. We always want ...
lisp实现框选裁切_《剪切成虚线》v3.1版(支持框选)
本帖最后由 langjs 于 2020-9-1 10:27 编辑很久以前就想实现的一个功能,终于实现了: 我们制图时在画被遮挡的虚线时,通常是先剪切,再重新画上被遮挡的线,然后再变为虚线,操作复杂. ...
背景图片hover加蒙层_用hover怎么将li的背景图片变透明，文字不变，是背景图片，不是img插入...
匿名用户 1级 2017-01-19 回答 1. h3,ul,li{ margin:0;无外补丁 padding:0;无内补丁} 2. ul,li{ list-style:none; 无列表样式} 3 ...
VB中使用PNG格式图片的一种新方法
由于VB中的Image控件和Picture控件都不能直接加载PNG格式图片,给我们使用或浏览PNG格式的图片带来了困难.现行的解决方法主要是以下两种: (1)利用GDI显示PNG图片: (2)将PNG ...
在VB中如何让背景图片铺满整个MDIForm
在VB中,如何让背景图片铺满整个Form,代码如下: '* ************************************************************** * '* ...

vb中怎么使图片适应框的大小_如何让放进框内的图片随框大小而变

vb中怎么使图片适应框的大小_如何让放进框内的图片随框大小而变相关推荐

最新文章

热门文章