APAGAR NÊMERO DENTRO DA CAIXA DE TEXTO
PESSOAL PEÇO AJUDA DE VOCÊS PARA IDENTIFICAR ONDE ESTà O ERRO EM MEU CÓDIGO, ENCONTREI AQUI MESMO NO FÓRUM ESTE EXEMPLO, E ESTAVA TENTANDO ADAPTAR PARA MEU USO, MAIS ACABEI ME ENROLANDO EM UM DETALHE QUE NÃO ESTOU CONSEGUINDO RESOLVER.......PRECISO APAGAR OS ELEMENTOS DENTRO DA CAIXA DE TEXTO, ATRAVéS DO CLICK DA LABEL, EXEMPLO: TENHO OS 100 NÚMEROS EM 100 LABELS, CADA VEZ QUE CLICK EM UM NÚMERO, A LABEL ADICIONA O VALOR NA CAIXA DE TEXTO, CONFORME O CAPTION DELA.... GOSTARIA QUE DEPOIS QUE TIVESSE CLICADO, EM VERMELHO, CASO QUISESSE EXCLUIR O NÚMERO, CLICLASSE NO NÚMERO E APAGASSE DENTRO DA TEXTBOX, ATé O MOMENTO ESTà APAGANDO, PORéM ESTA APAGANDO SEMPRE O ÚLTIMO VALOR, GOSTARIA QUE APAGASSE CONFORME O CAPTION DA LABEL, NÃO SEI SE CONSEGUI EXPLICAR DIREITO.....OBRIGADO!!!!!
Substitua sua função por esta se funcionar finalize o topico
Tambem tem que alterar alguns nomes de label
Private Sub lblNumero_Click(index As Integer)
On Error Resume Next
If Selecionados(index) = 0 Then
lblNumero(index).BackColor = &HFF
lblNumero(index).ForeColor = &HFFFFFF
Dezenas = Dezenas + 1
lblDezenas = Dezenas
txtSelecionados.Text = txtSelecionados.Text + Chr$(32) + lblNumero(index).Caption
Selecionados(index) = 1
Else
lblNumero(index).BackColor = &HFFFFFF
lblNumero(index).ForeColor = &H0&
txtSelecionados.Text = Trim(Replace(txtSelecionados.Text, lblNumero(index).Caption, [Ô][Ô]))
Selecionados(Index) = 0
End If
End Sub
Tambem tem que alterar alguns nomes de label
Private Sub lblNumero_Click(index As Integer)
On Error Resume Next
If Selecionados(index) = 0 Then
lblNumero(index).BackColor = &HFF
lblNumero(index).ForeColor = &HFFFFFF
Dezenas = Dezenas + 1
lblDezenas = Dezenas
txtSelecionados.Text = txtSelecionados.Text + Chr$(32) + lblNumero(index).Caption
Selecionados(index) = 1
Else
lblNumero(index).BackColor = &HFFFFFF
lblNumero(index).ForeColor = &H0&
txtSelecionados.Text = Trim(Replace(txtSelecionados.Text, lblNumero(index).Caption, [Ô][Ô]))
Selecionados(Index) = 0
End If
End Sub
AMIGO MUITO OBRIGADO, DEU CERTO AQUI....VALEU!!!!
Tópico encerrado , respostas não são mais permitidas