Mega Code Archive

 

Categories / VB.Net Tutorial / GUI

 

Using Controls in a Windows Forms Application

Option Explicit Option Strict Imports System Imports System.ComponentModel Imports System.Windows.Forms Imports System.Resources Imports System.Drawing Public Class MyForm    Inherits Form    Private red As Button    Private blue As Button    Private green As Button        Public Sub New()       InitializeComponent()    End Sub        Protected Overloads Overrides Sub Dispose(disposing as Boolean)       MyBase.Dispose(disposing)    End Sub        Private Sub InitializeComponent()       red = New Button()       red.Text = "Red"       red.Location = New Point(100, 50)       red.Size = New Size(50, 50)       AddHandler red.Click, AddressOf button_Click       Controls.Add(red)              blue = New Button()       blue.Text = "Blue"       blue.Location = New Point(100, 100)       blue.Size = New Size(50, 50)       AddHandler blue.Click, AddressOf button_Click       Controls.Add(blue)              green = New Button()       green.Text = "Green"       green.Location = New Point(100, 150)       green.Size = New Size(50, 50)       AddHandler green.Click, AddressOf button_Click       Controls.Add(green)    End Sub        Private Sub button_Click(sender As Object, e As EventArgs)       If sender Is red Then          Me.BackColor = Color.Red       Else          If sender Is blue Then             Me.BackColor = Color.Blue          Else             Me.BackColor = Color.Green          End If       End If     End Sub    <STAThread()> _    Public Shared Sub Main()       Application.Run(New MyForm())    End Sub End Class