1樓：匿名使用者
dim i'定義乙個變數來儲存事件的次數
private sub form_load()timer1.interval = 500'每隔500毫秒計時器觸發一次事件，也就是每隔500毫秒顯示三種顏色
end sub
private sub timer1_timer()static times as integertimes = times + 1'事件每次+1select case times
case 1
me.backcolor = vbred'紅case 2
me.backcolor = vbyellow'黃case 3
me.backcolor = vbgreen'綠case 4
times = 0'事件清零，之後會重複到開頭end select
end sub
2樓：科技程式迷
新增timer控制項，設定timer控制項的interval屬性為500private sub timer1_timer()static swc as integer'切換開關變數swc=swc+1
if swc=1tthen
me.backcolor=vbred '紅elseif swc=2 then
me.backcolor=vbgreen '綠elseif swc=3 then
me.backcolor=vbyellow '黃swc=0'開關標誌清零
end if
end sub
在窗體上繪製列表框，在窗體上繪製乙個列表框
private sub form load list1.additem item1 list1.additem item2 list1.additem item3 list1.additem item4 end sub private sub list1 click list1.removeitem...
VB編寫程式 設計程式，當單擊窗體時，在窗體上顯示任意一
假設你的 路徑為d fafa.gif,如下 private sub form click picture1.picture iif picture1.picture loadpicture loadpicture d fafa.gif loadpicture end sub 這樣就可以單擊切換 了，...
可以在窗體模組的通用宣告段中宣告什麼
1 宣告乙個全域性 非陣列 變數。option explicit public a as double 它可在其它窗體以該窗體名。變數名使用。2 宣告區域性變數或陣列變數，見下面 option explicit public a as double 宣告全域性變數dim b 10 as single...