关于vb.net定义事件的信息

在VB.net里定义的控件数组怎么定义事件

Imports System.Text

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 ToolStripMenuItem

End Class

Class MainWindow

    Netin.Show()

    Netin.Button2.Text = "Main"

   ……

相关问答

Q1: vb.net定义动态控件事件

给你个例子就知道了

Public Class Form1

'演示为动态添加的控件添加事件

Private WithEvents Tb As New TextBox '方法2必须这样写

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

' Dim Tb As New TextBox

Tb.Name = "Textbox1"

Tb.Text = "文本框1"

Controls.Add(Tb)

AddHandler Tb.KeyPress, AddressOf XX '方法1，移动鼠标触发

End Sub

Private Sub XX()

MsgBox("AddHandler方法")

End Sub

Private Sub ShowClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tb.Click '方法2，单击触发

MsgBox("Handles方法，你点击了" sender.name)

End Sub

End Class

Q2: vb.net 自定义事件

变量值的改变本身就是你程序控制的，也就是说它的变化完全是在你掌控中的，做变量值改变的触发事件实在没有价值。

通常编程者关心的应该是用户操作的控件值发生变化，但这些控件的事件通常都是定义好的，且已经定义的非常全了。

猜测搂主其实是想学习自己制作控件，那就高深了，很多底层的事件通常都是从基本控件中获得的！