Fóruns
Microsoft Excel - 2...
Formulários
Formatação de uma T...
 
Notifications
Clear all

Formatação de uma TextBox

 
Formulários
Post Recente por Jose_da_Silva 12 anos atrás
7 Posts
2 Usuários
0 Reactions
1,778 Visualizações
RSS
 Jose_da_Silva
(@jose_da_silva)
Posts: 24
Eminent Member
Topic starter
 

Preciso de ajuda. Ao validar um determinado campo, se ocorrer um erro, ao retornar para este mesmo campo para redigitar a informação, preciso que o campo fique em destaque e o cursor no início da TextBox (do que jeito que esta ao retornar o cursor fica no final do campo).

 
Postado : 20/08/2012 8:43 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Você precisa dar mais detalhes!! :roll:

No exemplo se A1 for maior que B1, então ao digitar na caixa de texto ela ficará Vermelha.
ou..........se A1 for menor que B1, então ao digitar na caixa de texto ela ficará Cinsa

Private Sub TextBox1_Change()
    If ActiveSheet.Range("A1").Value > ActiveSheet.Range("B1").Value Then
        Me.TextBox1.BackColor = &HFF&
    Else
        Me.TextBox1.BackColor = &H8000000D
    End If
End Sub

Att ;)

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/08/2012 6:59 pm
 Jose_da_Silva
(@jose_da_silva)
Posts: 24
Eminent Member
Topic starter
 

Boa noite!!

Você precisa dar mais detalhes!! :roll:

No exemplo se A1 for maior que B1, então ao digitar na caixa de texto ela ficará Vermelha.
ou..........se A1 for menor que B1, então ao digitar na caixa de texto ela ficará Cinsa

Private Sub TextBox1_Change()
    If ActiveSheet.Range("A1").Value > ActiveSheet.Range("B1").Value Then
        Me.TextBox1.BackColor = &HFF&
    Else
        Me.TextBox1.BackColor = &H8000000D
    End If
End Sub

Att ;)

Alexandre Obrigado pela Atenção. Parte da minha dúvida referenciada na pergunta eu já descobri. Para posicionar o cursor no início do campo eu usei o comando TestBox.SelStart = 0. Quanto ao campo destacado, acho que não me expressei bem. O que eu quero, é ao validar o campo, caso ocorra um erro, ao retornar, este fique destacado como se eu tivesse selecionado o campo com o mouse, ou então tivesse pressionado as teclas CTRL + SHIFT + End. O que eu quero com isso que, no retorno ao campo o operador visualize a informação errada, e ao iniciar a digitação da informação correta, ao pressionar a primeira tecla, o campo se apague. Do jeito que esta tenho que clicar em cima da informação com o mouse, para poder entrar com nova informação.

 
Postado : 21/08/2012 5:08 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Não seria ...TextBox1.SetFocus ???

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/08/2012 5:22 am
 Jose_da_Silva
(@jose_da_silva)
Posts: 24
Eminent Member
Topic starter
 

Bom dia!!

Não seria ...TextBox1.SetFocus ???

Att

Alexandre esta função eu usei. O problema não é retornar ao campo, mas sim destacar o campo para entrar com nova digitação conforme destaquei no tópico anterior.

 
Postado : 21/08/2012 9:47 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja se é isso:

TextBox1.HideSelection = False
TextBox1.SelStart = 0
TextBox1.SelLength = Len(txtDtIni) 'txtDtIni.TextLength '.Length

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/08/2012 10:44 am
 Jose_da_Silva
(@jose_da_silva)
Posts: 24
Eminent Member
Topic starter
 

Veja se é isso:

TextBox1.HideSelection = False
TextBox1.SelStart = 0
TextBox1.SelLength = Len(txtDtIni) 'txtDtIni.TextLength '.Length

Obrigado Reinaldo. Funcionou conforme eu queria mas com duas pequenas alterações. Conforme abaixo :

TextBox1.HideSelection = True
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1).

 
Postado : 21/08/2012 2:00 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico