Tilgang til knapp på egendefinert User Control

[kbm]

Lurer på hvordan du får tilgang til knapper og andre kontrollerer i en egendefinert User Control, fra feks en form hvor du setter inn User Control`en

[aadnk]

Legg til dette i UserControl koden:

 

Public Property Get GetControls() As Object
Set GetControls = UserControl.Controls
End Property

 

Hva koden gjør er hente pointeren til collectionen med kontroller i usercontrol'en.

Skal du f.eks endre på Caption i Command1 gjør du slik:

 

Dim Con As Object, Control As Control

' Endre UserControl1 med navnet på kontrollen din. 
Set Con = UserControl1.GetControls

For Each Control In Con
' Søker gjennom alle kontroller
If Control.Name = "Command1" Then
Control.Caption = "Hello!"
End If
Next

Endret 24. januar 2004 av aadnk

[kbm]

Ok da tror jeg at jeg er hjulpet langt på vei.

Takk for tipset