Funktion som ændrer et label

Prøv at bruge dette istedet

Private Sub Label1_Click()
    Dim tempcolor As ColorConstants
    tempcolor = Label1.ForeColor
    Label1.ForeColor = Label1.BackColor
    Label1.BackColor = tempcolor
End Sub


Her kalder jeg min label for label1 hvor din hedder thislabel.

Kedde

Jeg vil gerne lave en funktion så den samme kode kan bruges på flere labels

Prøv dette :
Dim tempcolor As ColorConstants
tempcolor = Label2.ForeColor
Label2.ForeColor = Label2.BackColor
Label2.BackColor = tempcolor

hyde

Arrrghh .. havde ikke set dit indlæg Kedde

Hvis du laver et control array af labels så kan du bruge denne kode!!

Private Sub thisLabel_Click(Index As Integer)
    Dim tempcolor As ColorConstants
    tempcolor = thisLabel(Index).ForeColor
    thisLabel(Index).ForeColor = thisLabel(Index).BackColor
    thisLabel(Index).BackColor = tempcolor
End Sub

Du opretter et control array, ved at lave et kopi af din label på formularen.

Kedde

Hy>> Nej det gælder om at komme hurtigt ud af start hullerne, for at følge med :-))

Smart... Tak for hjælpen