vb scrollbar 图片调整大小
答案:2 悬赏:70 手机版
解决时间 2021-11-25 05:48
- 提问者网友：謫仙
- 2021-11-24 20:33
vb scrollbar 图片调整大小
最佳答案
- 五星知识达人网友：末日狂欢
- 2021-11-24 21:32
不用那么复杂：添加一个按钮，一个picturebox，一个imagebox，一个垂直滚动条
pictruebox里visible属性是false autoresize属性是true，imagebox里strength是true，然后粘贴下面的代码即可
Private LoadPic As Boolean
Private Sub Command1_Click()
Me.ScaleMode = 3
Set Picture1.Picture = LoadPicture("C:\Documents and Settings\gshi\My Documents\My Pictures\未命名.jpg")
Image1.Height = Picture1.Height
Image1.Width = Picture1.Width
Set Image1.Picture = LoadPicture("C:\Documents and Settings\gshi\My Documents\My Pictures\未命名.jpg")
LoadPic = True
VScroll1.Max = 1
VScroll1.Min = 200
VScroll1.Value = 100
End Sub
Private Sub VScroll1_Change()
If LoadPic Then
Image1.Height = Picture1.Height * (VScroll1.Value / 100)
Image1.Width = Picture1.Width * (VScroll1.Value / 100)
End If
End Sub
不明白的百度HI我
pictruebox里visible属性是false autoresize属性是true，imagebox里strength是true，然后粘贴下面的代码即可
Private LoadPic As Boolean
Private Sub Command1_Click()
Me.ScaleMode = 3
Set Picture1.Picture = LoadPicture("C:\Documents and Settings\gshi\My Documents\My Pictures\未命名.jpg")
Image1.Height = Picture1.Height
Image1.Width = Picture1.Width
Set Image1.Picture = LoadPicture("C:\Documents and Settings\gshi\My Documents\My Pictures\未命名.jpg")
LoadPic = True
VScroll1.Max = 1
VScroll1.Min = 200
VScroll1.Value = 100
End Sub
Private Sub VScroll1_Change()
If LoadPic Then
Image1.Height = Picture1.Height * (VScroll1.Value / 100)
Image1.Width = Picture1.Width * (VScroll1.Value / 100)
End If
End Sub
不明白的百度HI我
全部回答
- 1楼网友：煞尾
- 2021-11-24 22:50
欢度不大,有点烦锁.
不过,分值有点低了,自己做吧.
不过,分值有点低了,自己做吧.
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