Tjena!

Ska göra en funktion som flyttar ner min figur.... Ser ut ungeför så här:
Den ska kolla om fillstyle =0 den är ifylld annasr köra på. Hoppas nån fattar!
[KOD]
Private Sub cmdNer_Click()
Call list_fig
' En fnktion som ska flytta ner figuren tills den möter någon annan. Lättare sagt en gjort
Timer1.Enabled = False ' slår av timern
Dim c As Integer
c = 0
Do Until c = 25
If Shape1(ner1 - (10 * c)).FillStyle = 0 Then
Print " vardet vi letar efter ar c då fixar sig resten" & c
Exit Do
Else
Print "hmm?"
c = c + 1
End If
Loop
Print c
Timer1.Enabled = 1 ' Sätter på timern igen
End Sub
[/KOD]

problemet är att det alltid blir c =0

Hej
1. C blir kanske inte blir noll
If satsen ser mystisk ut IF vadå ?
Do Until c >25
If Shape1(ner1 - (10 * c)) = ? And FillStyle = 0 Then
Print " vardet vi letar efter ar c då fixar sig resten" & c
Exit Do
Else
Print "hmm?"
c = c + 1
End If
Loop
Print c
Timer1.Enabled = 1 ' Sätter på timern igen
End Sub

mvh
Sven

från början så är alla shape's fillstyle 1
nu vill jag kolla om den har fillstyle 0 typ
If Shape1(ner1 - (10 * c)).fillstyle= 0 Then

Hej
Okidoki nu ser jag hur du menar.
Dim c As Integer
c = 0
Do Until c > 25
If Shape1(ner1 - (10 * c)).FillStyle = 0 Then
Print " vardet vi letar efter ar c då fixar sig resten" & c
Exit Do
Else
Print "hmm?"
c = c + 1
End If
Loop
Print c
Timer1.Enabled = 1 ' Sätter på timern igen
End Sub

Om du får c till 0 hela tiden betyder det tydligen
att FillStyle = 0 hela tiden 10 * 0 = 0
ner1 - 0 = ner1 ,så vid första körning är tydligen ner1 FillStyle = 0
Du kommer aldrig längre.

mvh
Sven