Guten Tag,

ich schreibe derzeit in der Schule an dem Spiel TicTacToe (auch XXO genannt).

Ich wollte, damit ich weniger arbeit habe, jedes Label mit einer funktion Kontrolieren. Mein Problem ist jetzt jedoch, dass ich die Label nicht beschreiben kann.

Zur Beschreibung was der Code macht:

Ich will bei der Funktion die Bezeichnung der Label festelgen. Diese Bezeichnungen soll er übernehmen und verwenden. Diese Funktion ist, wenn sie in das Sub vom Label eingesetzt wird, voll funktionstüchtig.

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

Private Sub Label1_Click()
    wertesetzen Label1, setlabel1, setlabel_caption1
End Sub
 
Private Sub Label1_Click()
    wertesetzen Label2, setlabel2, setlabel_caption2
End Sub
 
Function wertesetzen(label, setlabel, setlabel_caption)
    If sieger >= "" Then
        If startfreigabe = "True" Then
        If setlabel1 >= "given" Then
            UserForm1.Label10.Caption = "Dieses Feld wurde schon benutzt. Bitte wähle ein anderes!"
        Else
            If zug = 1 Then
                UserForm1.label.Caption = "X"
                setlabel = "given"
                setlabel_caption = "x"
                zug = 2
                UserForm1.Label10.Caption = "" & spieler1 & " hat gespielt. " & spieler2 & " ist am Zug."
            Else
                UserForm1.label.Caption = "O"
                setlabel = "given"
                setlabel_caption = "o"
                zug = 1
                UserForm1.Label10.Caption = "" & spieler2 & " hat gespielt. " & spieler1 & " ist am Zug."
            End If
        End If
    Else
        UserForm1.Label10.Caption = "Bitte erst Namen eingeben!"
    End If
    Else
        UserForm1.Label10.Caption = "Gewonnen hat " + spieler1
        UserForm1.CommandButton3.Visible = True
    End If
    check_Fertig
End Function

Mfg weedo