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]

<pre>If lbl = &HC00000 Then</pre>

Burde der ikke stå noget efter ibl, f.eks. ".ForeColor". Hvis det er farven du ville checke ?

---
Hilsen Anders

<pre>If lbl = &HC00000 Then</pre>

Burde der ikke stå noget efter ibl, f.eks. ".ForeColor". Hvis det er farven du ville checke ?

---
Hilsen Anders

Jo... Du har fuldstændig ret og jeg har også ændret det nu, men det virker stadig ikke...

Nu ved jeg ikke lige hvad format lbl.ForeColor giver, men måske du skal have "" uden om dinne farver?

Får du en fejl meddelelse, eller tæler den dem bare ikke?
---
Hilsen Anders

Jeg får en fejlmeddelsen der siger at der er fejl i linien:
For Each lbl In frmLandkort

Jeg får en fejlmeddelsen der siger at der er fejl i linien:
For Each lbl In frmLandkort

Har du prøvet med Controls istedet for frmLandkort ?, bare en ide (ligesom et der blev vist i første script?)

---
Hilsen Anders

Jeg får en fejlmeddelsen der siger at der er fejl i linien:
For Each lbl In frmLandkort

Har du prøvet med Controls istedet for frmLandkort ?, bare en ide (ligesom et der blev vist i første script?)

---
Hilsen Anders

yepper! men det virker heller ikke

Prøv selv og lav et lille vb projekt hvor du bruger denne kommando... Får du en fejl?

[Redigeret d. 28/03-03 20:43:56 af HAP]

Har nemlig ikke Visual Basic, så det er derfor jeg ikke så godt kan teste det
---
Hilsen Anders

Har nemlig ikke Visual Basic, så det er derfor jeg ikke så godt kan teste det
---
Hilsen Anders

Surt... Mens vi har snakket har jeg lavet spillet helt færdigt og gennemtestet det. Alt virker

Jeg mangler bare den ene kommando så er programmet på de 2000 linier færdigt!!!

Måske det skal være frmLandkort.Controls ?

---
Hilsen Anders