2007-07-26 10:27
2007-07-26 11:17
2007-07-26 11:23
2007-07-26 11:34
2007-07-26 11:45
以下是引用心中有剑在2007-7-26 12:07:42的发言：Private Sub Form_Load()
SSTab1.Tab = 0
Text1.TabIndex = 0
ssGotFocus Text1
End Sub
Private Sub SSTab1_Click(PreviousTab As Integer)
Select Case SSTab1.Tab
Case 0
ssGotFocus Text1
Text1.SetFocus
Case 1
ssGotFocus Text2
Text2.SetFocus
Case 2
ssGotFocus Text3
Text3.SetFocus
Case Else
End Select
End Sub
Private Sub ssGotFocus(InText As TextBox)
InText.SelStart = 0
InText.SelLength = Len(InText)
End Sub
对了，我要的就是这个效果！！！太感谢你了！！！
2007-07-26 12:24
我按照你说的还是达不到那种效果啊？！