16,552
社区成员
发帖
与我相关
我的任务
分享
Dim myButton(2) As Button
Dim myTextbox(2) As TextBox
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
For i = 0 To 2
myTextbox(i) = New TextBox
myTextbox(i).Location = New Point(0, 25 * i)
Me.Controls.Add(myTextbox(i))
myButton(i) = New Button
myButton(i).Text = i.ToString
myButton(i).Location = New Point(100, 25 * i)
Me.Controls.Add(myButton(i))
AddHandler myButton(i).Click, AddressOf MyButton_Click
Next
End Sub
Private Sub MyButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
myTextbox(sender.text).Text = InputBox("sdfjlsdjf")
End Sub