VB.Net/GUI/GUI Basics
Версия от 19:40, 26 мая 2010; (обсуждение)
Hand made GUI class
<source lang="vbnet"> Imports System Imports System.Windows.Forms Public Class MainClass
Shared Sub Main( ) Application.Run(New HandDrawnClass() ) End Sub
End Class
Public Class HandDrawnClass Inherits Form Private lblOutput As System.Windows.Forms.Label Private btnCancel As System.Windows.Forms.Button
Public Sub New( ) Me.lblOutput = New System.Windows.Forms.Label( ) Me.btnCancel = New System.Windows.Forms.Button( ) Me.Text = "Hello World" lblOutput.Location = New System.Drawing.Point(16, 24) lblOutput.Text = "Hello World!" lblOutput.Size = New System.Drawing.Size(216, 24) btnCancel.Location = New System.Drawing.Point(150, 200) btnCancel.Size = New System.Drawing.Size(112, 32) btnCancel.Text = "&Cancel" AddHandler btnCancel.Click, AddressOf Me.btnCancel_Click Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(300, 300) Me.Controls.Add(Me.btnCancel) Me.Controls.Add(Me.lblOutput) End Sub "New
Protected Sub btnCancel_Click( _ sender As Object, e As System.EventArgs) Application.Exit( ) End Sub End Class </source>