假如一个窗体,里面有10个按钮,button1,button2,button3, ...
每个按钮都是调用同一个事件,也就是同一个过程,
比如 把每个按钮上的文字以对话框的方式显示出来:
sub showtext(byval fbutton as form.button) '参数可能设置不对,也请指正
msgbox(fbutton.text)
end sub

那我能不能使用for each ...next 语句来实现呢?请给出代码,谢谢

调用同一个事件?

把要实现的代码写在这个事件里.

赫赫 我也想知道！

對,是同一个事件,但要根据按下不同的按钮来显示按钮上的文字,

比如按下button1,则textbox内显示"button1", 如果按下button2,则textbox内显示button2,....

具体代码应该如何实现呢?

谢谢!

添加三个button控件，一个textbox控件
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click
Dim a As Button
a = CType(sender, Button)
TextBox1.Text = a.Text
End Sub
已经测试过了，OK

[此贴子已经被作者于2007-4-21 0:07:39编辑过]