巧用利用VB.NET圖片框解決屏幕的滾動(dòng)
我們常常都會(huì)遇到很多的問題,每個(gè)問題都有解決的辦法,這個(gè)我就給大家解決一個(gè)關(guān)于屏幕的滾動(dòng)的小問題。因?yàn)楫?dāng)要顯示的內(nèi)容超出了屏幕的大小后,利用VB所提供的垂直滾動(dòng)條和水平滾動(dòng)條等控件是不可能直接實(shí)現(xiàn)這一特殊顯示功能的。那么有沒有其它的辦法呢?答案是肯定的。我們知道VB.NET圖片框是用來顯示圖形的,但它還有許多其它用途,比如可以用來創(chuàng)建一些動(dòng)畫圖形等。其實(shí)對(duì)于上面的問題我們也可以利用VB.NET圖片框來巧妙地解決。方法如下:
首先,單擊工具框中的VB.NET圖片框(Picture Box)控件和命令按鈕控件,在窗體(Form1)上建立圖片框?qū)ο驪icture1和命令按鈕對(duì)象Command1,將命令按鈕的Caption屬性設(shè)置為"退出",Picture1的大小設(shè)置為顯示區(qū)域的大小,再單擊工具框中的圖片框控件,在Picture1上建立另一個(gè)圖片框?qū)ο驪icture2,將它的Left和Top屬性設(shè)置為0。
#T#用文本框,標(biāo)簽框等其它控件或?qū)胍环鶊D象在Picture2上設(shè)定具體的顯示內(nèi)容,當(dāng)然Picture2的大小一定要先調(diào)整到能全部容納所有要顯示的內(nèi)容,最后單擊工具框中的垂直滾動(dòng)條控件和水平滾動(dòng)條控件,在窗體(Form1)上分別建立垂直滾動(dòng)條對(duì)象VScroll1和水平滾動(dòng)條對(duì)象HScroll1,并設(shè)置好它們的屬性。至此在窗體(Form1)上的所有設(shè)置工作就完成了,下面是具體的程序代碼:
- Private Sub VScroll1_Change()
- Picture2.Top= -VScroll1.Value
- End Sub
- Private Sub Hscroll1_Change()
- Picture2.Left= -HScroll1.Value
- End Sub
- Private Sub Command1_Click()
- End
- End Sub
運(yùn)行程序,當(dāng)按下橫、豎滾動(dòng)條時(shí),就能使顯示內(nèi)容實(shí)現(xiàn)左右、上下的滾動(dòng)。此方法簡(jiǎn)單易行,有興趣的朋友不妨試一試。