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 ...