vb.net滾動(dòng)窗體 vb移動(dòng)窗體

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

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

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

附上我寫(xiě)的左右往復(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

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

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

（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)整到合適的大小放開(kāi)左鍵。

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

VB.net中窗體上控件太多，運(yùn)行時(shí)在桌面上顯示不全，怎樣用滾動(dòng)條來(lái)解決？請(qǐng)?jiān)敿?xì)說(shuō)明，最好給個(gè)小例子。

思路：

利用幾個(gè)可以作為容器的控件，添加滾動(dòng)條就可以了：

我舉個(gè)例子：（這個(gè)問(wèn)題我記得回答過(guò)的?。?/p>

添加1個(gè)PicTureBox1，作為容器

在PicTureBox1里添加PicTureBox2，在窗體上添加一個(gè)垂直滾動(dòng)條。

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

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

要設(shè)置PicTureBox2的AutoRedraw 屬性為T(mén)rue。

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

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

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

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

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

創(chuàng)建新工程后 選擇Form 窗體 添加Timer 和Timer 控件 為窗體選擇一個(gè)好看的背景 當(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)建完成后我們來(lái)運(yùn)行程序測(cè)試一下 測(cè)試成功 程序在屏幕中不斷地來(lái)回走動(dòng)了

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

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

相關(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( 你確實(shí)要關(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)建完成后我們來(lái)運(yùn)行程序測(cè)試一下 測(cè)試成功 程序窗體是不是變得透明了 通過(guò)調(diào)節(jié)滾動(dòng)條我們甚至可以使得窗體消失達(dá)到完全隱形的目的 這是不是很神奇呢？

lishixinzhi/Article/program/net/201311/11580

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

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

廣告

聲明：本網(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；郵箱：[email protected]。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)