yle=\"MARGIN: 17pt 0cm 16.5pt\">用VB.net制作
个小
(1) prefix = o ns = \"urn:schemas-microsoft-com:office:office\" />----制作“Hello.NET”
作者:高山用下面很简单
思路方法
就可以制作个“Hello.NET”小同时可以掌握些Control控件使用方法
Public Class Form1
Inherits
.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
.ComponentModel.IContainer´注意:以下过程是 Windows 窗体设计器所必需
´可以使用 Windows 窗体设计器修改此过程
´不要使用代码编辑器修改它
Friend WithEvents Button1 As
.Windows.Forms.ButtonFriend WithEvents TextBox1 As
.Windows.Forms.TextBox<
.Diagnostics.DebuggerStepThrough> Private Sub InitializeComponentMe.Button1 = New
.Windows.Forms.ButtonMe.TextBox1 = New
.Windows.Forms.TextBoxMe.SuspendLayout
´
´Button1
´
Me.Button1.Location = New
.Drawing.Po
(16, 112)Me.Button1.Name = \"Button1\"
Me.Button1.TabIndex = 0
Me.Button1.Text = \"OK\"
´
´TextBox1
´
Me.TextBox1.Location = New
.Drawing.Po(160, 112)Me.TextBox1.Name = \"TextBox1\"
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = \"\"
´
´Form1
´
Me.AutoScaleBaseSize = New
.Drawing.Size(6, 14)
Me.ClientSize = New
.Drawing.Size(292, 266)Me.Controls.AddRange(New
.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
.Object, ByVal e As .EventArgs) Handles Button1.ClickTextBox1.Text = \"Hello,VB.NET!\"
End Sub
End Class
最新评论