yle=\"MARGIN: 17pt 0cm 16.5pt\">用VB.net制作
![](/icons/50189yi.gif)
![](/icons/50189chengxu.gif)
----制作“Hello.NET”![](/icons/50189chengxu.gif)
作者:高山用下面很简单
![](/icons/50189de.gif)
![](/icons/50189dou.gif)
![](/icons/50189yi.gif)
![](/icons/50189chengxu.gif)
![](/icons/50189dou.gif)
![](/icons/50189yi.gif)
![](/icons/50189de.gif)
![](/icons/50189dou2.gif)
Public Class Form1
Inherits
![](/icons/50189System.gif)
#Region \" Windows 窗体设计器生成
![](/icons/50189de.gif)
Public Sub New
![](/icons/50189kh.gif)
MyBase.New
![](/icons/50189kh.gif)
´该
![](/icons/50189diaoyong.gif)
![](/icons/50189de.gif)
![](/icons/50189dou2.gif)
InitializeComponent
![](/icons/50189kh.gif)
´在 InitializeComponent
![](/icons/50189kh.gif)
![](/icons/50189diaoyong.gif)
![](/icons/50189chushi.gif)
End Sub
´窗体重写处置以清理组件列表
![](/icons/50189dou2.gif)
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose
![](/icons/50189kh.gif)
End If
End If
MyBase.Dispose(disposing)
End Sub
´Windows 窗体设计器所必需
![](/icons/50189de.gif)
Private components As
![](/icons/50189System.gif)
´注意:以下过程是 Windows 窗体设计器所必需
![](/icons/50189de.gif)
´可以使用 Windows 窗体设计器修改此过程
![](/icons/50189dou2.gif)
´不要使用代码编辑器修改它
![](/icons/50189dou2.gif)
Friend WithEvents Button1 As
![](/icons/50189System.gif)
Friend WithEvents TextBox1 As
![](/icons/50189System.gif)
<
![](/icons/50189System.gif)
![](/icons/50189kh.gif)
![](/icons/50189kh.gif)
Me.Button1 = New
![](/icons/50189System.gif)
![](/icons/50189kh.gif)
Me.TextBox1 = New
![](/icons/50189System.gif)
![](/icons/50189kh.gif)
Me.SuspendLayout
![](/icons/50189kh.gif)
´
´Button1
´
Me.Button1.Location = New
![](/icons/50189System.gif)
![](/icons/50189int.gif)
Me.Button1.Name = \"Button1\"
Me.Button1.TabIndex = 0
Me.Button1.Text = \"OK\"
´
´TextBox1
´
Me.TextBox1.Location = New
![](/icons/50189System.gif)
![](/icons/50189int.gif)
Me.TextBox1.Name = \"TextBox1\"
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = \"\"
´
´Form1
´
Me.AutoScaleBaseSize = New
![](/icons/50189System.gif)
Me.ClientSize = New
![](/icons/50189System.gif)
Me.Controls.AddRange(New
![](/icons/50189System.gif)
![](/icons/50189kh.gif)
Me.Name = \"Form1\"
Me.Text = \"Hello,VB.NET\"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As
![](/icons/50189System.gif)
![](/icons/50189System.gif)
TextBox1.Text = \"Hello,VB.NET!\"
End Sub
End Class
最新评论