Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
17 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 17 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Controlar Scanner Twain

31/3/2017, 17:31 por Kleber R Bento

Estou usando o EZTW32.DLL para criar uma ferramenta que escaneia e gera PDF. Porém com esses …

Comentários: 0

Estatísticas
Temos 7066 usuários registrados
O último usuário registrado atende pelo nome de Seabra86

Os nossos membros postaram um total de 48 mensagens em 25 assuntos

Scroll EditBox Automatico

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido Scroll EditBox Automatico

Mensagem por renatojunior2009 em 11/5/2012, 09:55

Bom dia Galera,

Como fazer para que um editbox ao receber mensagens o scroll vai subindo automaticamente estilo msn , estou querendo que a medida que for recebendo mensagens do usuário a mensagem vai subindo e com isso movimentando o scroll do campo.

Agradeço antecipadamente,

Abraços

Renato
avatar
renatojunior2009
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Scroll EditBox Automatico

Mensagem por lardecristo em 11/5/2012, 23:08

Use a propriedade SelStart, coloque depois de inserir o texto no objeto.

Código:

thisform.edit1.Value = thisform.edit1.Value + TTOC(DATETIME()) + CHR(13)
thisform.edit1.SelStart = 1000000

Para testar crie um form vazio e coloque um editbox e um botão e no click do botão coloque as linhas acima.

O valor eh grande mesmo, eh para que fique sempre no final do texto.

Abraços.
avatar
lardecristo
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Scroll EditBox Automatico

Mensagem por Julio em 14/5/2012, 10:31

Tenho uma rotina de atualização do Sistema e atualizo o EditBox, utilizando o comando oabaixo:

Código:
 
    Thisform.Edit1.Value = ALLTRIM(Thisform.Edit1.value)+CHR(13)+;
    "menu_texto" + "  " + "meu_texto_1" + CHR(13)
    Thisform.Edit1.SelStart=LEN(Thisform.Edit1.Value)
    Thisform.edit1.refresh

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Scroll EditBox Automatico

Mensagem por renatojunior2009 em 1/6/2012, 15:15

[Você precisa estar registrado e conectado para ver este link.] escreveu:Tenho uma rotina de atualização do Sistema e atualizo o EditBox, utilizando o comando oabaixo:

Código:
 
    Thisform.Edit1.Value = ALLTRIM(Thisform.Edit1.value)+CHR(13)+;
    "menu_texto" + "  " + "meu_texto_1" + CHR(13)
    Thisform.Edit1.SelStart=LEN(Thisform.Edit1.Value)
    Thisform.edit1.refresh

Não sei o que estou fazendo de errado mais não deu cero a barra de scroll do meu campo não sobe automaticamente, gostaria que na medida que fosse recebendo mensagem do usuário essa foi atualizando igual é no msn , automaticamente..

Agradeço a colaboração,
avatar
renatojunior2009
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Scroll EditBox Automatico

Mensagem por renatojunior2009 em 1/6/2012, 15:16

Segue meu código

Código:

msg = thisform.nome + " diz: " + RTRIM(thisform.msg.value)  + CHR(13) + CHR(10)
thisform.chat.value = thisform.chat.value + msg + CHR(13) + CHR(10)
thisform.chat.SelStart = 1000000
thisform.chat.refresh()
avatar
renatojunior2009
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Scroll EditBox Automatico

Mensagem por lardecristo em 3/6/2012, 11:41

O Editbox está com Enabled = .f.? Se sim mude para .t., e coloque o ReadOnly = .t.
avatar
lardecristo
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Scroll EditBox Automatico

Mensagem por renatojunior2009 em 4/6/2012, 07:58

[Você precisa estar registrado e conectado para ver este link.] escreveu:O Editbox está com Enabled = .f.? Se sim mude para .t., e coloque o ReadOnly = .t.

Já estava com o Enabled = .t. e ReadOnly = .t., tem mais alguma forma de fazer ?
avatar
renatojunior2009
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Scroll EditBox Automatico

Mensagem por Julio em 4/6/2012, 11:18

Renato

Aqui funciona mornalmente tente criar um novo form e fazer outro teste.

Veja um exemplo

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Scroll EditBox Automatico

Mensagem por renatojunior2009 em 4/6/2012, 11:22

Funcionou pessoal....obrigado pela colaboração de todos
avatar
renatojunior2009
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Scroll EditBox Automatico

Mensagem por lardecristo em 4/6/2012, 11:41

Me desculpe a curiosidade, você disse que não funcionou, e agora que sim, por favor coloque o código que funcionou para todos saberem o que funcionou.

Abraços.
avatar
lardecristo
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Scroll EditBox Automatico

Mensagem por renatojunior2009 em 4/6/2012, 11:44

[Você precisa estar registrado e conectado para ver este link.] escreveu:Me desculpe a curiosidade, você disse que não funcionou, e agora que sim, por favor coloque o código que funcionou para todos saberem o que funcionou.

Abraços.

Código:

thisform.chat.value = thisform.chat.value + msg + CHR(13) + CHR(10)
thisform.chat.SelStart = LEN(thisform.chat.value)
thisform.chat.refresh()
avatar
renatojunior2009
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum