menuer i VB 6.0

Hvis de tilhørende navne er mnuCom1, mnuCom2, mnuCom3 så skal du blot skrive

Private Sub mnuCom0_Click()
  mnuCom1.Checked = True
  mnuCom2.Checked = False
  mnuCom3.Checked = False
End Sub

Private Sub mnucom1_Click()
mnuCom1.Checked = True
mnuCom2.Checked = False
mnuCom3:Checked = False
End Sub

Hvis menyerne er som i dit eksempel kan du også indexere dem så de får mavnene mnuCom(1), mnuCom(2) og mnuCom(3). Du kan så addressere dem med en For I=1 to 3 sløjfe og skrive
mnuCom(I).Checked = (I=Index)
under

Private Sub mnuCom_Click (Index As Integer)

efry gider du lige poste et svar

lukker