creating new Image object

[joel2892]

i am building a word processor and want to be able add picture to the form. how could i add create imageboxes at runtime so that the user can add pictures as many times as they like. any help would be great as i'm completely baffled how to do this. sorry i dont have any code to post to show.

[RhinoBull]

There two (and ony two) ways to add control at runtime:

- control array (easy and most commonly used)
- controls collection (also easy but creates some problems accessing new controls)

In any case to use control array add new image control in design and set its Index = 0. At runtime use the following logic:

Load Image1(Image1.Ubound + 1)
Image1(Image1.Ubound).Move 100, 100 'you must determine where you want it
Image1(Image1.Ubound).Picture = LoadPicture("full_path_goes_here")
Image1(Image1.Ubound).Visible = True

To utilize controls collection here is the logic:

Dim img As Image
 
Set img = Controls.Add("VB.Image", "imgTemp") 'you need to come up with unique sequence to name each new control
img.Picture = LoadPicture("full_path_goes_here")
img.Move ...
img.Visible = True

[joel2892]

RhinoBull, with the control array code(which i can understand and easily use) does this load many pictures at once or only one and also can, if i put in a function say, run to add as many pictures as i want all individually. Thanks for the code already

[RhinoBull]

You can do that in the loop - here is a general idea:

Option Explicit
 
Private Sub Command1_Click()
    'add 5 more pictureboxes
    AddMorePictures 5
End Sub
 
Public Sub AddMorePictures(iCount As Integer)
Dim i%
 
    For i = Picture1.UBound + 1 To iCount
        Load Picture1(i)
        With Picture1(i)
            .Picture LoadPicture("...")
            .Move '...
            .Visible = True
        End With
    Next i
 
End Sub

[joel2892]

thanks i'll try that and get back to you. sorry about the delay in replying but i couldnt find the thread

[RhinoBull]

... i couldnt find the thread

In case you don't know you can subscribe to a thread.

[joel2892]

Done. thanks for that piece of advice.

[RhinoBull]

Not at all.

[joel2892]

when i use the code above it says method or data member not found(i think) on this bit of code

picture1.Ubound

what could be causing this problem

[joel2892]

***bump****

[RhinoBull]

If you want to use Control Array then set Picture1.Index = 0 (zero) in the properties window.

[joel2892]

i have adapted your code to use the imagebox. but when it runs i get error 13 type mismatch and it highlights the commented line in this code. Why?

Public Sub AddMorePictures(iCount As Integer)
CommonDialog1.ShowOpen
pictureload = CommonDialog1.FileName
    For i = Image4.UBound + 1 To iCount
        Load Image4(i)
       
        'Image1(i).Picture pictureload
        Image1(i).Move 12, 34, 56, 67
        Image1(i).Visible = True
    Next i
 
End Sub

BTW the commented line isnt commented out in my app that is just to show where the error occures

[RhinoBull]

Didn't you see this line in one of my previous posts:

Image1(Image1.Ubound).Picture = LoadPicture("full_path_goes_here")

So, what you need is to properly use LoadPicture() function:

Image1(i).Picture = LoadPicture("c:\temp\some_image.bmp")
'or
Image1(i).Picture = LoadPicture(App.Path & "\Images\some_image.bmp")
'or whatever else the path could be.

[joel2892]

i have used your code and i still get an error on the.loadpicture line(error 13, type mismatch) anyone know why

Public Sub AddMorePictures(iCount As Integer)
CommonDialog1.ShowOpen
pictureload = CommonDialog1.FileName
    For i = Image4.UBound + 1 To iCount
        Load Image4(i)
       
        'Image1(i).LoadPicture pictureload
        Image1(i).Move 12, 34, 56, 67
        Image1(i).Visible = True
    Next i
 
End Sub

[RhinoBull]

How could NOT see the CORRECT syntax I gave you more than once?
Here we go again:

this is what you have:
Image1(i).LoadPicture pictureload

