1樓：匿名使用者
以為打老鼠為例，示例如下：
在form_load事件中輸入下面的**
for i=1 to 15 '因為有16個名稱相同的控制項
command1(i).visible = false '此功能用於在窗體啟動時將所有的控制項隱藏。
next i
介面的其它內容也可以在此設定，例如option1，label1等
然後通過生成乙個隨機數來呼叫按鈕的顯示與隱藏屬性，如果是其他操作，可以在根據實際修改即可
private sub timer1_timer() '在任意的時間只有乙個控制項能夠顯示
js = 4 * int((rnd * 4) + 1) + int((rnd * 4) + 1)
for i = 0 to 15
if i = js then
command1(i).visible = true
else
command1(i).visible = false
end if
next i
end sub
功能延伸：
可以根據按鈕的總數實現乙個迴圈，但到 i 達到某個值的時候，可以指定某個按鈕的相關操作就可實現按鈕陣列操作。
2樓：匿名使用者
事件是相同的,不過可以執行不同的**,通過傳過來的index就行例如private sub command1_click(index as integer)
select case index
case 0
'加按第乙個按鈕的**
'…………
case 1
'加按第二個按鈕的**
'…………
case 2
'加按第三個按鈕的**
'…………
'…………
end select
end sub
3樓：保持距離
private sub command1_click(index as integer)
select case index
case 0
'處理函式
case 1
'處理函式
case else
end select
end sub
vb中如何讓乙個按鈕呼叫另乙個按鈕中的陣列？vb小菜，請高手指教。
4樓：匿名使用者
a陣列是什麼？b陣列又是什麼？問題具體一點，不明白你的意思。
VB如何除去陣列中相同的數，VB 陣列中去掉相同的數
具體思路 實現2次迴圈，乙個陣列迴圈2次，外迴圈陣列，得出乙個值a，然後內迴圈，將a與自身所在的陣列的值對比一次，計算出現次數或者設定為空，如果計算出現次數可以計算次數大於2時候，進行刪除操作。如果設定為空，等於進行刪除操作。具體 如下 option explicit function delete...
vb模組中的過程如何呼叫，VB 模組中的過程如何呼叫？
舉乙個比較直觀的例子 你在模組1中寫好以後函式 public function 直角三角形斜邊 byval 直角邊1 as double,byval 直角邊2 as double 直角三角形斜邊 sqr 直角邊1 2 直角邊2 2 end function 在你要呼叫函式的地方寫上 dim 斜邊 a...
VB怎麼宣告陣列，VB中陣列怎麼定義
如果有規律就可以用for next 來賦值，如果沒有規律，資料又很多的話，就從檔案裡面讀。 dim 陣列名 as int new int vb中陣列怎麼定義 大野瘦子 是這麼定義的 陣列中的第一個元素的下標稱為下界，最後一個元素的下標稱為上界，其餘的元素連續地分佈在上下界之間，且陣列在記憶體中也是用...