1樓：墨漬
我可以讓form在螢幕上四處亂撞，你可以在在form上貼個球的**，然後用api把form透明化，只留下**，透明化**我也有。
public a, b
private sub command1_click() '停止移動timer1.interval = 0
end sub
private sub command2_click() '開始移動timer1.interval = 1
end sub
private sub form_load()randomize '初始化移動的方向
a = 50 * rnd
b = 50 * rnd
end sub
private sub timer1_timer()'form1移動
form1.left = form1.left + aform1.
top = form1.top + bif form1.left < 0 or form1.
left + form1.width > screen.width then 'form1碰到左右邊界
a = -a
end if
if form1.top < 0 or form1.top + form1.height > screen.height then 'form1碰到上下邊界
b = -b
end if
end sub
vb設計計時器，vb 設計一個計時器
10ms產生一次timer事件是不行的 因為vb的timer是有一個精度的，精度大約在55ms，所以interval再小就不起作用了，api gettickcount的精度大約也是在55ms，要想獲得更高的精度，可以用api timegettime，其精度大約在1 10ms，如果這個仍然滿足不了你的...
VB組合框，vb組合框設計時怎麼新增列表？
private sub combo1 keypress keyascii as integer 只能輸入數字 select case keyascii case 48 to 57,13 0 9數字和回車鍵為合法資料 if keyascii 13 then 如果回車則新增一筆 combo1.addit...
VB設定中的紅綠燈問題，VB程式紅綠燈設計
command1 click 應該這樣寫。private sub command1 click if dir dgreen then dir dyellow loadpicture dir elseif dir dyellow thendir dred loadpicture dir elsedir...