Criação de controles e seus eventos

[PauloFer 0]

Senhores,

Crio uns controles de acordo com dados disponiveis em base com o seguinte codigo.

Dim lbli As Label

With lbli

.Name = drI.Item("nome")

.Text = .Name

.Location = New System.Drawing.Point(Posx, Posy)

.Size() = New System.Drawing.Size(50, 30)

.BackColor = Aquamarine

.TextAlign = ContentAlignment.TopCenter

End With

Me.Controls.Add(lbli)

 

gostaria de saber como crio um evento click para esse controle. :unsure:

[quintelab 91]

Paulo a label não possui o evento click, se você um botão você adicionaria o evento dele da seguinte forma:

 

AddHandler btnGravar.Click, AddressOf Gravar

Neste caso o Id do botão é btnGravar e seu evento será o Gravar....

[PauloFer 0]

Obrigado fincionou beleza...

 

With lbli
						.Name = drI.Item("nome")
						.Text = .Name
						.Location = New System.Drawing.Point(Posx, Posy)
						.Size() = New System.Drawing.Size(50, 30)
						.BackColor = Aquamarine
						.TextAlign = ContentAlignment.TopCenter
						g = .Name
					End With
					Me.Controls.Add(lbli)
					AddHandler lbli.DoubleClick, AddressOf Clicar


'sub evento clicar
 Sub Clicar(ByVal sender As Object, ByVal e As System.EventArgs)
				Gp.Text = sender.name	  ' uma rotina qualquer para testar
	End Sub