Scholieren.com forum - [VB] With Types

Scholieren.com forum (https://forum.scholieren.com/index.php)

- Software & Hardware (https://forum.scholieren.com/forumdisplay.php?f=20)

- - [VB] With Types (https://forum.scholieren.com/showthread.php?t=269846)

dafelix

05-11-2002 10:07

[VB] With Types

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

Code:

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

05-11-2002 22:52

Citaat:

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

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

Player().bot ?

Code:

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

?!? :confused:

dafelix

06-11-2002 09:59

hmmm geen slecht id. zal ff proberen, tnxz

Marcade

07-11-2002 08:19

Citaat:

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

Alle tijden zijn GMT +1. Het is nu 04:51.