vbscript 的ActiveXコントローラーでタブ移动の実装サンプル

Posted 2021-05-22

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