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

2021-06-18 02:26:53 字數 941 閱讀 4861

閃爍的文字可以在螢幕上起到明顯的提示作用。通過使用

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

以上就是參考

資料庫書籍

所得出的程式設計**結論。

如何用VB製作半透明窗體?

函式setlayeredwindowattributes 使用這個函式,可以輕鬆的實現半透明窗體。按照微軟的要求,透明窗體窗體在建立時應使用ws ex layered引數 用createwindowex 或者在建立後設定該引數 用setwindowlong 我選用後者。全部函式 常量宣告如下 pri...

如何用VB實現Modbus序列通訊

如何用 vb實現 modbus 序列通訊 在一些應用中可能需要使用諸如 vb來進行上位機監控程式的開發,而 modbus 協議是這類應用中首選的通訊協議 modbus 協議以其簡單易用,在工業領域裡已廣泛的為其他第三方裝置所支援。這裡對vb和 twido plc 間的通訊進行說明。對於大部分應用,t...

如何用VB程式設計實現關閉WINDOWS視窗?

如何用vb程式設計實現 關閉當前視窗的功能啊?那位高手知道的幫幫忙啊?我說的是 關閉當前的windows視窗 比如說我剛剛開啟了乙個名為abc 的 資料夾 視窗 我現在想通過 用vb程式設計來實現關閉該視窗的功能?請問該如何編寫 怎麼讓他實現啊?不的結束vb程式哦 1.首行看windows視窗的標題...