如何捕获控件的按钮单击

问题描述

我制作了一个包含按钮数组的控件.单击后，所选按钮将显示为彩色.
我不知道如何知道在调用表单中按下了哪个按钮.
特此使用所使用的代码.

I made a control filled with a button array. On click the selected button is colored.
I cannot figure out how to know which button was pressed in the calling form.
Hereby the used code.

Public Class ButtonsTemplate
    Private _buttons() As Windows.Forms.Button
    Private _selectedButton As Integer

    Public Sub New()
        InitializeComponent()
    End Sub

    Public ReadOnly Property SelectedButton As Integer
        Get
            Return _selectedButton
        End Get
    End Property

    Public Sub Buttons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim btn As Button = CType(sender, Button)
        Dim name As String = btn.Name
        Dim index As Integer = CInt(name.Substring(6))
        ColorButtons(index)
        _selectedButton = index
    End Sub

    Public Sub CreateNew(ByVal number As Integer)
        ReDim _buttons(number - 1)
        Me.Height = 100
        Me.Width = 100
        For i As Integer = 0 To number - 1
            _buttons(i) = New Windows.Forms.Button
            _buttons(i).Width = Me.Width
            _buttons(i).Height = Me.Height * 1 / number
            _buttons(i).Name = "Button" + CStr(i)
            Me.Controls.Add(_buttons(i))
            AddHandler _buttons(i).Click, AddressOf Buttons_Click
        Next
        For i As Integer = 1 To number - 1
            _buttons(i).Top = _buttons(i - 1).Bottom
        Next
        ColorButtons()
    End Sub

    Private Overloads Sub ColorButtons()
        For i As Integer = 0 To UBound(_buttons)
            _buttons(i).BackColor = Color.White
        Next
    End Sub

    Private Overloads Sub ColorButtons(ByVal index As Integer)
        ColorButtons()
        _buttons(index).BackColor = Color.Red
    End Sub
End Class

Public Class Form1
    Private obj As New ButtonsTemplate.ButtonsTemplate

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Controls.Add(obj)
        obj.CreateNew(4)
        AddHandler obj.Click, AddressOf Object_Click
    End Sub

    Private Sub Object_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        ''this event is never fired
        ''except when I change line "_buttons(i).Height = Me.Height * 1 / number"
        ''into "... * 0.5..." and when I click on the pane itself
	''but that is not what I want...
        Dim buttonNumber As Integer
        buttonNumber = obj.SelectedButton
        MessageBox.Show("Selected button = " + CStr(buttonNumber))
    End Sub
End Class

推荐答案

Public Sub Buttons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Dim btn As Button = CType(sender, Button)
    btn.BackColor = Color.Red
End Sub

这篇关于如何捕获控件的按钮单击的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！