VB.Net by API/System.Drawing/Icon
Icon.Height
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
Imports System.Drawing
public class MainClass
public Shared Sub Main
" Create an Icon
Dim curIcon As New Icon("1.ico")
" Set Form"s icon
"Me.Icon = curIcon
Console.WriteLine(curIcon.Height)
Console.WriteLine(curIcon.Width)
Console.WriteLine(curIcon.Size)
End Sub
End class
Icon.Size
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
Imports System.Drawing
public class MainClass
public Shared Sub Main
" Create an Icon
Dim curIcon As New Icon("1.ico")
" Set Form"s icon
"Me.Icon = curIcon
Console.WriteLine(curIcon.Height)
Console.WriteLine(curIcon.Width)
Console.WriteLine(curIcon.Size)
End Sub
End class
Icon.ToBitmap()
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class DrawIcons
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
Public Sub New()
MyBase.New()
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(344, 273)
End Sub
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
Dim curIcon As New Icon("1.ico")
Dim bmp As Bitmap = curIcon.ToBitmap()
Dim g As Graphics = e.Graphics
g.Clear(Me.BackColor)
g.DrawImage(bmp, 10, 10)
g.Dispose()
End Sub
End Class
Icon.Width
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
Imports System.Drawing
public class MainClass
public Shared Sub Main
" Create an Icon
Dim curIcon As New Icon("1.ico")
" Set Form"s icon
"Me.Icon = curIcon
Console.WriteLine(curIcon.Height)
Console.WriteLine(curIcon.Width)
Console.WriteLine(curIcon.Size)
End Sub
End class
New Icon(String fileName)
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class DrawIcons
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
Public Sub New()
MyBase.New()
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(344, 273)
End Sub
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
Dim curIcon As New Icon("1.ico")
Dim bmp As Bitmap = curIcon.ToBitmap()
Dim g As Graphics = e.Graphics
g.Clear(Me.BackColor)
g.DrawImage(bmp, 10, 10)
g.Dispose()
End Sub
End Class