您当前的位置: 生成button的事件：
Dim Ctl(350) As Button
Ctl(intCtl) = New Button
With Ctl(intCtl)
.Name = TabNo
.Text = TabNo + "|" + Mens.ToString.Trim() '''''传过来的值 .Font = New Font("Tahoma", 14, FontStyle.Bold)
.Location = New Point(x_Lines, y_Lines)
.Size = New Size(52, 46)
.Scale(addSize)
End With
Me.Pane_TableNo.Controls.Add(Ctl(intCtl))
AddHandler Ctl(intCtl).Click, AddressOf ButtNew_table
我要生成的button有很多，生成之后，button的text上的值是对应自动传过来的
----点击界面上自动生成的Botton按钮，就会触发下列事件（在生成button的时候，button上的text就会得到对应的值）
现在我想在点击自动生成的button的时候，，就得到button上的值
Private Sub ButtNew_Table(ByVal sender As System.Object, ByVal e As System.EventArgs)
----这怎么写？？？？？？？？
End Sub
------解决方案--------------------
利用sender，例如sender.text
------解决方案--------------------
- VB.NET code
Private Sub ButtNew_Table(ByVal sender As System.Object, ByVal e As System.EventArgs) MessageBox.Show(DirectCast(sender, Button).Text) End Sub
------解决方案--------------------
dim btn(350) as button
for i as integer=0 to 349
btn(i)=new button
with btn(i)
.Name = TabNo
.Text = TabNo + " ¦" + Mens.ToString.Trim() '''''传过来的值 .Font = New Font("Tahoma", 14, FontStyle.Bold)
.Location = New Point(x_Lines, y_Lines)
.Size = New Size(52, 46)
End With
Me.Pane_TableNo.Controls.Add(btn(i))
AddHandler btn(i).Click, AddressOf btn_Click
next
Private Sub ButtNew_Table(ByVal sender As System.Object, ByVal e As System.EventArgs)
'----这怎么写？？？？？？？？
msgbox(ctype(sender,button).text)
End Sub
------解决方案--------------------
如大家所说，使用sender.Text
看我的代码
- VB.NET code
'动态添加控件**************************************
Private Sub DesignPicBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DesignPicBox.Click
sender.Focus()
Console.WriteLine("设计窗体有子控件： " & DesignPicBox.Controls.Count)
If isAdditem Then
Dim lblItem As New System.Windows.Forms.Label
With lblItem
.BorderStyle = Windows.Forms.BorderStyle.FixedSingle
.BackColor = Color.Transparent
.Cursor = Cursors.Hand
.Top = eX - 20 : lblItem.Left = eY - 20
.Text = eX & ":" & eY
.BringToFront()
AddHandler .Click, AddressOf lblItem_Click ''绑定事件处理程序
AddHandler .KeyDown, AddressOf lblItem_KeyDown
AddHandler .LostFocus, AddressOf lblItem_LostFocus
End With
sender.Controls.Add(lblItem) ''向窗体中增加控件
isAdditem = False
End If
End Sub
Public Sub lblItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)
''在这里编写控件数组对点击事件的响应
MsgBox(sender.Text)
sender.BorderStyle = Windows.Forms.BorderStyle.FixedSingle
sender.focus()
End Sub
Public Sub lblItem_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
Console.WriteLine(e.KeyCode)
If e.KeyCode = Keys.Delete Then
Me.DesignPicBox.Controls.Remove(sender)
End If
End Sub