初学，请高手帮忙

Question

Private Sub Command1_Click()
  Dim i As Integer
  For i = 0 To 2
      Text1(i).Text = ""
  Next i
  Text1(0).getfocus
End SubPrivate Sub Text1_GotFocus(Index As Integer)
  Text1(Index).SelStart = 0
  Text1(Index).SelLength = Len(Text1(Index).Text)
End SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
  If KeyAscii = 13 Then
      SendKeys "TAB"
      KeyAscii = 0
  End If
End Sub为什么调试就提示编译错误：过程声明与同名事件或过程的描述不匹配

Answer 1

你的text1是数组控件啊?
看看text1.index是不是空的,空的话,写个0上去,即可

Answer 2

text1.index是不是空的,空的话,写个0上去
我也不明白为什么要这样改呢？

Answer 3

Text1(0).getfocus改为Text1(0).setfocus
接分啊,嘿嘿

Answer 4

For i = 0 To 2
Text1(i).Text = ""
Next i在你的窗体里,是否还存在名为:Text1,Index=1 和Index=2的文本框吗?
如果不存在,那得点击设计窗为text1.index=0的那个,复制,粘贴两次.//text1.index是不是空的,空的话,写个0上去
//我也不明白为什么要这样改呢？
因为你的事件是采用了,数组控件.事件的Index,即是Text1.Index的值.
如果为空,表示这个控件不是数组控件,与事件描述不一,所以要么改属性,要么改事件的声明

Answer 5

纳闷,index怎么会空呢??等待高手指点...

Answer 6

Text1(0).getfocus ????????????我的VB6里怎么没有getfocus的
是SetFocus吧!

Answer 7

让控件获得焦点，用setfocus
没有getfocus这个方法