建立滾動(dòng)條的方法如下:

專注于為中小企業(yè)提供做網(wǎng)站、成都網(wǎng)站建設(shè)服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)五峰免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都,凝聚了一批互聯(lián)網(wǎng)行業(yè)人才,有力地推動(dòng)了上千企業(yè)的穩(wěn)健成長(zhǎng),幫助中小企業(yè)通過網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。
(1)將鼠標(biāo)移到ToolBox內(nèi)的WinForm標(biāo)簽頁(yè)的HscrollBar控件上,單擊鼠標(biāo)左鍵。
(2)將指針移至窗體中適當(dāng)?shù)奈恢茫醋∈髽?biāo)左鍵并拖動(dòng)鼠標(biāo)將HscrollBar控件調(diào)整到合適的大小放開左鍵。
(3)同樣,再在Form上設(shè)置一個(gè)VscrollBar控件。
文字寫在label的caption屬性中,調(diào)用timer()函數(shù)
附上我寫的左右往復(fù)運(yùn)動(dòng)代碼,實(shí)現(xiàn)image1在picture1中左右往復(fù)運(yùn)動(dòng)
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
思路:
利用幾個(gè)可以作為容器的控件,添加滾動(dòng)條就可以了:
我舉個(gè)例子:(這個(gè)問題我記得回答過的!)
添加1個(gè)PicTureBox1,作為容器
在PicTureBox1里添加PicTureBox2,在窗體上添加一個(gè)垂直滾動(dòng)條。
把你所謂的許多控件放到PicTureBox2里,滾動(dòng)條改變的是PicTureBox2在PicTureBox1里的Top屬性,我想你通過一定的空間想象力,可以想到效果了吧?
注意:默認(rèn)狀態(tài)設(shè)置PicTureBox2的Top屬性為0,當(dāng)該屬性為負(fù)值的時(shí)候,PicTureBox2顯示的效果是向上移動(dòng),即下面原來隱藏的內(nèi)容為可見了。
要設(shè)置PicTureBox2的AutoRedraw 屬性為True。
若要左右移動(dòng)效果,那么改變其 Left 屬性,原理不再贅述了。
網(wǎng)站題目:vb.net窗體滾動(dòng) vb 文本框自動(dòng)滾動(dòng)
網(wǎng)頁(yè)地址:http://chinadenli.net/article2/doogioc.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供外貿(mào)網(wǎng)站建設(shè)、企業(yè)建站、企業(yè)網(wǎng)站制作、營(yíng)銷型網(wǎng)站建設(shè)、虛擬主機(jī)、
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)