combinatietang
Gebruiker
- Lid geworden
- 24 mrt 2008
- Berichten
- 48
Ik heb een menuvak gemaakt met knoppen. Hierin zitten togglebuttons en commandobuttons.
Met de tab-toets ga ik netjes door het menu, maar als ik de keydown-toets gebruik wordt de togglebutton van false naar true gezet.
Hoe kan ik dit voorkomen of blokkeren??
Code 1: verlegt de focus van commandobutton Cmd4b naar togglebutton Tog5
Private Sub Cmd4b_KeyDown(ByVal Keycode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Keycode = vbKeyTab or Keydown Then Me.CmdHighlight Me.Frm5
Tog5.SetFocus
End Sub
Code 2: verlegt de focus van togglebutton Tog5 naar commandobutton CmdSluiten of Cmd5a
Private Sub Tog5_KeyDown(ByVal Keycode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Keycode = vbKeyTab Or vbKeyDown Then
If Tog5.Value = True Then
Me.CmdHighlight Me.FrmSluiten
CmdSluiten.SetFocus
End If
If Tog5.Value = False Then
Me.CmdHighlight Me.Frm5a
Cmd5a.SetFocus
End If
End If
End Sub
Code 3: deze code bepaalt of togglebutton Tog5 "true" of "false" retourneert, en mag dus niet worden aangezet door vbKeyDown
Private Sub Tog5_Click()
'Submenu vensters openen of sluiten
Call SubVensters
End Sub
Ter info: ik heb alle tabstops en tabindexen in het userform nagekeken. De volgorde klopt.
Met de tab-toets ga ik netjes door het menu, maar als ik de keydown-toets gebruik wordt de togglebutton van false naar true gezet.
Hoe kan ik dit voorkomen of blokkeren??
Code 1: verlegt de focus van commandobutton Cmd4b naar togglebutton Tog5
Private Sub Cmd4b_KeyDown(ByVal Keycode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Keycode = vbKeyTab or Keydown Then Me.CmdHighlight Me.Frm5
Tog5.SetFocus
End Sub
Code 2: verlegt de focus van togglebutton Tog5 naar commandobutton CmdSluiten of Cmd5a
Private Sub Tog5_KeyDown(ByVal Keycode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Keycode = vbKeyTab Or vbKeyDown Then
If Tog5.Value = True Then
Me.CmdHighlight Me.FrmSluiten
CmdSluiten.SetFocus
End If
If Tog5.Value = False Then
Me.CmdHighlight Me.Frm5a
Cmd5a.SetFocus
End If
End If
End Sub
Code 3: deze code bepaalt of togglebutton Tog5 "true" of "false" retourneert, en mag dus niet worden aangezet door vbKeyDown
Private Sub Tog5_Click()
'Submenu vensters openen of sluiten
Call SubVensters
End Sub
Ter info: ik heb alle tabstops en tabindexen in het userform nagekeken. De volgorde klopt.