battle programmers alliance

battle programminga forum for elite programmerswith extreme will powerto sharpen theire skills
 
HomeCalendarFAQSearchMemberlistUsergroupsRegisterLog in
Search
 
 

Display results as :
 
Rechercher Advanced Search
Latest topics
» xamarin c# manual image app walkthrough
Sat Aug 12, 2017 2:08 pm by Moti Barski

» win10 shortcut keys
Wed Aug 09, 2017 2:40 am by Moti Barski

» vb.net region
Sat Aug 05, 2017 12:25 am by Moti Barski

» visual studio 2017 xamarin c# hello world walkthrough
Sat Jul 29, 2017 11:34 am by Admin

» gear s3 frontier s voice command list
Sat Jul 22, 2017 7:07 pm by Moti Barski

» how to use magnet links
Wed Jun 28, 2017 3:41 am by kurosen

» evolution of code
Mon Jun 12, 2017 12:08 am by kurosen

» chicken bot
Sat Apr 29, 2017 11:09 am by Moti Barski

» vb.net convert to binary
Thu Apr 27, 2017 7:48 am by Moti Barski

August 2017
SunMonTueWedThuFriSat
  12345
6789101112
13141516171819
20212223242526
2728293031  
CalendarCalendar
Social bookmarking
Social bookmarking Digg  Social bookmarking Delicious  Social bookmarking Reddit  Social bookmarking Stumbleupon  Social bookmarking Slashdot  Social bookmarking Yahoo  Social bookmarking Google  Social bookmarking Blinklist  Social bookmarking Blogmarks  Social bookmarking Technorati  

Bookmark and share the address of battle programmers alliance on your social bookmarking website
Share | 
 

 vb.net convert bitmap to .ico file

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

Posts : 53
Join date : 2011-08-01

PostSubject: vb.net convert bitmap to .ico file   Wed Mar 28, 2012 12: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 : 53
Join date : 2011-08-01

PostSubject: btw   Wed Mar 28, 2012 12: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: