一個關於VB 的做的 閃爍文字效果!高手來!

時間 2023-05-20 23:45:03

1樓:邦啟

請複製下面**!已正常。

option explicit

private sub form_load() 850

= =2end sub

sub chc(cont as control, color1 as integer, color2 as integer, color3 as integer)

if val( =color1 = color2

elseif val( =color2 = color3

elseif val( =color3 = color1

= color1end if

= qbcolor( sub

private sub command1_click()unload me

end sub

private sub timer1_timer()chc label1, 1, 4, 8

end sub

重新修改的!

請檢視一下你是否還有在使用timer1控制元件,要不然你多新增一個時間控制元件比如timer2改成。

private sub timer2_timer()chc label1, 1, 4, 8

end sub

就可以了。。。

2樓:歐聯科技

樓上的**應該是沒有問題的,看你的錯誤資訊,應該是**中有兩個timer1_timer() 函式,或者你定義了timer1的變數,建議你把模組中原來所有的**刪除掉,然後複製樓上的**進去,應該就沒有問題了。

關於VB的問題,一個關於VB的問題?

這個實現方法非常簡單,甚至談不上技術。但程式設計師也要講道德,所以不鼓勵你那樣做!給別人找麻煩,自己麻煩會更大.這是要給病毒嗎 沒學過vb,不知道怎麼彈出視窗,用一個for的死迴圈,沒有終止的,for裡面用彈出視窗的命令就好了 ps 程式設計不是用來惡搞的 而且要禁用工作管理員 那隻要呼叫外部命令不...

一個關於VB的問題,關於vb的小問題

s 8vb裡面for迴圈的步頻等是integer整數型別,小數則執行前進行四捨五入。故題中i to step 自動轉換按i 3 to 5 step 1 執行。計算出s 8 step 是手動設定步頻,而vb預設步頻是1。如果步頻不為1,那麼就要手動設定。如設定步頻為2則step 2.步頻就是每迴圈一次...

關於VB程式設計的問題 高手請進,急求一個VB的問題!高手請進。

加一個文字框text1,一個按鈕command1private sub command1 click if trim text1.text thenmsgbox 請輸入數字 text1.setfocus else msgbox val trim text1.text 100 米 left cstr ...