this is what yiou NEED:
Image1(i).Picture = LoadPicture(pictureload)

[joel2892]

yeah. thanks. i think my main problem was when it did work the coordinates were so small i couldnt see it well. but it works fine now apart from the image only loads once and if a new file is selected the old one is overwritten. do i just need to set up a for loop inside which could load new coordinates each time. Thanks again

[RhinoBull]

Great! You're welcome.

[joel2892]

so what about the problems i've got

[RhinoBull]

How do you want to place new controls? Vertically or horizontally?

This way:

A
A
A
A
A

Or this way:

AAAAA

[joel2892]

can it be done when the user clicks on a location on the screen a image is added

[RhinoBull]

Would this sample work for you?

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Load Image1(Image1.UBound + 1)
    With Image1(Image1.UBound)
        .Move X, Y
        .Visible = True
    End With
End Sub

[joel2892]

Would this sample work for you?

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Load Image1(Image1.UBound + 1)
    With Image1(Image1.UBound)
        .Move X, Y
        .Visible = True
    End With
End Sub

yeah. thats great. havent tried it yet but looks good. thanks

[RhinoBull]

NO problem.

[joel2892]

that works great. a few problems to start with but all my fault as per usual. one issue still remains though. when you put an image in place it is always behind the richtextbox even when i have changed this using send to back and bring to front. any way round this. Thanks

[joel2892]

***bump***

[RhinoBull]

Image control is a windowless control (doesn't have a hWnd property) and therefore cannot be on top of any window 9such button, rtb, picturebox, etc). You may either use Picturebox instead OR place Image control inside Picturebox control.

[joel2892]

place Image control inside Picturebox control.

how do i do that

[Hack]

how do i do that

Just click on the ImageList on your toolbox bar and draw it inside of the picture control.

[joel2892]

what does the ImageList logo look like i cant find it

[Harsh Gupta]

what does the ImageList logo look like i cant find it

ImageList is included under Microsoft Windows Common Controls 6.0.

[RhinoBull]

Just click on the ImageList on your toolbox bar and draw it inside of the picture control.

I meant Image Control - not ImageList...

[RhinoBull]

how do i do that

Simply select your Image control and press CTRL+X and then select your picturebox and press CTRL+V - typical Windows CUT and PASTE operation.

[joel2892]

oh right. i'll try that

[Hack]

I meant Image Control - not ImageList...

Actually, so did I.

[joel2892]

so i put the imagebox in the picturebox but how do i need to edit the code so that they both move like the image did

[joel2892]

anyone

[Harsh Gupta]

this is an example using 2 pictureboxes (array members) and 1 RTB, posted by Rhino in some post, i modified it with RTB for you.

Option Explicit
 
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
 
Private Declare Function SendMessageLong Lib "user32" _
        Alias "SendMessageA" ( _
            ByVal hwnd As Long, _
            ByVal wMsg As Long, _
            ByVal wParam As Long, _
            ByVal lParam As Long) As Long
            Private Declare Function ReleaseCapture Lib "user32" () As Long
 
Private Sub Picture1_MouseDown(Index As Integer, Button As Integer, _
                               Shift As Integer, x As Single, y As Single)
                               
If Button = vbLeftButton Then
        ReleaseCapture
        SendMessageLong Picture1(Index).hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
    End If
End Sub
 
Private Sub rtb_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
        ReleaseCapture
        SendMessageLong rtb.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
    End If
End Sub

it will also help you in moving the objects at run-time.

hope it helps you.

[joel2892]

thats cool but for this line of the code

Private Function SetAlignment(lHwnd As Long, ByVal eAlign As ERECParagraphAlignmentConstants

user defined type not defined why is this

[Harsh Gupta]

"ERECParagraphAlignmentConstants" TYPE is missing from your code. you need to declare it before that API.

[joel2892]

and how do i declare that. sorry i'm not well up on that sort of stuff