battle programmers alliance

battle programming a forum for elite programmers with extreme will power to sharpen theire skills
 
HomeCalendarFAQSearchMemberlistUsergroupsRegisterLog in
Share | 
 

 vb.net convert bitmap to .ico file

View previous topic View next topic Go down 
AuthorMessage
Admin
Admin
avatar

Posts : 52
Join date : 2011-08-01

PostSubject: vb.net convert bitmap to .ico file   Wed Mar 28, 2012 5:00 am

by BenJones of vbf

form controls :
button
open file dialog
savefile dialog

Code:
Public Class Form1
    Private Sub BitmapToIcon16(ByVal BitmapFile As String, ByVal IconFile As String, ByVal TransColor As Color)
        'This little sniplet of code will convert a 16 color bitmap to a icon file.

        'Check that bitmap file is here.
        If Not System.IO.File.Exists(BitmapFile) Then
            MessageBox.Show("Bitmap File Not Found", "File Not Found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        Else
            'Load bitmap
            Dim bmp As Bitmap = Bitmap.FromFile(BitmapFile)
            'Set trans color.
            bmp.MakeTransparent(TransColor)
            'Convert bitmap to icon from bitmap handle
            Dim ico As Icon = Icon.FromHandle(bmp.GetHicon())
            'Create the file that we use for the icon.
            Dim sw As System.IO.StreamWriter = System.IO.File.CreateText(IconFile)
            'Save icon data to filename.
            ico.Save(sw.BaseStream)
            'Close file
            sw.Close()
            'Clear up
            ico.Dispose()
            bmp.Dispose()
            sw.Dispose()
        End If
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            'Make a 32x32 16 color icon from a 16 color bitmap with seleced tranparent color.
            MsgBox("input sized 32 * 32 16 color bitmap (image file)")
            OpenFileDialog1.ShowDialog()
            MsgBox("where would you like to save the icon file?")
            SaveFileDialog1.ShowDialog()
            BitmapToIcon16(OpenFileDialog1.FileName(), SaveFileDialog1.FileName() & ".ico", Color.Green)
        Catch ex As Exception
            MsgBox("input sized 32 * 32 16 color bitmap (image file)")
        End Try
        MsgBox("save completed")
    End Sub
End Class


clown

_________________
kurayami no kagi
Back to top Go down
View user profile http://yotamarker.justforum.net
Admin
Admin
avatar

Posts : 52
Join date : 2011-08-01

PostSubject: btw   Wed Mar 28, 2012 5:03 am

the code has been modified to include a save and open file dialog controls.

_________________
kurayami no kagi
Back to top Go down
View user profile http://yotamarker.justforum.net
 
vb.net convert bitmap to .ico file
View previous topic View next topic Back to top 
Page 1 of 1
 Similar topics
-
» [ANSWERED] Simple CMD Code for Convert ESDWiM
» How to convert selenium project into runnable jar file.
» Sample UI Element file for google site.
» user-extensions.js file is needed
» Anybody any idea abt how to select upload file in webdriver

Permissions in this forum:You cannot reply to topics in this forum
battle programmers alliance :: battle programming alliance :: battle programming-
Jump to: