CAMPOS TEXT EDITAVEL AZULZINHO

MARCELOFAZAN 10/09/2010 10:40:44
#352598
dei uma vasculhada e encontrei essa resposta

no Evento GotFocus vc faz assim
text1.selstart = = 0
text1.sellenght = len(text1.text)

que seria deixar o campo azulzinho para facilitar a digitação

minha pergunta é
Não teria como configurar em botao inverso nas propriedades Ou uma funcao para por no modulo ? ou algo que coloque na tela para ja fazer em todos os campos

Abraços
Marcelo Fazan
CEMM 10/09/2010 11:41:40
#352607
se eu entendi bem, vc quer que selecione todo o conteúdo da caixa de texto apra facilitar a editção.
porém isso não pode ser feito com todos os campos de uma vez só, pois, para selecionar o texto o campo ten que esta com o focus, ou seja, o cursor tem que estar na caixa de texto.

mas dá apra fazer uma funçãoq que após dar o ENTER ou Botão por exemplo vá para a outra caixa selecionado o texto.

Private Sub setarCampo(t As TextBox)
    t.SetFocus
    t.SelStart = 0
    t.SelLength = Len(t.Text)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        setarCampo Text2
    End If
End Sub

Private Sub Command1_Click()
    setarCampo Text2
End Sub


Espero ter ajudado.
qualquer coisa poste
MARCELOFAZAN 10/09/2010 12:15:59
#352613
Ola CEMM , Obrigado a resposta

tenho esse codigo a qual manipulo pelo Form_KeyPress

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys [Ô]{tab}[Ô]
End If
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub



sera que nao teria como manipular seu codigo acima
junto desse diretamente como keypress do form ???

Abs
Marcelo Fazan
NICOLLAS2 10/09/2010 13:47:26
#352627
use o SendKey {home}+{end}
ANDPAG 10/09/2010 14:10:38
#352629
eu uso esse codigo no GotFocus

TXT_Nome.SelStart = 0
TXT_Nome.SelLength = Len(TXT_Nome.Text)
MARCELO.TREZE 10/09/2010 14:49:40
#352634 Resposta escolhida
bom vamos lá se vc não quizer mudar o nome de todos textbox ou combos, criando uma array dos objetos faça o seguinte

coloque um timer em seu form mude a propriedade interval =1 e cole este código

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyTab Then
Timer1.Enabled = True
End If
End Sub


Private Sub Timer1_Timer()
[ô] função para exibir cor no objeto ao receber o foco
Dim ctl  As Control
For Each ctl In Me
        If TypeOf ctl Is TextBox Or _
           TypeOf ctl Is ComboBox Then
             ctl.SelStart = 0
             ctl.SelLength = Len(ctl.Text)
        End If
Next
Timer1.Enabled = False
End Sub
FEDERHEN 10/09/2010 16:41:27
#352655
...esse TIMER do MARCELO-TREZE pode até funcionar, mas vai ser impossível debugar um projeto.
MARCELO.TREZE 10/09/2010 17:26:10
#352663
???????????????

nâo entendi, mas tudo bem, na realidade fiz um POG, ele só iráfuncionar usando a tecla TAB, lógico o ideal seria criar um array dos textbox e colocar um código em uma unica instrução, se deseja algo diferente crie seu proprio text box, ou seja, crie um usercontrol de um textbox que faz isso, e pronto.
MARCELOFAZAN 11/09/2010 00:14:26
#352698
Valeu Pessoal, as postagens,


NICOLLAS2 facilita bastante mesmo show !, obrigado

só que nao funciona mto bem nao , parece que se eu colocar no form_load da certo
se eu apertar TAB , ele nao poem o foco a frente ...... ele deixa o foco atras se eu colocar


Private Sub Form_KeyPress(KeyAscii As Integer)
SendKeys [Ô]{home}[Ô] + [Ô]{end}[Ô]
If KeyAscii = 13 Then
SendKeys [Ô]{tab}[Ô]
SendKeys [Ô]{home}[Ô] + [Ô]{end}[Ô]
End If
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

ai quando aperto enter ....... que somente o cursor vai pro final , sabe como posso colocar , o cursor corretamente todas as vezes na tela no final ?





Olá Treze Blz, obrigado a postagem , como sempre resposta encaixada ,
funciona ascende todos campinhos até eu apertar alguma das setas depois perde o azulzinho
esse codigo corta a private,

SQL = [Ô]SELECT * FROM buscar [Ô] _
& [Ô]WHERE id IN (SELECT MIN(id) FROM buscar)[Ô]


ANDPAG obrigado a postagem ,
mais estou acostumado a tratar visualmente , usar gotfocus em todos os campos ?
para mim se tive-se isso com botao invervo propriedades colocar true ou false era o que eu queria , caso contrario a ideia do nicolas foi muito acalhar tendo em vista somente uso de backupspace
somos perto de cidades ! Abraços

aguardo + resp. pessoale
MARCELO.TREZE 11/09/2010 19:16:57
#352742
Marcelo faz o seguinte teste ai crie um array dos textbox e coloque o código no gotfocus, veja bem basta um gotfocus para issoe pronto
Tópico encerrado , respostas não são mais permitidas
Voltar