afzonderlijke command button click events vergemakkelijken

[bjornesto]

Beste

Onderstaande code zit in een userform en werkt
dit zijn allemaal command buttons op die userform
Als je op die buttons klikt zou hij in een andere userform die moeten invullen in een textvak

Is er een methode om dit makkelijker te doen in plaats van met afzonderlijke click events?

Private Sub CommandButton1_Click()
With userform_key
.TextBox4.Value = Keys_HO.CommandButton1.Caption
.TextBox5.Value = "HO entrance East / Reception contractors West"
End With
Unload Me
End Sub

Private Sub CommandButton2_Click()
With userform_key
.TextBox4.Value = Keys_HO.CommandButton2.Caption
.TextBox5.Value = "N21"
End With
Unload Me
End Sub

Private Sub CommandButton3_Click()
With userform_key
.TextBox4.Value = Keys_HO.CommandButton3.Caption
.TextBox5.Value = "Meetingrooms GF & -1S"
End With
Unload Me
End Sub

Private Sub CommandButton4_Click()
With userform_key
.TextBox4.Value = Keys_HO.CommandButton4.Caption
.TextBox5.Value = "First aid"
End With
Unload Me
End Sub

Private Sub CommandButton5_Click()
With userform_key
.TextBox4.Value = Keys_HO.CommandButton5.Caption
.TextBox5.Value = "Restaurant"
End With
Unload Me
End Sub

Private Sub CommandButton6_Click()
With userform_key
.TextBox4.Value = Keys_HO.CommandButton6.Caption
.TextBox5.Value = "Security Room"
End With
Unload Me
End Sub

 

[edmoor]

Iedere knop heeft z'n eigen event routine nodig. Je zou wel per knop dit kunnen doen:

Private Sub CommandButton1_Click()
    'HO entrance East / Reception contractors West
    Call ButtonsClick(ActiveControl.Caption, ActiveControl.Tag)
End Sub

Private Sub CommandButton2_Click()
    'N21
    Call ButtonsClick(ActiveControl.Caption, ActiveControl.Tag)
End Sub

met deze routine erbij:

Private Sub ButtonsClick(Opschrift As String, label As String)
    With userform_key
        .TextBox4.Value = Opschrift
        .TextBox5.Value = label
    End With
    Unload Me
End Sub

Iedere knop heeft dan z'n eigen Caption en een regel die je in het Tag attribuut zet.
Zo heb je dan per knop 1 routine van 3 regeltjes en maar 1 routine die de andere zaken regelt.

Daarnaast zou je er een eigen Class voor kunnen maken, maar bovenstaande is een stuk eenvoudiger.

 

[bjornesto]

Dank u

Daar kan ik mee aan de slag

Ga dan ook is proberen om met class module dit in orde te krijgen

Maar ga eerst nog wat opzoekwerk daarvoor verrichten en puzzelen