2019-03-29 12:32发布
这个可以这样实现（我加个按钮）
Private Sub Command1_Click()
Form1.Width = 8000 ‘先调整FORM大小
Form1.Height = 8000
Picture1.Width = 7000 ’调整图大小
Picture1.Height = 5000
End Sub
效果，调整前
调整后
最多设置5个标签!
{var%20f='http://v.t.sina.com.cn/share/share.php?appkey=1515056452',u=z||d.location,p=['&url=',e(u),'&title=',e(t||d.title),'&source=',e(r),'&sourceUrl=',e(l),'&content=',c||'gb2312','&pic=',e(p||'')].join('');function%20a(){if(!window.open([f,p].join(''),'mb',['toolbar=0,status=0,resizable=1,width=440,height=430,left=',(s.width-440)/2,',top=',(s.height-430)/2].join('')))u.href=[f,p].join('');};if(/Firefox/.test(navigator.userAgent))setTimeout(a,0);else%20a();})(screen,document,encodeURIComponent,'','','https://www.63hi.com/data/attach/logo/logo.png', '推荐 心底的那片蓝 的问题《VB（如图）怎么在运行时改变【蛇图】大小，求代码。》','https://www.63hi.com/q-25658.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}
这个可以这样实现（我加个按钮）
Private Sub Command1_Click()
Form1.Width = 8000 ‘先调整FORM大小
Form1.Height = 8000
Picture1.Width = 7000 ’调整图大小
Picture1.Height = 5000
End Sub
效果，调整前
调整后
一周热门 更多>