巧用利用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í)對于上面的問題我們也可以利用VB.NET圖片框來巧妙地解決。方法如下：
首先，單擊工具框中的VB.NET圖片框(Picture Box)控件和命令按鈕控件，在窗體(Form1)上建立圖片框?qū)ο驪icture1和命令按鈕對象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)條對象VScroll1和水平滾動(dòng)條對象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)。此方法簡單易行，有興趣的朋友不妨試一試。
