成都网站建设设计

将想法与焦点和您一起共享

vb.net界面滑动 vb移动窗体

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

思路:

创新互联公司主营上街网站建设的网络公司,主营网站建设方案,app软件开发公司,上街h5成都小程序开发搭建,上街网站营销推广欢迎上街等地区企业咨询

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

我举个例子:(这个问题我记得回答过的!)

添加1个PicTureBox1,作为容器

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

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

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

要设置PicTureBox2的AutoRedraw 属性为True。

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

Vb.Net 怎么让窗口随鼠标动

新建一窗体FORM2,在原窗体FORM1的在mousemove事件中增加FORM2.left=XX,FORM2.TOP=YY.XX,yy是鼠标的坐标.

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

在代码中加入以下事件代码即可让鼠标滚轮支持VScrollBar:

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


新闻标题:vb.net界面滑动 vb移动窗体
URL标题:http://chengdu.cdxwcx.cn/article/dosjgog.html