VB.NET中，如何編寫代碼使文字在窗口中上下循環(huán)滾動？

文字寫在label的caption屬性中，調(diào)用timer()函數(shù)

創(chuàng)新互聯(lián)主要企業(yè)基礎(chǔ)官網(wǎng)建設(shè)，電商平臺建設(shè)，移動手機(jī)平臺，小程序定制開發(fā)等一系列專為中小企業(yè)按需網(wǎng)站開發(fā)產(chǎn)品體系；應(yīng)對中小企業(yè)在互聯(lián)網(wǎng)運(yùn)營的各種問題，為中小企業(yè)在互聯(lián)網(wǎng)的運(yùn)營中保駕護(hù)航。

附上我寫的左右往復(fù)運(yùn)動代碼，實現(xiàn)image1在picture1中左右往復(fù)運(yùn)動

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

vb.net中如何添加滾動條，像在VB6中那樣的。不是窗體本身的滾動條

建立滾動條的方法如下：

（1）將鼠標(biāo)移到ToolBox內(nèi)的WinForm標(biāo)簽頁的HscrollBar控件上，單擊鼠標(biāo)左鍵。

（2）將指針移至窗體中適當(dāng)?shù)奈恢茫醋∈髽?biāo)左鍵并拖動鼠標(biāo)將HscrollBar控件調(diào)整到合適的大小放開左鍵。

（3）同樣，再在Form上設(shè)置一個VscrollBar控件。

VB.net中窗體上控件太多，運(yùn)行時在桌面上顯示不全，怎樣用滾動條來解決？請詳細(xì)說明，最好給個小例子。

思路：

利用幾個可以作為容器的控件，添加滾動條就可以了：

我舉個例子：（這個問題我記得回答過的！）

添加1個PicTureBox1，作為容器

在PicTureBox1里添加PicTureBox2，在窗體上添加一個垂直滾動條。

把你所謂的許多控件放到PicTureBox2里，滾動條改變的是PicTureBox2在PicTureBox1里的Top屬性，我想你通過一定的空間想象力，可以想到效果了吧？

注意：默認(rèn)狀態(tài)設(shè)置PicTureBox2的Top屬性為0，當(dāng)該屬性為負(fù)值的時候，PicTureBox2顯示的效果是向上移動，即下面原來隱藏的內(nèi)容為可見了。

要設(shè)置PicTureBox2的AutoRedraw 屬性為True。

若要左右移動效果，那么改變其 Left 屬性，原理不再贅述了。

VB.net2008精彩實例，窗體應(yīng)用技巧

本篇文章的主要開發(fā)環(huán)境是Visual Studio Visual Studio系列產(chǎn)品一直以來都提供了強(qiáng)大的控件功能 然而我們利用這些控件可以編寫出功能強(qiáng)大的應(yīng)用程序 本文主要利用微軟的最開發(fā)工具為大家展示窗體特效的應(yīng)用方法 為大家介紹創(chuàng)建炫酷的透明化窗體以及浮動型窗體的一些技巧 很適開發(fā)工具的初學(xué)者 具有一定的實用價值

打開 Visual Studio 在文件 (File) 菜單上 單擊新建項目 (New Project) 在新建項目 (New Project) 對話框的模板 (Templates) 窗格中 單擊 Windows 應(yīng)用程序(Windows Application) 單擊確定 (OK)

窗體應(yīng)用技巧一 創(chuàng)建浮動窗體

創(chuàng)建新工程后 選擇Form 窗體 添加Timer 和Timer 控件 為窗體選擇一個好看的背景 當(dāng)然你也可以使用系統(tǒng)默認(rèn)的背景

進(jìn)入代碼編輯器 輸入代碼

