ActiveX Control Hjælp

Hvis jeg har forstået dig ret:

Private intSomeValue As Ingeter

Public Property Get SomeValue() As Integer
    SomeValue = intSomeValue
End Property

Public Property Let SomeValue(ByVal vNewValue As Integer)
    intSomeValue = vNewValue
End Property

Så kan du fra eks. Form1 kalde:

UserControl1.SomeValue = 20
eller
Msgbox \"Somevalue er lig \" & UserControl1.SomeValue

Thats the way to do it!

//Nolle_K

Bortset fra min userdefined type \"Ingeter\" ;-)

Det skulle altså have været en \"Integer\".

winkill: jeg taster i min UserControl11:

Private intSomeValue As Integer

Public Property Get SomeValue() As Integer
    SomeValue = intSomeValue
End Property

Public Property Let SomeValue(ByVal vNewValue As Integer)
    intSomeValue = vNewValue
End Property




og indsetter UserControl11 i min Form1, og skriver i min Form1:

Private Sub Form_Load()
    UserControl1.SomeValue = 20
    MsgBox \"Somevalue er lig \" & UserControl1.SomeValue
End Sub

Så for jeg en Error:
---------------------------
Run-time error \'424\'
Object required
---------------------------

hvad har jeg lavet forkert?

Du indsætter UserControl11 på Form1 og kalder UserControl1.SomeValue = 20 og får så fejlen Object Required... Tjaaa... Prøv at kalde UserControl11.SomeValue i stedet for UserControl1.SomeValue.... der er jo en byte til forskel på de to navne, det kan compileren ikke lide.

Ah, what the h... Jeg kan lige så godt skære det ud i pap.

UserControl11:

Private intSomeValue As Integer

Public Property Get SomeValue() As Integer
    SomeValue = intSomeValue
End Property

Public Property Let SomeValue(ByVal vNewValue As Integer)
    intSomeValue = vNewValue
End Property

Form1:

Private Sub Form_Load()
    UserControl11.SomeValue = 20
    MsgBox \"Somevalue er lig \" & UserControl11.SomeValue
End Sub

winkill: Ja det kan du jo have rat i, min fejl

Tak. ;-)

Any time :)