1

いくつかのボタンを動的に生成しました。ここで、あるボタンをクリックすると別のボタンで何かが実行されるように、それらを操作する必要があります。どうやってするの？私はアマチュアを指導しているので、コードはできるだけ単純にしたいと思います。

    Private Sub NewButton(ByVal ButtonNumber As Integer)
    ' set the button properties 

    btn.Name = "Button" & ButtonNumber
    btn.Enabled = True
    btn.Size = New Size(25, 25)
    btn.Visible = True
    'use tag to store number of button
    btn.Tag = ButtonNumber
    ' Add button click handler
    AddHandler btn.Click, AddressOf btnclick
    ' Add to this forms controls collection
    Me.Controls.Add(btn)
    arr1(count) = btn.Name
    count = count + 1
End Sub          


Private Sub NewButton(ByVal ButtonNumber As Integer)
    ' set the button properties 

    btn.Name = "Button" & ButtonNumber
    btn.Enabled = True
    btn.Size = New Size(25, 25)
    btn.Visible = True
    'use tag to store number of button
    btn.Tag = ButtonNumber
    ' Add button click handler
    AddHandler btn.Click, AddressOf btnclick
    ' Add to this forms controls collection
    Me.Controls.Add(btn)
    arr1(count) = btn.Name
    count = count + 1
End Sub
4

1 に答える 1

0

イベントを動的に作成するボタンに関連付ける： 

AddHandler btn.Click, AddressOf clickevent 'clickeven sub to handle the event

sub clickevent()
    For Each cn As Control In Me.Controls
      Select Case cn.GetType.ToString.Substring(cn.GetType. _
                                      ToString.LastIndexOf(".") +1).ToLower
            Case "button"
                'code goes here
        End Select
    Next
end sub

よろしくお願いします。

于 2012-06-10T17:19:08.257 に答える