Public Class Form ????Inherits System Windows Forms Form??Private Sub Form _Load(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase Load????????Dim pos As Point = New Point( ) 設(shè)置窗體初始位置????????Me DesktopLocation = pos????????Timer Interval = 設(shè)置Timer的值????????Timer Enabled = True????????Timer Interval = ????????Timer Enabled = False????End Sub??? 進(jìn)入Timer _Tick事件??? ?Private Sub Timer _Tick(ByVal sender As System Object ByVal e As System EventArgs) Handles Timer Tick????????Dim pos As Point = New Point(Me DesktopLocation X + Me DesktopLocation Y + ) 窗體左上方橫坐標(biāo)的timer 加????????If pos X Or pos Y Then????????????Me DesktopLocation = pos????????Else????????????Timer Enabled = False????????????Timer Enabled = True????????End If????End Sub??? 進(jìn)入Timer _Tick事件

Private Sub Timer _Tick(ByVal sender As System Object ByVal e As System EventArgs) Handles Timer Tick????????Dim pos As Point = New Point(Me DesktopLocation X Me DesktopLocation Y ) 窗體的左上方橫坐標(biāo)隨著timer 減一????????If pos X Or pos Y Then????????????Me DesktopLocation = pos????????Else????????????Timer Enabled = True????????????Timer Enabled = False????????End If????End Sub??? 創(chuàng)建完成后我們來運(yùn)行程序測試一下 測試成功 程序在屏幕中不斷地來回走動了

窗體應(yīng)用技巧二 創(chuàng)建透明的窗體

創(chuàng)建新工程后 選擇Form 窗體 添加Label TrackBar Timer 控件 為了突出效果為窗體選擇一個好看的背景

相關(guān)的屬性設(shè)置如下 ??? TrackBar Value屬性:??? TickFrequency: 屬性:??? Maximum屬性: ??? ??? ??? Label Text屬性: 選擇窗體的透明度:??? Timer Interval屬性:

進(jìn)入代碼編輯器 輸入代碼

首先進(jìn)行聲明 ??? ?Public Class Form ????Inherits System Windows Forms Form????Dim tps As IntegerDim bol As Boolean??? 進(jìn)入TrackBar _Scroll事件? ?Private Sub TrackBar _Scroll(ByVal sender As Object ByVal e As System EventArgs) Handles TrackBar Scroll????????Me Opacity = TrackBar Value / ????????Label Text = 窗體透明度 CStr(Me Opacity * ) % End Sub??? 進(jìn)入Timer _Tick事件

Private Sub Timer _Tick(ByVal sender As Object ByVal e As System EventArgs) Handles Timer Tick????????If bol = False Then????????????tps = tps + ????????????Me Opacity = tps / ????????????If Me Opacity = Then????????????????Timer Enabled = False????????????????bol = True????????????End If????????Else????????????tps = tps ????????????Me Opacity = tps / ????????????If Me Opacity = Then????????????????Timer Enabled = False????????????????bol = False????????????End If????????End If????End Sub??? 進(jìn)入Form _Load事件

Private Sub Form _Load(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase Load????????Timer Enabled = TrueEnd Sub??? 進(jìn)入Form _Closing事件? ?Private Sub Form _Closing(ByVal sender As Object ByVal e As System ComponentModel CancelEventArgs) Handles MyBase Closing????????Timer Enabled = True????????If MsgBox( 你確實要關(guān)閉窗體嗎？ MsgBoxStyle OkCancel) = MsgBoxResult Ok Then????????????e Cancel = False????????Else????????????Timer Enabled = False????????????Me Opacity = ????????????tps = ????????????bol = True????????????e Cancel = True????????End IfEnd Sub??? 創(chuàng)建完成后我們來運(yùn)行程序測試一下 測試成功 程序窗體是不是變得透明了 通過調(diào)節(jié)滾動條我們甚至可以使得窗體消失達(dá)到完全隱形的目的 這是不是很神奇呢？

lishixinzhi/Article/program/net/201311/11580

新聞標(biāo)題：vb.net滾動窗體 vb移動窗體
瀏覽路徑：http://www.yijiale78.com/article4/hhigoe.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站建設(shè)、用戶體驗、做網(wǎng)站、網(wǎng)站內(nèi)鏈、微信小程序、網(wǎng)站制作

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)