Question about For next and variable

[fly_dragoon]

Hi everyone!!!

Here is my problem:

I used the code of a graphic filther that I found on this site
(here's the code) |
|
V

For x = 1 To FrmDessin1.PictureDessin.ScaleHeight - 3
For y = 1 To FrmDessin1.PictureDessin.ScaleWidth - 3
pixval = FrmDessin1.PictureDessin.Point(y+ CInt(Rnd * 10), x + CInt(Rnd * 10))
red_val = "&h" & Mid$(CStr(Hex(pixval)), 5, 2)
green_val = "&h" & Mid$(CStr(Hex(pixval)), 3, 2)
blue_val = "&h" & Mid$(CStr(Hex(pixval)), 1, 2)
If red_val = "&h" Then red_val = "&h0"
If green_val = "&h" Then green_val = "&h0"
If blue_val = "&h" Then blue_val = "&h0"
FrmDessin1.PictureDessin.PSet (y, x), RGB(red_val, green_val, blue_val)
Next
Next

Now 1st when I used it, it worked fine but....I did something later
and now my Application won't compile. The error said that the variable x and y were not defined.

could someone tell me what could I have done wrong and how to
make it work again?

[BuggyProgrammer]

i thought it would have been pretty obvious.....

put this at the top of the sub

Dim x as long
dim y as long

[Arc]

Try using


Next Y
Next X


If thats not the problem then you should dim the variables


Dim X as Interger, Y As integer

[fly_dragoon]

It's the first thing I did but if I do that it ask me the same thing with pixval and the other's

(the code work on another program I made and the original code doesn't need to dim any variable)

I'll put a demo to show you that it work without any dimed variable

I think elsewhere on my program code I did something that stopped the filther from working...but I don't know what....do you know what could I have done wrong?

[BuggyProgrammer]

check at the very top of you form and see if Option Explicit is there

[fly_dragoon]

I found 2 problems:

-the Option explicit was changed of place somehow

-a piece of code that was using the same variable

thank's now it work again