Imports System
Imports System.Windows.Forms
Public Class MainClass
Shared Sub Main()
Dim myform As Form = New FrmSimple()
Application.Run(myform)
End Sub ' Main
End Class
Public Class FrmSimple
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
' This call is required by the Windows Form Designer.
InitializeComponent()
' Add any initialization after the
' InitializeComponent() call
End Sub ' New
' Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose( _
ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub ' Dispose
Friend WithEvents lblOutput As System.Windows.Forms.Label
' Required by the Windows Form Designer
Private components As System.ComponentModel.Container
' 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.lblOutput = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'lblOutput
'
Me.lblOutput.Location = New System.Drawing.Point(16, 16)
Me.lblOutput.Name = "lblOutput"
Me.lblOutput.Size = New System.Drawing.Size(152, 80)
Me.lblOutput.TabIndex = 0
Me.lblOutput.Text = "Click Me!"
Me.lblOutput.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'FrmSimple
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(176, 101)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.lblOutput})
Me.Name = "FrmSimple"
Me.Text = "SimpleEventExample"
Me.ResumeLayout(False)
End Sub
#End Region
' handler for click event on lblOutput
Private Sub lblOutput_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles lblOutput.Click
MessageBox.Show("Label was clicked")
End Sub ' lblOutput_Click
End Class
|
