Saving image

[yurich]

I need to do the following:
1) Load picture (.jpg) in PictureBox/Image.
2) Load textbox on the picture and allow the user drag and drop the textbox into the picture and typing text into the textbox.
3) Saving the picture with this textbox as new file (.jpg)

Any ideas how to implement that?

[manavo11]

To load an image :

PictureBoxName.Picture = LoadPicture(FileName)

[manavo11]

For textbox drag :

Option Explicit
 
Dim XX As Integer
Dim YY As Integer
 
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    XX = X
    YY = Y
End Sub
 
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then
        Text1.MousePointer = vbSizeAll
        Text1.Left = Text1.Left + X - XX
        Text1.Top = Text1.Top + Y - YY
    End If
End Sub
 
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Text1.MousePointer = vbDefault
End Sub

[yurich]

OK. It's easy, what about 'Saving the picture with this textbox as new file (.jpg)' ???

[manavo11]

Well, one (stupid) option is you can take a screenshot of the pic box with the textbox on it and save that...

[yurich]

Originally posted by manavo11
Well, one (stupid) option is you can take a screenshot of the pic box with the textbox on it and save that...

Could you show me how to take a screenshot of the pic box with the textbox on it and save that?

[manavo11]

I'll post it when I get home later...

[manavo11]

Have a look at this