none
Criar controle em tempo de execução RRS feed

  • Discussão Geral

  • Olá.

    Preciso criar controles em tempo de execução, mas não sei como identificar qual desses controles foi clicado.

    Segue minha classe:

    Public Class frmMesas
    
        Public WithEvents _m As New DevComponents.DotNetBar.Metro.MetroTileItem
    
        Private Sub ButtonItem1_Click(sender As Object, e As EventArgs) Handles ButtonItem1.Click
            _m = New DevComponents.DotNetBar.Metro.MetroTileItem
    
            With _m
                .TileSize = New Size(200, 200)
                .TitleText = InputBox("Digite o número da mesa:")
    
                .TileColor = DevComponents.DotNetBar.Metro.eMetroTileColor.RedOrange
    
                .TitleTextAlignment = ContentAlignment.BottomRight
                .TitleTextFont = New Font("Segoe UI", 13, FontStyle.Bold)
                .Tag = .TitleText
    
                AddHandler _m.Click, AddressOf Click_Tile
            End With
    
            mtpMesas_i1.SubItems.Add(_m)
            mtpMesas_i1.Refresh()
        End Sub
    
        Private Sub Click_Tile()
            _m.Text = _m.Text & vbCr & vbLf & InputBox("Digite o item:")
        End Sub
    
    End Class

    Alguém pode me ajudar?


    Elton de Lima Ribeiro

    sábado, 4 de outubro de 2014 15:19

Todas as Respostas