1樓：
我也是初學者,**比較冗繁,還有點小bug
建立一個按鈕控制元件陣列 command1(0),command1(1),command1(2),command1(3)
一個**框控制元件picture1
**如下:
dim a as integer
private sub form_load()
command1(0).caption = "上"
command1(1).caption = "下"
command1(2).caption = "左"
command1(3).caption = "右"
a = inputbox(請輸入每次移動的距離, 輸入, 1000)
end sub
private sub command1_click(index as integer)
'控制**框的移動
select case index
case 0
picture1.top = picture1.top - a
case 1
picture1.top = picture1.top + a
case 2
picture1.left = picture1.left - a
case 3
picture1.left = picture1.left + a
end select
'防止**框丟擲窗體邊緣
if picture1.top <= 0 then
picture1.top = 0
command1(0).enabled = false
else
command1(0).enabled = true
end if
if picture1.top >= form1.height - picture1.height then
picture1.top = form1.height - picture1.height
command1(1).enabled = false
else
command1(1).enabled = true
end if
if picture1.left <= 0 then
picture1.left = 0
command1(2).enabled = false
else
command1(2).enabled = true
end if
if picture1.left >= form1.width - picture1.width then
picture1.left = form1.width - picture.width
command1(3).enabled = false
else
command1(3).enabled = true
end if
end sub
2樓：匿名使用者
算了 舉個例，只寫上鍵 其它的一樣的寫法，a值為移動距離pirvate sub command上_click()picture1.top=picture1.top-aif picture1.
top=<0 then command上.enable=false
command下.enable=true
end sub
急求 VB程式設計題目,謝謝，求1道小學VB程式設計題目 謝謝
dim a 0 to 3 private sub command1 click index as integer list1.additem index end sub private sub command2 click dim n,m m 0 n 0 for i 0 to 3 for j 0 t...
vb程式設計，VB程式設計
大哥你這個問題很簡單，只不過在這裡不能把 全給你，你的問題描述的不清楚，我吧幾個關鍵的技術點告訴你 字型變化有font屬性來實現 按鈕始終在窗體又下放可以再窗體的form resize中設定 按鈕的top和left屬性讓他們分別 me.whith 50,me.heght 50 4 4個按鈕每單擊一次...
VB程式設計問題，VB程式設計問題
dim a,b 定義兩個變體型變數a，b，在該模組範圍內有效 private sub form load 窗體載入事件觸發的函式 a picture1.width 記錄 框控制元件picture1的寬度到a變數 b picture1.height 記錄 框控制元件picture1的高度到b變數 hs...