Visual Basic Forum

Oberxil · Coder Anmeldedatum: 14.06.2008 Beiträge: 87

Ich bin mir 100% sicher, dass kein Fehler drin is, woran liegt das:(
Hier der Code, beim letzten "next i" kommt der error

Visual Basic: [code]

On Error Resume Next
Dim a As Long

For a = 1 To 50
Picture1(a).Picture = LoadPicture("C:Bilder" & a & ".jpg")
Next a

Dim i As Long
For i = 1 To Anzahl

If bStop <> True Then
Call MoveMouse(600, 675)
Call MouseClick

Sleep (0.5)
Else

Exit Sub
End If

If bStop <> True Then
Call MoveMouse(150, 610)
Call MouseClick
Else

Exit Sub
End If

If bStop <> True Then
Call MoveMouse(340, 610)
Call MouseClick

Else

Exit Sub
End If

Call ScreenShot

Sleep (1)

Dim bla As Integer
Dim pic As Integer
Dim y As Long
For y = 1 To 50
bla = 0
Dim b As Long
Dim x As Long

For b = 1 To Picture1(0).ScaleHeight Step 50
For x = 1 To Picture1(0).ScaleWidth Step 50

If Picture1(0).Point(b, x) <> Picture1(y).Point(b, x) Then
bla = bla + 1
End If

Next x
Next b

If bla = 0 Then
pic = Picture1(y).Index

End If

If bStop <> True Then
Call MoveMouse(400, 610)
Call MouseClick
Else

Exit Sub
End If

Sleep (7)

If bStop <> True Then
Call MoveMouse(150, 345)
Call MouseClick
Else

Exit Sub
End If

Sleep (2)

Form1.Caption = i

Next i 'Hier kommt der Error

MsgBox "Fertig"
End Sub[/code]

Ich weis, dass es unsauber gocoded ist^^
Aber normalerweise kommt doch der Error nur bei sowas zb:

for i = ...
for x = ...
....
next i
next x
_________________

ZiuX · « Moderator » Anmeldedatum: 02.05.2008 Beiträge: 160

warum I As Long und nicht als Integer?
_________________
ziux[ät]jabber.ccc.de
Z1uX.cn

ZiG · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 421

Die "For y" Schleife wird nicht geschloßen.
_________________

Oberxil · Coder Anmeldedatum: 14.06.2008 Beiträge: 87

Man wie konnt ich das übersehen bin es 5 mal durch gegangen thx^^