txtItem_GotFocus

Question

Private Sub txtItem_GotFocus(Index As Integer) 
    txtItem(Index).SelStart = 0 
    txtItem(Index).SelLength = Len(txtItem(Index)) 
End Sub 在生成exe是编译提示：编译错误，子程序或函数未定义，错误提示在txtitem处，程序可以使用但是当要生成exe时就不行了，  
 
 

Answer 1

我试了下面程序,生成EXE完全可以运行,你是怎么弄的?
可能是你的过程名,或者函数名不符合要求,或者文本框名称有误.Private Sub Text1_GotFocus(Index As Integer)
        Text1(Index).SelStart = 0
        Text1(Index).SelLength = Len(Text1(Index))
End Sub

Answer 2

注意看看你的 txtitem 是不是数组？从你的代码来看，你的txtitem是数组，但是就怕控件那边的 属性index 是空白的。