Jeg har brug for en funktion i VB, tilsvarende "this" i java

Me.Caption

//>Rune

Altså this = Me

//>Rune

Hvorfor vil den så ikke acceptere dette:

Private Sub CommandButton1_Click()
    Selection.FormulaR1C1 = Me.Caption
End Sub

Du kan definere et objekt:

Dim DenneKnap as Commandbutton
Set DenneKnap = Form1.CommandButton1

nu kan du tilgå CommandButton1 med DenneKnap som f.eks DenneKnap.Caption = "kurt"

Hvis du ikke helt kender typen på objektet, så bare undlad typen.

Det jeg havde tænkt mig var at der skal oprettes en hulens masse knapper, og i stedet for at skulle ændre indmaden i dem alle, når jeg copy/paster dem, så de refererer til henholdsvis CommandButton1, 2, 3 etc. (Desude vil jeg ikke blot navngive knapperne blot med et nummer, men et navn der beskriver knappens funktionalitet), så skal "this" blot pege på den pågældende kontrol/metode.

FORENKLET EKSEMPEL:

Private Sub CommandButtonKontaktPerson_Click()
    Selection.FormulaR1C1 = THIS.Caption
    MsgBox THIS.Caption
End Sub

Private Sub CommandButtonKundeProfil_Click()
    Selection.FormulaR1C1 = THIS.Caption
    MsgBox THIS.Caption
End Sub

Lav knapperne som et kontrol array:
Kopier så mange du vil, og derefter ændrer du deres captions
Kald knapperne f.eks. cmdKontaktPerson()

Nu gælder koden for alle knapperne i arrayet:
Private Sub cmdKontaktPerson_Click(Index As Integer)
    Selection.FormulaR1C1 = Me.cmdKontaktPerson(Index).Caption
    MsgBox THIS.Caption
End Sub

/tjacob

-hov, glemte a ændre MsgBox Me.cmdKontaktPerson(Index).Caption

Du kan anvende With funktionen i VB:

Private Sub CommandButtonKontaktPerson_Click()
    With CommandButtonKontaktPerson Do
        Selection.FormulaR1C1 = .Caption
        MsgBox .Caption
    End With
End Sub

Private Sub CommandButtonKundeProfil_Click()
    With CommandButtonKundeProfilDo
        Selection.FormulaR1C1 = .Caption
        MsgBox .Caption
    End With
End Sub

Mange tak for hjælpen, nu har jeg bestemt noget at gå ud fra.

Hav en god dag
/Gamle