用VB.net制作一个小程序（1）

用VB.net制作一个小程序（1）

----制作“Hello.NET”程序

作者：高山

用下面很简单的方法，就可以制作一个“Hello.NET”小程序，同时可以掌握一些控件的用法。

Public Class Form1

    Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()

        MyBase.New()

        ´该调用是 Windows 窗体设计器所必需的。

        InitializeComponent()

        ´在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    ´窗体重写处置以清理组件列表。

    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

    ´Windows 窗体设计器所必需的

    Private components As System.ComponentModel.IContainer

    ´注意：以下过程是 Windows 窗体设计器所必需的

    ´可以使用 Windows 窗体设计器修改此过程。

    ´不要使用代码编辑器修改它。

    Friend WithEvents Button1 As System.Windows.Forms.Button

    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

        Me.Button1 = New System.Windows.Forms.Button()

        Me.TextBox1 = New System.Windows.Forms.TextBox()

        Me.SuspendLayout()

        ´

        ´Button1

        ´

        Me.Button1.Location = New System.Drawing.Point(16, 112)

        Me.Button1.Name = "Button1"

        Me.Button1.TabIndex = 0

        Me.Button1.Text = "OK"

        ´

        ´TextBox1

        ´

        Me.TextBox1.Location = New System.Drawing.Point(160, 112)

        Me.TextBox1.Name = "TextBox1"

        Me.TextBox1.TabIndex = 1

        Me.TextBox1.Text = ""

        ´

        ´Form1

        ´

        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)

        Me.ClientSize = New System.Drawing.Size(292, 266)

        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox1, Me.Button1})

        Me.Name = "Form1"

        Me.Text = "Hello,VB.NET"

        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox1.Text = "Hello,VB.NET!"

    End Sub

原文转自：http://www.ltesting.net