Question

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

Answer 1

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"
   ……

Answer 2

vb.net 控件数组，与vb6.0不一样。可以看看下面文章
在VB.NET中使用控件数组 - helloouc的日志 - 网易博客 http://helloouc.blog.163.com/blog/static/5530527120099308484031/