Can anyone explain me how to convert a ico file to a bmp file? I need it for a Icon extractor > yeah I know it allready exists, but it's for my own practice :)
Thanx anyone who can help me!
Jop
Printable View
Can anyone explain me how to convert a ico file to a bmp file? I need it for a Icon extractor > yeah I know it allready exists, but it's for my own practice :)
Thanx anyone who can help me!
Jop
Load the icon into a picturebox, Use Bitblt to copy your icon to another picturebox, set the pictureboxproperty picture to its image property and save it with savepicture
Code:print "Content-type: text/html ";
print "Hello World!"
Code:Picture1.Autosize = True
Picture1.Picture = LoadPicture("C:\MyBitmap.bmp")
SavePicture(Picture1.Image, "C:\MyIcon.ico")
LAupro, ICo2bmp not bmp2ico, thats not that easy to convert a bmp to ico either, The file will be in bmp format with an ico extention,
You could also load a bmp into a picturebox and
use the extracticon method to set a hidden button's
mouseicon property to the bmp. Then load the mouseicon
into an imagelist and load the imagelist(1) into another
picturebox and then use the savepicture function.
it isn't the best way, but hey, it works.
Code:Picture1.visible = True
Picture1.Autosize = True
Picture1.Picture = LoadPicture("C:\MyIcon.ico")
SavePicture(Picture1.Image, "C:\MyBitmap.bmp")
Ok thanks for your help guys!
But I have another question:
How can I display a " in a textbox? Because if I just do
txt1.Text = " & cool1.Text
it doesn't work.
I've also tried the escape characters from Javascript ( \ ) and ' but neither works.
In other words, what's the escape character for VB?
Thanks for your help guys!
_/Jop\_
txt1.Text = Chr$(34) & cool1.Text