思路:
創新互聯公司主營上街網站建設的網絡公司,主營網站建設方案,app軟件開發公司,上街h5成都小程序開發搭建,上街網站營銷推廣歡迎上街等地區企業咨詢
利用幾個可以作為容器的控件,添加滾動條就可以了:
我舉個例子:(這個問題我記得回答過的!)
添加1個PicTureBox1,作為容器
在PicTureBox1里添加PicTureBox2,在窗體上添加一個垂直滾動條。
把你所謂的許多控件放到PicTureBox2里,滾動條改變的是PicTureBox2在PicTureBox1里的Top屬性,我想你通過一定的空間想象力,可以想到效果了吧?
注意:默認狀態設置PicTureBox2的Top屬性為0,當該屬性為負值的時候,PicTureBox2顯示的效果是向上移動,即下面原來隱藏的內容為可見了。
要設置PicTureBox2的AutoRedraw 屬性為True。
若要左右移動效果,那么改變其 Left 屬性,原理不再贅述了。
新建一窗體FORM2,在原窗體FORM1的在mousemove事件中增加FORM2.left=XX,FORM2.TOP=YY.XX,yy是鼠標的坐標.
在代碼中加入以下事件代碼即可讓鼠標滾輪支持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移動窗體
瀏覽路徑:http://m.newbst.com/article6/dosjgog.html
成都網站建設公司_創新互聯,為您提供定制網站、網站設計公司、域名注冊、商城網站、面包屑導航、網站維護
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