VB.Net Tutorial/2D Graphics/Icon
Версия от 19:40, 26 мая 2010; (обсуждение)
Draw an Icon
<source lang="vbnet">Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class DrawIconUnstretched
public Shared Sub Main Application.Run(New Form1) End Sub
End class public class Form1
Inherits System.Windows.Forms.Form Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs) " Drawing an Icon Dim icon As New Icon("1.ico") Dim x As Integer = 50 Dim y As Integer = 100 e.Graphics.DrawIcon(icon, x, y) Dim rect As New Rectangle(50, 100, 400, 400) e.Graphics.DrawIconUnstretched(icon, rect) End Sub Public Sub New() MyBase.New() Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 273) Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen End Sub
End Class</source>
Get Height and size of an Icon
<source lang="vbnet">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</source>