Making Picture With VB

Printable View

Jun 1st, 2004, 08:27 AM
asi

Making Picture With VB

Hello everybody!

I Want to know if there is a way to take a picture (jpg,gif) from VB and add Writing to that picture save it and have a new picture.

10x

Yes you can but it will save as a BMP.

VB Code:

Sub Form_Load()
 
Picture1.Picture = LoadPicture(App.Path & "\My Pic.jpg")
 
End Sub
 
Private Sub cmdAddText_Click()
 
Picture1.AutoRedraw = True
Picture1.CurrentX = Picture1.Height / 2 'X Position you want to print text
Picture1.CurrentY = Picture1.Width / 2 'Y Position you want to print text
Picture1.FontSize = 16
Picture1.ForeColor = vbRed
Picture1.Print "This is a sample"
 
End Sub
 
Private Sub cmdSave_Click()
 
SavePicture Picture1.Image,  App.Path & "\Test.bmp"   ' Save picture to file.
 
End Sub

Jun 1st, 2004, 05:59 PM
DovyWeiss

In that example, it should be ScaleWidth and ScaleHeight, not Width and Height. (Because the ScaleMode of the PictureBox could be different than that of the parent Form.)

Also, if you're done, please add [Resolved] to the title...:)

And if you absolutely need to save as a jpg, there are free jpg libraries around.
Jun 2nd, 2004, 01:11 AM
asi

Thank you Keithuk!

DovyWeiss i have saved to a bmp and to jpg and it seems to be very big (bytes) where and what are Jpg libraries and where can i get them ?
Jun 2nd, 2004, 06:35 AM
Keithuk

Thank you DovyWeiss, my mistake. :sick:

I originally used
Picture1.CurrentX = 2000
Picture1.CurrentY = 2000

Then I thought lets put it in the centre but I didn't try it.

:wave:
Jun 2nd, 2004, 06:51 AM
asi

Quote:

Originally posted by asi
Thank you Keithuk!

DovyWeiss i have saved to a bmp and to jpg and it seems to be very big (bytes) where and what are Jpg libraries and where can i get them ?

Do Anybodu have an idea ?
Jun 2nd, 2004, 07:15 AM
madjon

http://www.google.com/search?q=jpeg+...utf-8&oe=utf-8
Jun 9th, 2004, 08:27 AM
asi

Quote:

Originally posted by asi
Thank you Keithuk!

DovyWeiss i have saved to a bmp and to jpg and it seems to be very big (bytes) where and what are Jpg libraries and where can i get them ?

help !!!
i need an answer.
Jun 9th, 2004, 12:26 PM
MartinLiss

Quote:

Originally posted by asi
help !!!
i need an answer.

Did you see madjon's post?

I've attached a Bmp2Jpeg DLL which I use in many projects to convert images between bmp and jpg. Works great!

To use it:

VB Code:

Private Declare Function BmpToJpeg Lib "Bmp2Jpeg.dll" _
    (ByVal bmpFileName As String, ByVal JpegFilename As String, _
     ByVal CompressQuality As Integer) As Integer
 
'To convert an image
Call BmpToJpeg(strBmpFileName, strJpgFileName, 100) 'the last parameter is the picture quality (compression)

Jun 9th, 2004, 03:08 PM
MartinLiss

How do I use reference the dll I tried to add it as a reference - no luck. Tried to register it - no luck.
Jun 9th, 2004, 03:09 PM
Merri

Well, you don't need to reference it, just have it in the app's path or Windows' System folder.
Jun 9th, 2004, 03:21 PM
MartinLiss

OK, it was in app.path and I didn't do anything except what I said and now it works. I guess it's just one of those mysteries.
Jun 9th, 2004, 03:35 PM
Merri

A lot depends on current path, when VB starts, the current path is VB's path (the one defined in the shortcut icon). So once the current path changed to code path where the dll is, it started to work.

Just my guess :)
Jun 9th, 2004, 04:08 PM
DiGiTaIErRoR

