USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Carregar textbox
Dodomr
CRICIUMA
SC - BRASIL
ENUNCIADA !
Postada em 13/12/2005 18:56 hs         
Eu carrego os dados de um campo da tabela assim:
txt_nome = rs("nome")
 
só que se o meu nome for maior que o que cabe no text fica aparecendo só o final,
gostaria de que mostrasse o inicio e o final ficasse oculto.
 
já tentei, sendkeys, com ^home, mas não funcionou
   
kerplunk
Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 14/12/2005 06:20 hs         
Você está usando textbox com limite de caractéres? Se estiver use assim:
txt_nome.text = left(rs!nome,txt_nome.Maxlength)
   
Martini
Pontos: 2843 Pontos: 2843
PAROBÉ
RS - BRASIL
ENUNCIADA !
Postada em 14/12/2005 06:21 hs         
eu defino o tamanho do textbox(quantidade de caracteres) de acordo com o tamanho do textbox
 
  txtBancoDeDados.DataField = adoTb.Recordset.Fields(11).Name 'nome do campo da tabela
  txtBancoDeDados.MaxLength = adoTb.Recordset.Fields(11).DefinedSize 'tamanho do campo da tabela
   
Daniel
Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 14/12/2005 06:46 hs            
Ajuste o alinhamento
0 = esquerda
1 = direita
2 = cetro
txt_nome.Alignment = 0

dsmn
     
Dodomr
CRICIUMA
SC - BRASIL
ENUNCIADA !
Postada em 14/12/2005 14:29 hs         
eu uso essa rotina
 
Public Sub lens()
    Dim cObjeto As Control
    For Each cObjeto In Controls
        If TypeOf cObjeto Is TextBox Then
            cObjeto.SelStart = 0
            cObjeto.SelLength = Len(cObjeto.Text)
           
   
   
        End If
   Next
End Sub
 
só que ela faz com que todos os textbox, percorram o valor que está nele, jogando os dados pra direita
   
Dodomr
CRICIUMA
SC - BRASIL
ENUNCIADA !
Postada em 14/12/2005 14:38 hs         
Resolvi assim
Public Sub lens()
    Dim cObjeto As Control
    For Each cObjeto In Controls
        If TypeOf cObjeto Is TextBox Then
            Select Case Left(cObjeto.Name, 4)
                Case "Text"
                Case Else
                    cObjeto.SelStart = 0
                    cObjeto.SelLength = Len(cObjeto.Text)
              
            End Select

        End If
    Next
End Sub
 
Como os meus text são, txt_nomedocampo, os que forem Text, não recebem a funcao

 
   
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página