VB中Scroll的使用方法_百度知道
VB中Scroll的使用方法
我想实现全屏下混蛋那个条消失，非全屏下滚动条出现。滚动条的位置随着窗体的大小改变而改变。
我有更好的答案
滚动条控件（ScrollBar）分为水平滚动条（HScrollbar）和垂直滚动条（VscrollBar）二种，通常附在窗体上协助观察数据或确定位置，也可用作数据输入工具，用来提供某一范围内的数值供用户选择。属性(1) Value滑块所处位置所代表的值。(2)
Max：最大值-32,768~32,767(3) Min：最小值-32,768~32,767(4) SmallChange最小变动值，单击箭头时移动的增量值。(5) LargeChange最大变动值，单击空白处时移动的增量值。事件（1）Change事件滚动条的Change事件在移动滚动框或通过代码改变其Value属性值时发生。单击滚动条两端的箭头或空白处将引发Change事件。（2）Scroll事件当滚动框被重新定位，或按水平方向或垂直方向滚动时，Scroll事件发生。拖动滑块时会触发Scroll事件。Scroll事件与Change事件的区别在于：当滚动条控件滚动时Scroll事件一直发生，而Change事件只是在滚动结束之后才发生一次。
采纳率：88%
来自团队：
Height = Form1.ScaleHeightEnd SubPrivate Sub Timer1_Timer()
'利用Timer控件来监控窗体状态If Form1.WindowState = 2 Then
&#39.ScaleWidth - VScroll1.Top = 0VScroll1.WidthVScroll1Private Sub Form_Load()Timer1.Interval = 100 '设置Timer1执行的时间间隔为100msEnd SubPrivate Sub Form_Resize()
'滚动条位置随窗体变化而变化VScroll1.Left = Form1;windowstate属性你可以去看看窗体的属性窗口VScroll1.Visible = FalseElseIf Form1.WindowState = 0 ThenVScroll1
Private Sub Form_Resize()
'滚动条位置随窗体变化而变化VScroll1.Left = Form1.ScaleWidth - VScroll1.WidthVScroll1.Top = 0VScroll1.Height = Form1.ScaleHeightEnd Sub上面的触发事件可以使点击向下还原的按钮吗，就是那个最大化的按钮。因为用resize事件的话只有手动改变窗体的时候事件才会触发。我想达到的效果是最大化的情况下点击缩小按钮也能触发事件
这段代码我试过了,做大话和还原都能满足,只要窗体变化了就能随着变
你的代码我也试了，就是缩小不满足，只有手动缩小才满足。
怎么会这样,我又帮你试了一遍，可以的呀，你直接新建个工程只添加一个竖的滚动条和timer控件，然后再把这段代码贴进去试试。我运行的时候只添加了这两个控件
本回答被提问者采纳
那个是自动的，不需要改动
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB中如何用滚动条控制形状大小_百度知道
VB中如何用滚动条控制形状大小
我有更好的答案
以下代码用到的控件：shape1
vscroll1Private Sub Form_Load()VScroll1.Min = 10VScroll1.Max = 1000VScroll1.Value = 500HScroll1.Min = 10HScroll1.Max = 1000HScroll1.Value = 500End SubPrivate Sub HScroll1_Change()Shape1.Width = HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll()HScroll1_ChangeEnd SubPrivate Sub VScroll1_Change()Shape1.Height = VScroll1.ValueEnd SubPrivate Sub VScroll1_Scroll()VScroll1_ChangeEnd Sub
采纳率：81%
来自团队：
为您推荐：
其他类似问题
滚动条的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB怎么通过横竖滚动条来改变图片的大小，竖条改变高度，横条改变宽度。_百度知道
VB怎么通过横竖滚动条来改变图片的大小，竖条改变高度，横条改变宽度。
我有更好的答案
'给个示例，图片地址自己改一下。'使用Image控件，让控件来自己调整。Public H, W As SinglePrivate Sub Form_Load()Image1.Stretch = TrueImage1.Picture = LoadPicture(&D:\My Documents\My Pictures\;111.jpg&)VScroll1.Max = 100VScroll1.Min = 0VScroll1.SmallChange = 1VScroll1.LargeChange = 5HScroll1.Max = 100HScroll1.Min = 0HScroll1.SmallChange = 1HScroll1.LargeChange = 5H = Image1.HeightW = Image1.WidthEnd SubPrivate Sub VScroll1_Change()Image1.Height = H * (1 + VScroll1.Value / 100)Image1.Picture = LoadPicture(&D:\My Documents\My Pictures\;111.jpg&)End SubPrivate Sub HScroll1_Change()Image1.Width = W * (1 + HScroll1.Value / 100)Image1.Picture = LoadPicture(&D:\My Documents\My Pictures\;111.jpg&)End Sub
采纳率：43%
为您推荐：
其他类似问题
滚动条的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。放一个panel，然后把pictureBox是放在panel上的，然后设置如下属性：
panel.AutoScroll=true;&
pictureBox.Location=new Point(0,0);&
pictureBox.SizeMode=PictureBoxSizeMode.AutoS
PictureBox不是容器控件，所以他没有AutoScrollMinSize和AutoScrollPosition两个属性，所以不能直接设置，有3个方案：1、改为在Panel控件中画：& 然后通过设置AutoScrollMinSize属性，设置滚动条的滚动范围，然后滚动的时候刷新图即可（注意此时绘制使用的X,Y坐标，要加上滚动条的滚动值）。2、自己在PictureBox右边和下面添加两个滚动条。3、在内存位图上画，然后把位图拷贝到PictureBox控件的Image属性内。
'把Picture1放在 Picture2 里面 Private Sub Form_Load() VScroll2.Max = Picture1.Height - Picture2.Height HScroll1.Max = Picture1.Width - Picture2.Width HScroll1 = 0 VScroll2 = 0 Picture1.Top = 0 Picture1.Left = 0 End Sub Private Sub HScroll1_Change() Picture1.Left = 0 - HScroll1 End Sub Private Sub VScroll2_Change() Picture1.Top = 0 - VScroll2 End Sub
另: 在sizemode属性用stretchImage可以自动拉伸压缩图片
设置picturebox图片显示模式
if (radioButton1.Checked)&&&&&&&&&&& {&&&&&&&&&&&&&&& pictureBox1.Location = new Point(0, 0);&&&&&&&&&&&&&&& pictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoS
&&&&&&&&&&& }&&&&&&&&&&& else&&&&&&&&&&& {&&&&&&&&&&&&&&& pictureBox1.Location = new Point(0, 0);&&&&&&&&&&&&&&& this.pictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchI&&&&&&&&&&& }
阅读(...) 评论()VB滚动条如何控制浏览图片_百度知道
VB滚动条如何控制浏览图片
请问各位 , 在VB中,我要如何编程控制图片的上下移动.有思路就好.谢谢.
我有更好的答案
'加入两个Picture控件,picture2放在picture1里面,picture2用来'加载图片,加入一个水平滚动条和一个垂直滚动条Private Sub Form_Load()Picture2.AutoSize = TruePicture2.BorderStyle = 0Picture1.ScaleMode = 3Picture2.ScaleMode = 3HScroll1.Max = Picture2.Width - Picture1.ScaleWidthVScroll1.Max = Picture2.Height - Picture1.ScaleHeightEnd SubPrivate Sub HScroll1_Change()Picture2.Left = -HScroll1.ValueEnd SubPrivate Sub VScroll1_Change()Picture2.Top = -VScroll1.ValueEnd Sub
采纳率：45%
路很多.1.用鼠标.3...最简单的,用按钮,点击一下就让它移动一下.2.用时间timer控件.用时间控制
为您推荐：
其他类似问题
滚动条的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。