タイトル : Re: できれば 投稿日 : 2006/07/13(Thu) 23:10 投稿者 : YAS
うーん。やりたいことがはっきりとはわからないのですが,次のようなことですか? Public Class Form1 Dim MAX As Integer = 10 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load Dim Button As New Button Button.Text = "ボタンの追加" Me.Controls.Add(Button) AddHandler Button.Click, AddressOf AddButton End Sub Private Sub AddButton(ByVal sender As System.Object, ByVal e As System.EventArgs) For i As Integer = 1 To MAX Dim Label As New Label Label.Location = New Point(30, 30 * i) Label.BorderStyle = BorderStyle.FixedSingle Label.Width = 70 Me.Controls.Add(Label) Dim Button As New Button Button.Location = New Point(100, 30 * i) Button.Width = 50 Button.Text = "表示" Button.Tag = Label Me.Controls.Add(Button) AddHandler Button.Click, AddressOf ButtonClick Next End Sub Private Sub ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim value As String = InputBox("入力してください") DirectCast(DirectCast(sender, Button).Tag, Label).Text = value End Sub End Class |