永发信息网

VB : 如何令image 加载图片后不变形?

答案:2  悬赏:0  手机版
解决时间 2021-01-03 23:16
VB : 如何令image 加载图片后不变形?
最佳答案
保持图片宽高比不变是吧,这只能在代码中根据图片的宽高比调整一下,
在Form_Load 中:
With Image1
.Height = .Width * (.Picture.Height / .Picture.Width)
End With
其实还有一组控件Microsoft Form 2.0,其中也有个Image控件,它可以保持宽高比。
全部回答
private sub form_load() image1.stretch = true '使图片完整显示 image1.picture = loadpicture(“d:\1.jpg“) '加载图片 end sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
城西派出所连港警务站办公位置在哪啊?好找么
电脑桌面工具栏右侧修改为电脑下方怎么搞
2002年北京召开的国际数学家大会,大会会标如
解答题编写程序,计算函数f(x)=3x2-x+1当x=
缺省单位是什么意思
一个人辛辛苦苦工作是为了干什么?
单选题农民在自己的田地上既种小麦、棉花,又
南通市通州区公安局西亭派出所在什么地方啊,
北新派出所办公地址在什么地方?我要处理点事
硬笔之字怎么写
汉阳区武汉汉阳区小贝壳青年旅社在哪里啊,我
小米手机电池充满电需要多长时间
使命召唤5 两台电脑已经连接局域网了 可以连
女闺蜜本命年,该送什么生日礼物
请根据①②资料回答问题:①木糖醇甜度相当于
推荐资讯
已知两个数的和是36,这两个数的差是12,则这
我最亲爱的是什么意思?有一个人对我说我只能
在Fe2O3+3CO=Fe+3CO2的反应中,铁元素由+3价
没有倍数关系的两个两位数,它们的最大公约数
下载了体验服。正服不见了、、不要转换器。是
某河流两岸六地完成下面问题。1.如果该地为北
Not many foreigners can say that they have
一克容情是什么意思
国企每天占有下班时间开会,怎样改变现状?因
单选题近似数7.01×103的有效数字个数为A.2B.
用分子的知识解释混合物与纯净物、物理变化与
手机上怎么复制百度文库里的文字???
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?