1樓：匿名使用者
新建乙個picture控制項，設定picture屬性，雙擊控制項，把
private sub picture1_click()
end sub
撤銷掉，再輸入：
private sub form_load()
picture1.autosize = true
picture1.borderstyle = 0
end sub
private sub picture1_keydown(keycode as integer, shift as integer)
if keycode = 37 then picture1.left = picture1.left - 100
if keycode = 38 then picture1.top = picture1.top - 100
if keycode = 39 then picture1.left = picture1.left + 100
if keycode = 40 then picture1.top = picture1.top + 100
end sub
這些**的意思是：
載入窗體的時候
設定picture1的autosize屬性為true
設定picture1的borderstyle屬性為0
結束這個事件
鍵盤按鍵按下的時候
當按下的是←時，picture1向左移動100個畫素
當按下的是↑時，picture1向上移動100個畫素
當按下的是→時，picture1向右移動100個畫素
當按下的是↓時，picture1向下移動100個畫素
結束這個事件
（ps：在這個程式裡好像沒有出現方法吧？）
2樓：匿名使用者
就是在vb程式中編寫乙個程式，用什麼**可以讓**框或影象框或別的空間按鍵的ascii=vbkeyright then imagebox.left=imagebox.left 你想每次移動的數值
通過VB編寫程式，單擊開始，實現小球從高處落下，碰到地面後彈起到原來高度的一半，再次落下
dim h as integer,h0 as integer,d as integer,n as integer private sub command1 click timer1.enabled true command1.enabled false end sub private sub for...
如何用vb程式設計使自己的程式視窗顯示在最頂層
private declare function setwindowpos lib user32 byval hwnd as long,byval hwndinsertafter as long,byval x as long,byval y as long,byval cx as long,byv...
有6,5,10,2,數,通過怎樣的計算使結果等於
6 10 5 2 24或者6 10 5 2 24 希望能幫到您 6 5 10 2四個數,通過怎樣的計算使結果等於24?至少寫出2種不同的綜合算式。6 10 5 2 24 10 5 2 6 24 滿意請採納 你好,這個可以列出 6 5 10 2 24 2 5 10 6 24 1 2 7 10 10 2...