在VB中怎么样使得图片框随水平滚动条进行伸缩呢?呢?

就是当下面的水平向左时,图片宽度变小。当向右时,图片快读变大。... 就是当下面的水平向左时,图片宽度变小。当向右时,图片快读变大。 展开
 我来答
网海1书生
科技发烧友

2012-03-22 · 擅长软件设计、WEB应用开发、小程序
网海1书生
采纳数:12311 获赞数:26225

向TA提问 私信TA
展开全部
如果是Image控件就很容易实现,如果是PictureBox控件就比较麻烦一些,要用PaintPicture方法重画才能使图片改变宽度。下面是Image控件的实现方法:

Private Sub Form_Load()
Image1.Stretch = True
Image1.Width = HScroll1.Width
HScroll1.SmallChange = 60
HScroll1.LargeChange = 600
HScroll1.Max = Image1.Width
HScroll1.Min = 15
HScroll1.Value = HScroll1.Max \ 2
End Sub

Private Sub HScroll1_Change()
Image1.Width = HScroll1.Value
End Sub

Private Sub HScroll1_Scroll()
Image1.Width = HScroll1.Value
End Sub
追问
谢谢您的答案。我没有学Image的。不过您的答案比真正的答案还有好啊!您真厉害!
题目上MIN=200,MAX=2000,largechange=200.并且不能使用任何变量。我看额答案是
Private Sub form_Change()
Image1.Width = HScroll1.Value
End Sub

Private Sub HScroll1_Scroll()
Image1.Width = HScroll1.Value
End Sub
可是我运行了,不行。你可以把这个该一码?
追答
没有form_Change这个事件的,应该是HScroll1_Change,就是和我上面的回答一样的。你把min、max、largechange改为你题目中的数值就行了

Private Sub Form_Load()
Image1.Stretch = True
HScroll1.LargeChange = 200
HScroll1.Max = 2000
HScroll1.Min = 200
HScroll1.Value = HScroll1.Max \ 2
End Sub

Private Sub HScroll1_Change()
Image1.Width = HScroll1.Value
End Sub

Private Sub HScroll1_Scroll()
Image1.Width = HScroll1.Value
End Sub
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式