Mega Code Archive

 

Categories / VB.Net / GUI

 

Design and use an Splash Screen

Imports System Imports System.Runtime.InteropServices Imports System.Drawing Imports System.ComponentModel Imports System.Windows.Forms Imports System.IO Public Class MainClass          Shared Sub Main(ByVal args As String())         Dim dlg As New dlgSplash()         dlg.ShowDialog()                  End Sub End Class Public Class dlgSplash     Private Sub dlgSplash_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint         Dim bm As Bitmap = New Bitmap("figure2.bmp")         ' Make the bitmap's "background" pixels transparent.         bm.MakeTransparent(bm.GetPixel(1, 1))         e.Graphics.DrawImage(bm, New PointF(0, 0))     End Sub End Class <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Partial Public Class dlgSplash     Inherits System.Windows.Forms.Form     'Form overrides dispose to clean up the component list.     <System.Diagnostics.DebuggerNonUserCode()> _     Protected Overrides Sub Dispose(ByVal disposing As Boolean)         If disposing AndAlso components IsNot Nothing Then             components.Dispose()         End If         MyBase.Dispose(disposing)     End Sub     'Required by the Windows Form Designer     Private components As System.ComponentModel.IContainer     'NOTE: The following procedure is required by the Windows Form Designer     'It can be modified using the Windows Form Designer.       'Do not modify it using the code editor.     <System.Diagnostics.DebuggerStepThrough()> _     Private Sub InitializeComponent()         Me.components = New System.ComponentModel.Container         Me.Label3 = New System.Windows.Forms.Label         Me.Label2 = New System.Windows.Forms.Label         Me.Label1 = New System.Windows.Forms.Label         Me.tmrUnload = New System.Windows.Forms.Timer(Me.components)         Me.SuspendLayout()         '         'Label3         '         Me.Label3.BackColor = System.Drawing.Color.Transparent         Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))         Me.Label3.Location = New System.Drawing.Point(16, 120)         Me.Label3.Name = "Label3"         Me.Label3.Size = New System.Drawing.Size(320, 24)         Me.Label3.TabIndex = 7         Me.Label3.Text = "Copyright 2005"         Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter         '         'Label2         '         Me.Label2.BackColor = System.Drawing.Color.Transparent         Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 13.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))         Me.Label2.Location = New System.Drawing.Point(16, 88)         Me.Label2.Name = "Label2"         Me.Label2.Size = New System.Drawing.Size(320, 24)         Me.Label2.TabIndex = 6         Me.Label2.Text = "Version 1.0"         Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter         '         'Label1         '         Me.Label1.AutoSize = True         Me.Label1.BackColor = System.Drawing.Color.Transparent         Me.Label1.Font = New System.Drawing.Font("Mistral", 48.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))         Me.Label1.Location = New System.Drawing.Point(32, 24)         Me.Label1.Name = "Label1"         Me.Label1.Size = New System.Drawing.Size(295, 76)         Me.Label1.TabIndex = 5         Me.Label1.Text = "Text"         '         'tmrUnload         '         Me.tmrUnload.Interval = 30000         '         'dlgSplash         '         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font         Me.BackColor = System.Drawing.Color.Magenta         Me.ClientSize = New System.Drawing.Size(354, 221)         Me.Controls.Add(Me.Label3)         Me.Controls.Add(Me.Label2)         Me.Controls.Add(Me.Label1)         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None         Me.Name = "dlgSplash"         Me.Text = "dlgSplash"         Me.TransparencyKey = System.Drawing.Color.Magenta         Me.ResumeLayout(False)         Me.PerformLayout()     End Sub     Friend WithEvents Label3 As System.Windows.Forms.Label     Friend WithEvents Label2 As System.Windows.Forms.Label     Friend WithEvents Label1 As System.Windows.Forms.Label     Friend WithEvents tmrUnload As System.Windows.Forms.Timer End Class