vb.net窗体滚动 vb滚动条在哪

VB.NET中，如何编写代码使文字在窗口中上下循环滚动？

文字写在label的caption属性中vb.net窗体滚动，调用timer()函数

附上vb.net窗体滚动我写的左右往复运动代码vb.net窗体滚动，实现image1在picture1中左右往复运动

Private

Sub

Timer1_Timer()

If

Image1.Left

=

Picture1.ScaleWidth

-

Image1.Width

Then

k

=

1

If

k

=

1

Then

Image1.Left

=

Image1.Left

-

50

Else

Image1.Left

=

Image1.Left

+

50

End

If

If

Image1.Left

=

Then

k

=

End

Sub

相关问答

Q1: VB.net中窗体上控件太多，运行时在桌面上显示不全，怎样用滚动条来解决？请详细说明，最好给个小例子。

思路：

利用几个可以作为容器的控件，添加滚动条就可以了：

我举个例子：（这个问题我记得回答过的！）

添加1个PicTureBox1，作为容器

在PicTureBox1里添加PicTureBox2，在窗体上添加一个垂直滚动条。

把你所谓的许多控件放到PicTureBox2里，滚动条改变的是PicTureBox2在PicTureBox1里的Top属性，我想你通过一定的空间想象力，可以想到效果了吧？

注意：默认状态设置PicTureBox2的Top属性为0，当该属性为负值的时候，PicTureBox2显示的效果是向上移动，即下面原来隐藏的内容为可见了。

要设置PicTureBox2的AutoRedraw 属性为True。

若要左右移动效果，那么改变其 Left 属性，原理不再赘述了。

Q2: vb.net 中窗体上添加一个VScrollBar，怎么样才能使，鼠标中轴滚动，VScrollBar也跟着滚动

在代码中加入以下事件代码即可让鼠标滚轮支持VScrollBarvb.net窗体滚动：

Private Sub mouse_wheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel

If e.Delta = 120 Then

If VScrollBar1.Value - VScrollBar1.SmallChange = 0 Then

VScrollBar1.Value -= VScrollBar1.SmallChange

ElseIf VScrollBar1.Value - 1 = 0 Then

VScrollBar1.Value -= 1

End If

Else

If VScrollBar1.Value + VScrollBar1.SmallChange = VScrollBar1.Maximum Then

VScrollBar1.Value += VScrollBar1.SmallChange

ElseIf VScrollBar1.Value + 1 = VScrollBar1.Maximum Then

VScrollBar1.Value += 1

End If

End If

End Sub

Q3: vb.net中如何添加滚动条，像在VB6中那样的。不是窗体本身的滚动条

建立滚动条的方法如下：

（1）将鼠标移到ToolBox内的WinForm标签页的HscrollBar控件上，单击鼠标左键。

（2）将指针移至窗体中适当的位置，按住鼠标左键并拖动鼠标将HscrollBar控件调整到合适的大小放开左键。

（3）同样，再在Form上设置一个VscrollBar控件。

vb.net窗体滚动的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb滚动条在哪、vb.net窗体滚动的信息别忘了在本站进行查找喔。