Right... if you load a project from within VB, it probably won't work(as the current path is wrong, and the DLL won't be found unless it's in the system directory).
Jun 9th, 2004, 05:13 PM
ae_jester

I'm not sure why registering the DLL doesnt work. I've tried that before and failed. But it seems to work as long as you have it in the directory where your app is running, so thats what I always do.
Jun 10th, 2004, 01:46 AM
asi

First of all Thank u !!
Now i use 100 for compression and i dont get a good quality,what is the best compression ?
even when i put 10000 i get bad quality so i don't understand how the compression works.
Jun 10th, 2004, 02:47 AM
Merri

The scale is 0 - 100 :)
Jun 10th, 2004, 08:12 AM
krtxmrtz

Quote:

Originally posted by ae_jester
I've attached a Bmp2Jpeg DLL which I use in many projects to convert images between bmp and jpg. Works great!
[/Highlight]

Can this dll be used in reverse mode, i.e., jpg 2 bmp? Just curious.
Jun 11th, 2004, 02:46 AM
krtxmrtz

Quote:

Originally posted by DiGiTaIErRoR
Right... if you load a project from within VB, it probably won't work(as the current path is wrong, and the DLL won't be found unless it's in the system directory).

I've had the same problem trying to use this dll, sometimes it works, sometimes it doesn't. I start the project from its own folder where I have placed the dll. I don't understand why it wouldn't work at times.
Jun 11th, 2004, 08:09 AM
krtxmrtz

Help!!!

I reference the dll by the string
app.path & "\Bmp2Jpeg.sll"
and I get this message: file Bmp2Jpeg.dll not found. But IT IS there, in the project folder.
Jun 11th, 2004, 09:17 AM
Merri

Have you checked what App.Path is?
Jun 11th, 2004, 09:23 AM
ae_jester
I hope this is a typo!
VB Code:
```
app.path & "\Bmp2Jpeg.sll"
```
Might want to try dll at the end
Jun 11th, 2004, 09:23 AM
ae_jester

Quote:

I've had the same problem trying to use this dll, sometimes it works, sometimes it doesn't. I start the project from its own folder where I have placed the dll. I don't understand why it wouldn't work at times.

Always works for me!
Jun 11th, 2004, 09:26 AM
krtxmrtz
[QUOTE]Originally posted by ae_jester
[B]I hope this is a typo!
VB Code:
```
app.path & "\Bmp2Jpeg.sll"
```
It is...
Jun 11th, 2004, 09:39 AM
krtxmrtz

Quote:

Originally posted by Merri
Have you checked what App.Path is?

Yes, it's correct.
I have 2 folders in the desktop, each for a different project. For one of them it works but not for the other...!!!!????
Jun 11th, 2004, 09:56 AM
Merri

Urgh, just place the DLL to system or system32 folder and you get no problems.
Jun 11th, 2004, 09:57 AM
krtxmrtz

Also I've tried Dir(app.path & "\Bmp2Jpeg.dll") and it returns an empty string indicating not found.
Jun 11th, 2004, 11:30 AM
krtxmrtz

Quote:

Originally posted by Merri
Urgh, just place the DLL to system or system32 folder and you get no problems.

Yes it does work this way but I still don't see why it works sometimes in the app.path and sometimes it doesn't. I have reasons why I'd rather have the dll in the app folder.

Re: Making Picture With VB

Thanks! This is just what I needed and works like a champ :thumb:
Quote:
Originally Posted by ae_jester
I've attached a Bmp2Jpeg DLL which I use in many projects to convert images between bmp and jpg. Works great!

To use it:
VB Code:
Private Declare Function BmpToJpeg Lib "Bmp2Jpeg.dll" _
    (ByVal bmpFileName As String, ByVal JpegFilename As String, _
     ByVal CompressQuality As Integer) As Integer
 
'To convert an image
Call BmpToJpeg(strBmpFileName, strJpgFileName, 100) 'the last parameter is the picture quality (compression)

All times are GMT -5. The time now is 09:36 AM.