Variabler

Kode 

    Dim lbl As Label
    For Each lbl In Controls
        If lbl.Name = "lblGood" Then
            lbl.Caption = "It worked"
            Exit For
        End If
    Next

Det kunne ikke bruge til det andet noget, men nu står jeg faktisk og skal bruge den til noget andet...

Private Sub cmdPas_Click()
Dim lbl As Label

If tur = 1 Then
tur = 2
For Each lbl In frmLandkort
If lbl.ForeColor = &HC00000 Then 'Her var (jeg har rettet) den fejl Anders senere taler om
tildeltesoldater = tildeltesoldater + 1
End If
Next
ElseIf tur = 2 Then
tur = 1
For Each lbl In frmLandkort
If lbl.ForeColor = &H8000& Then
tildeltesoldater = tildeltesoldater + 1
End If
Next
End If
lblInfo.Caption = "Klik på det amt du vil placere dine " + tildeltesoldater + " tildelte soldater i"
End Sub

HVORFOR VIRKER DET IKKE???


Er lidt nysgerrig. Hvad skal det bruges til???


Jeg kalder spillet Borgerkrig og som title siger går det ud på at man får tildelt et tilfældigt amt i Danmark og så gælder det om (ligesom i risk) at erobre hele Danmark...
Det er et multiplayerspil som er perfekt tidsfordriv med dine venner når der ikke er andet at tage sig til! Men også godt hvis man skal slappe af... Med andre ord er det altså ikke et action spil som UT 2003, men et spil i 2D hvor man efter tur angriber andre amter eller flyter sine soldater mellem de amter man har erobret!
Alt i alt bliver det ligesom mit foregående spil "Random Game" der også tog alle mine venner med storm, et spil der nok skal få de lange aftener til at gå...

[Redigeret d. 28/03-03 19:06:45 af HAP]