imagebox

[whygh]

hi,

I have solved the problem that show more than image at the same time by dynamicly adding the imagebox control.

this is my code:

rs.Open "select Location from Image where image='" & Text1(0).Text & "' ", cnn, adOpenStatic

If rs.EOF Then Exit Sub

If Not rs.EOF Then rs.MoveFirst

For i = 1 To rs.RecordCount
If rs.Fields("location").Value <> "" Then
Load Image2(i)
Image2(i).Visible = True
Image2(i).Top = Image2(0).Top + Image2(0).Height * i + 40 * i
Image2(i).Picture = LoadPicture(rs.Fields("location").Value)

End If
rs.MoveNext
Next i

now I have another question, I want to let the imagebox change the color or something when the mouse click it,so end-user know the imagebox chosed.

And then I can capture this action and do next step.

My question:
1.how to change the imagebox color or sth
2.how to capture the action


thanks

[mstraf]

there is not much you can do with an Image control besides loading an Image. But you can use the BorderStyle property to mark a selected Image. Set the BorderStyle to 0 (no border) and change it in the Click event (and remember to reset it for the previously selected Image) If you want something more fancy, you can draw a rectangle around the Image using the Line method of the Form object (this is more tricky because you have to redraw it in the form Paint event)

Marco

[RHelliwell]

You can use the 'shape' control to make a box, rather than drawing 4 lines...

[whygh]

Thanks for help

aleady done

[mstraf]

You can use the 'shape' control to make a box, rather than drawing 4 lines...

true. then the box can be moved at the location of the selected image. very nice idea, I like it!
Marco