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