Skip to content

Instantly share code, notes, and snippets.

@toagit

toagit/ActiveXTabOrder.vbs

Last active July 25, 2016 05:12
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save toagit/9bab79afc82be32c9443524542ecb384 to your computer and use it in GitHub Desktop.
Save toagit/9bab79afc82be32c9443524542ecb384 to your computer and use it in GitHub Desktop.
Download ZIP
ActiveXコントローラーでタブ移動の実装サンプル
Raw
ActiveXTabOrder.vbs
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Call MoveNextController(KeyCode, TextBox2)
End Sub
Public Sub MoveNextController(ByVal KeyCode As MSForms.ReturnInteger, nextCtrl As Object)
If KeyCode = vbKeyTab Or KeyCode = vbKeyReturn Then
nextCtrl.Activate
End If
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment