Source Code of bmp to icon file

-
 Source Code of bmp to icon file
 
 *********************************************************

Imports System.Security.Permissions
Public Class Form1
    <SecurityPermissionAttribute(SecurityAction.LinkDemand, Flags:=SecurityPermissionFlag.UnmanagedCode)> Public Function GetHicon() As IntPtr
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ofd As New OpenFileDialog
        Dim sfd As New SaveFileDialog
        Dim bitmap As Bitmap
        Dim HIcon As IntPtr
        Dim newIcon As Icon
        Dim oFileStream As IO.FileStream
        ofd.Filter = "Bitmap File|*.bmp"
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = ofd.FileName
          bitmap = New Bitmap(ofd.FileName)
            HIcon = bitmap.GetHicon()
            newIcon = System.Drawing.Icon.FromHandle(HIcon)
            sfd.DefaultExt = ".ico"
            If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
                oFileStream = New IO.FileStream(sfd.FileName, IO.FileMode.CreateNew)
                newIcon.Save(oFileStream)
                oFileStream.Close()
            End If
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class
********************** End Project ***************************

Comments

Post a Comment

Popular posts from this blog

Complete Python Database Project with sqlite3

-
Image
Here You can learn how to load sqlite3 data into datagrid using Python . * How to Insert *How to Delete *How to Save *How to Load *Exit button code and *How to search (Screen Shot) **************************************** import os import wx import wx.xrc import wx.grid import sqlite3 import re import string import gettext cwd = os.path.abspath(os.curdir) def connect():         con_str = cwd + '/folder/Test.db'         cnn = sqlite3.connect(con_str)         return cnn         cnn.close() def data_rows():         con = connect()         cur = con.cursor()         cur.execute("SELECT * FROM DATA")         rows = cur.fetchall()         i = 0         for r in rows:                 i+= 1         return i def single_quote_remover(text):     return text.replace ("'","/") class Database ( wx.Frame ):         def __init__( self, parent ):         wx.Frame.__init__ ( self, parent, id = wx.ID_ANY, title =
Read more

Complete StopWatch in Java with source code

-
Image
Complete StopWatch in Java with source code :     (Screen Shot) **************************************** Code Start from Here: package stopwatch; /**  *  * @author Md. Khafi Hossain  */ public class Main extends javax.swing.JFrame {    static int milliseconds = 0; static int seconds = 0; static int minutes = 0; static int hours = 0; static boolean state = true;     /**      * Creates new form Main      */     public Main() {         initComponents();     }     /**      * This method is called from within the constructor to initialize the form.      * WARNING: Do NOT modify this code. The content of this method is always      * regenerated by the Form Editor.      */     @SuppressWarnings("unchecked")     // <editor-fold defaultstate="collapsed" desc="Generated Code">                            private void initComponents() {         jLabel1 = new javax.swing.JLabel();         jButton1 = n
Read more

System sound recorder using NAudio dll with complete code

-
Image
System sound recorder including microphone with vb.net complete code   Please Like & Share code from here  ************************ Imports System Imports System.Collections.Generic Imports System.ComponentModel Imports System.Data Imports System.Drawing Imports System.Linq Imports System.Text Imports System.Windows.Forms Imports NAudio.Wave Imports NAudio.CoreAudioApi Imports System.IO Imports System.Diagnostics Imports System.ComponentModel.Composition Public Class Form1     Dim Time As New DateTime     Private waveIn As IWaveIn     Private writer As WaveFileWriter     Private outputFilename As String     Private outputFolder As String     Public Sub New()         InitializeComponent()         If Environment.OSVersion.Version.Major >= 6 Then             LoadWasapiDevicesCombo()         Else             ComboBox1.Enabled = False             radioButtonWasapiLoopback.Enabled = False         End If         outputFolder = Application.StartupPath & "\Temp"
Read more