[VB] With Types

[dafelix]

Ok ik d8 ff slim te zijn door deze code te gebruiken:

Private Function Turn(Player As String)
If Player = "Player3" Then
 With Player3
Else
 With Player2
End If

.Bot = True
End With

MsgBox Player2.Bot & " - " & Player3.Bot
End Function

Private Sub Form_Load()
Turn ("Player3")
End Sub

Alleen mag dit niet . moet ik nu persee steeds Player3.Bot & Player2.Bot doen, of kan dit anders op een makkeiljke manier?

[Marcade]

dafelix schreef:
Ok ik d8 ff slim te zijn door deze code te gebruiken

?!?!!?? Gewoon een array gebruiken ofzo?

Player().bot ?

Private Function Turn(iPlayerNr AS INTEGER)

 Player(iPlayerNr).bot=true

MsgBox Player(2).Bot & " - " & Player(3).Bot
End Function

Private Sub Form_Load()
Turn 3
End Sub

?!?

[dafelix]

hmmm geen slecht id. zal ff proberen, tnxz

[Marcade]

dafelix schreef:
hmmm geen slecht id. zal ff proberen, tnxz