tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。