Imports?System.Windows
Imports?System.Windows.Forms
Public?Class?Netin?'類?名
'Inherits?Forms.Form
Public?Shared?Netin?As?New?Form Public?components?As?ComponentModel.IContainer Protected?Overrides?Sub?Finalize()MyBase.Finalize()
End?Sub? <DebuggerStepThrough()> Public?Sub?InitializeComponent() Me.components?=?New?ComponentModel.Container() Dim?resources?As?ComponentModel.ComponentResourceManager?=?New?System.ComponentModel.ComponentResourceManager(GetType(bjt)) Me.TextBox1?=?New?TextBox(Me.components) Me.Button1?=?New?Button(Me.components)'For?…?Next
Me.Controls.Add(Me.TextBox1) Me.Controls.Add(Me.Button1) Me.m?=?New?ContextMenuStrip(Me.components) Me.m1.Text?=?"菜單項1"?'設置並添加相關控件,(窗體)Netin?初始化。
End?Sub Private?Sub?Form_Load(sender?As?Object,?e?As?EventArgs)?Handles?Me.Load '加載後顯示窗體Netin。 End?Sub Public?Sub?ObjClick(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click,Button2.Click,Button3.Click,TextBox1.Click? MessageBox.Show("妳按了鼠標") End?Sub Public?WithEvents?TextBox1?As?TextBox Public?WithEvents?Button1?As?Button Public?WithEvents?Button2?As?Button Public?WithEvents?Button3?As?Button Friend?WithEvents?m?As?ContextMenuStrip Friend?WithEvents?m1?As?ToolStripMenuItemEnd?Class
Class?MainWindow
Netin.Show()
Netin.Button2.Text?=?"Main"
……