关于按钮的一个小问题，请教大虾们

Question

定义一个数组，在CLICK里添加command(inex+1).setfocus偶对VB也不是很熟，又再网吧，没办法做实验，楼主，自己试试吧

Answer 1

基本上这种事情最方便的形式就是用按数组，按钮数组只要有一个事件就可以子，所有的事情都在这一个事件中集中处理如按钮的名字叫 cmdFunPrivate Sub cmdFun(Index as Integer)
    SendKeys "{TAB}"
 
   ''各个按钮功能的实现
    Select Case Index
         Case 0
         Case 1
    End Select
End Sub

Answer 2

确实应把按钮设成数组
Private Sub Command1_click(Index as Integer)
Command1(index).SetFocus
end sub

Answer 3

笔误：Command1(index+1).SetFocus

Answer 4

Private Sub Command1_click(Index as Integer)
if index=100 then
   index=-1
end if   
Command1(index+1).SetFocus
end sub

Answer 5

Private Sub Command1_click(Index as Integer)
if index < command1.ubound then
Command1(index+1).SetFocus
end if
end sub

Answer 6

to:FUNDGIRL(阿弥陀佛)
   不懂才问人，何必骂人。
我日你奶奶！！1