TabControl
Declare Function GetKeyState% Lib "User" (ByVal nVirtKey%) Const VK_TAB = 9 Sub Text1_GotFocus () If GetKeyState(VK_TAB) < 0 Then Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Else Text1.SelLength = 0 End If End Sub
Declare Function GetKeyState% Lib "User" (ByVal nVirtKey%)
Const VK_TAB = 9
Sub Text1_GotFocus ()
If GetKeyState(VK_TAB) < 0 Then
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Else
Text1.SelLength = 0
End If
End Sub
( tabcontrol.html )- by Paolo Puglisi
- Modifica del 17/12/2023