• 未登錄

    開通VIP,暢享免費電子書等14項超值服

    開通VIP
    如何用VB在窗體中實現閃爍文字

    2009.10.22

    閃爍的文字可以在屏幕上起到明顯的提示作用。通過使用VB的Timer控件,程序員可以輕松的在窗體上實現閃爍文字的效果。本文將演示如何為Label控件加上閃爍效果,這種方法同樣適用于其它多種控件。


    當你在窗體上加入Timer控件時,它只出現在設計時,而不會在運行時出現可見的控件圖標。Timer控件帶有兩個重要的參數。Interval(間隔)屬性用來確定Timer控件多久觸發一次,其單位為毫秒,因此當該值為500時,就表示一秒鐘會觸發兩次。Enabled(使能)屬性用來確定Timer控件是運行(Enabled = True)還是停止(Enabled = False)狀態。

    實際的閃爍是在Timer事件中完成的,Timer控件每次觸發,程序都會調用Timer事件。我們可以將Label控件的ForeColor屬性設置為黑色(可見)以及和BackColor屬性一致的顏色(文字和背景色一致,相當于不可見)。以下代碼可以完成檢驗ForeColor屬性的任務:

    Private Sub Timer1_Timer()

    If Label1.ForeColor = Label1.BackColor Then
        Label1.ForeColor = vbBlack
    Else
        Label1.ForeColor = Label1.BackColor
    End If

    End Sub

    另外,你也可以讓文字采用不同的顏色,比如交替采用紅色和綠色:

    Private Sub Timer1_Timer()

    If Label1.ForeColor = vbRed Then
        Label1.ForeColor = vbGreen
    Else
        Label1.ForeColor = vbRed
    End If

    End Sub

    當你停止文字閃爍時,還要確定文字的狀態是可見的并且采用了合適的色彩。要完成這個功能,你需要在停止閃爍時加入以下代碼設置ForeColor屬性:

    Timer1.Enabled = False
    Label1.ForeColor = vbBlack

    本站是提供個人知識管理的網絡存儲空間,所有內容均由用戶發布,不代表本站觀點。請注意甄別內容中的聯系方式、誘導購買等信息,謹防詐騙。如發現有害或侵權內容,請點擊一鍵舉報
    從APP上打開文章,閱讀全文并永久保存 查看更多類似文章
    來自:yuxinrong  > VBA相關
    舉報
    [競彩]  已連中6期!大神密料帶你沖擊500萬,換車買房!
    [競彩]  申方劍爆紅4串1盈利1280%!首充即送99
    猜你喜歡
    類似文章
    vb6.0怎么制作一個抽獎小程序? vb6.0抽獎器的制作方法
    VB常用控件介紹
    巧用Visual Basic的TIMER控件
    1.4 第一個可視化vb.net程序
    VB編熒屏焰火"屏保"程序
    C#制作WinForm控件
    更多類似文章 >>
    生活服務
    綁定賬號成功
    后續可登錄賬號暢享VIP特權!
    如果VIP功能使用有故障,
    可點擊這里聯系客服!
    四虎影视最新地址