Image Arrays

[lotus18]

Hello World

I'm back again. LOL


How to make an image arrays? I have 6 images named Button (Index from 1-6). I'm working on MouseMove events these images. So far I have these codes:

[CODE=vb]Public Sub DefaultImage()
It should be array
For i = 1 To 6
Button(i).Pictu re = LoadPicture(App .Path & "\Images\Button Normal.jpg")
Next i
End Sub

Private Sub Button_MouseMov e(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
...
End Sub

[/CODE]


This is my previous code and the Button were not on control arrays. This is working. I just want to shorten my codes. Thanks : )

[CODE=vb]Public Sub DefaultImage()
Button1.Picture = LoadPicture(App .Path & "\Images\Button Normal.jpg")
Button2.Picture = LoadPicture(App .Path & "\Images\Button Normal.jpg")
Button3.Picture = LoadPicture(App .Path & "\Images\Button Normal.jpg")
Button4.Picture = LoadPicture(App .Path & "\Images\Button Normal.jpg")
Button5.Picture = LoadPicture(App .Path & "\Images\Button Normal.jpg")
Button6.Picture = LoadPicture(App .Path & "\Images\Button Normal.jpg")
End Sub

Private Sub Button1_MouseMo ve(Button As Integer, Shift As Integer, X As Single, Y As Single)
DefaultImage
Button1.Picture = LoadPicture(App .Path & "\Images\Button Hot.jpg")
End Sub

...

Private Sub Button6_MouseMo ve(Button As Integer, Shift As Integer, X As Single, Y As Single)
DefaultImage
Button6.Picture = LoadPicture(App .Path & "\Images\Button Hot.jpg")
End Sub
[/CODE]

[debasisdas]

What is the problem with the new code ?

[QVeen72]

Hi,

Just change your Mouse move event like this..


[CODE=vb]
Public Sub DefaultImage()
Dim i As Integer
For i = 1 To 6
Button(i).Pictu re = LoadPicture(App .Path & "\Images\Button Normal.jpg")
Next i
End Sub

Private Sub Button_MouseMov e(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
DefaultImage
Button(Index).P icture = LoadPicture(App .Path & "\Images\Button Hot.jpg")
End Sub

[/CODE]


Regards
Veena

[lotus18]

What is the problem with the new code ?

Hi

Thanks for replying. If you notice that on my first code line #9 it contains only .... Hehe...

[lotus18]

Hi Veena

Thanks. I'll try that later : )

[lotus18]

Hi,

Just change your Mouse move event like this..


[CODE=vb]
Public Sub DefaultImage()
Dim i As Integer
For i = 1 To 6
Button(i).Pictu re = LoadPicture(App .Path & "\Images\Button Normal.jpg")
Next i
End Sub

Private Sub Button_MouseMov e(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
DefaultImage
Button(Index).P icture = LoadPicture(App .Path & "\Images\Button Hot.jpg")
End Sub

[/CODE]


Regards
Veena

Hi Veena

I tried it and there's an error. The error says that an Compile Error: Expected Array :(

[QVeen72]

Hi,

Which Line you are getting the error...?
What version ? VB6 or VB.net...?


Regards
Veena

[lotus18]

Hi,

Which Line you are getting the error...?
What version ? VB6 or VB.net...?


Regards
Veena

Hi

Sorry for the late reply. I'm getting an error at line #10. I'm using vb6.

[Killer42]

In VB6, you're much better off using control arrays. But I don't quite understand what the problem is, or why you are moving away from control arrays.

[Killer42]

Sorry, I'm confused. which is the old code, and which is the new?

[Killer42]

I think this may be the line you're after...
[CODE=vb]Button(Index).P icture = LoadPicture(App .Path & "\Images\Button Hot.jpg")[/CODE]

[pureenhanoi]

Hi Veena

I tried it and there's an error. The error says that an Compile Error: Expected Array :(

This error occures caused of Pictures in your form in diffrent name (Button1, button2...)
If you want use the given code, set the same name for 6 picturebox. Just named them with "Button". If VB6 ask you to create an array of picturebox, click "Yes" to accept.
If you could see in the Property window, all of these picturebox have same name "Button", and the Index property is increment from 0..5. So that the good time for runing given code again.

I must edit some thing on my post, caused the given code use "For i=1 To 6"
You can use "For i=0 To 5" instead, or set the index of 6 pictureboxs increment from 1..6

[lotus18]

This error occures caused of Pictures in your form in diffrent name (Button1, button2...)
If you want use the given code, set the same name for 6 picturebox. Just named them with "Button". If VB6 ask you to create an array of picturebox, click "Yes" to accept.
If you could see in the Property window, all of these picturebox have same name "Button", and the Index property is increment from 0..5. So that the good time for runing given code again.

I must edit some thing on my post, caused the given code use "For i=1 To 6"
You can use "For i=0 To 5" instead, or set the index of 6 pictureboxs increment from 1..6

Hi

If notice on my 1st post, in code #1, I stated there that the name of my Image is Button and they are in array control (Index from 1 to 6). But in code #2 on the same post, my buttons which are the images are not in control array instead, they are named as Button1, Buttton2,...Button6

Rey Sean

[klvnwafu]

hello world,
what is the code for arc sine and arc cosine please help thank you!

[lotus18]

hello world,
what is the code for arc sine and arc cosine please help thank you!

Hello

You are out of the topic. Please start a new thread.

Rey Sean