Macro toepassen op meerdere textboxen tegelijk

[Robert971]

Hallo,

Weet iemand hoe onderstaande macro kan worden toegepast op meerdere textboxen tegelijk? Nu is het specifiek voor 1 textbox van toepassing. Het is nogal inefficiënt/tijdrovend
als je dezelfde code voor bijv.: 30 verschillende texboxen moet schrijven.

Private Sub Textbox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

MsgBox "This textbox is locked"

End Sub

Alvast dank.

Robert

 

[Wigi]

Maak een generieke procedure, bvb. DoMsgbox:

Sub DoMsgbox()
   MsgBox "This textbox is locked"
End Sub

Spreek die procedure dan aan in elk van de 30 events:

Private Sub Textbox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   DoMsgbox
End Sub

De generieke procedure kan dan veel meer code bevatten dan 1 regel, je hoeft het maar 1 keer te schrijven en niet te kopiëren.

 

[Roncancio]

Als het alleen om het locken van de textboxen gaat, kan je bij de eigenschappen van de textbox Enabled op False zetten.
De gebruikers kunnen dan de cel niet selecteren en men hoeft dan dus ook niet de msgbox weg te klikken.

Met vriendelijke groet,


Roncancio

 

[snb]

Als een gebruiker toch niets mag veranderen kun je beter een Label gebruiken dan een tekstvak.

 

[xlfac]

ja, of een fucntie maken die alle textboxes op enabled is false zet.
Want stel je wil 100 textboxen aanmaken, dan neemt het ook veel tijd om voor elke textbox de eigenschap te veranderen naar enabled=false.

Dus een functie maken die alle texboxen disabled en dan deze functie uitvoeren tijdens openen userform.

Je kan 100den textboxen toevoegen zonder zorgen te maken of het disabled is ja/nee.

 

[Robert971]

Enabled true/false is idd een optie, maar dan veranderd het lettertype in de textbox helaas.

Een label werk prima in dit geval.


Dank voor jullie input!