Ir para conteúdo
Fórum Script Brasil

Higor César

Membros
  • Total de itens

    6
  • Registro em

  • Última visita

Posts postados por Higor César

  1. Beleza mais você pode colocar uma parte do codigo para explicar?! Abraços..

    Ai galera consegui segui o codigo para vocês.

    Dim check As New CheckBox()

    check.Size = New Size(100, 30)

    check.Location = New Point(20, 20)

    check.Name = "chk_1"

    check.Text = "checkbox1"

    Me.Controls.Add(check)

    AddHandler check.CheckedChanged, AddressOf Me.ClickDoCheckbox

    função q controla o evento::

    Public Sub ClickDoCheckbox(ByVal sender As Object, ByVal e As System.EventArgs)

    ' Se mais de um botão invocar este método,

    ' podemos descobrir onde foi o click pelo

    ' nome do botão. O parâmetro sender serve

    ' justamente para sabermos quem invocou

    ' o método. Sabemos que foi um botão...

    Dim check As CheckBox = DirectCast(sender, CheckBox)

    ' ... agora sabemos o nome dele e tudo o mais..

    ' MessageBox.Show("Você clicou em " & check.Name)

    If (check.Checked = True) Then

    MsgBox("Marcado")

    Else

    MsgBox("Não marcado")

    End If

    End Sub

×
×
  • Criar Novo...