Boa tarde pessoal,
Alguém sabe se é possível contar os caracteres que estão sendo digitados e ir apresentando na tela? Tal como, o que vemos em alguns sites.
Contar caracteres
- Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
- Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
- Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
- Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
- Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!
2 respostas
-
olá, você pode usar um objeto tget ( https://tdn.totvs.com/display/tec/TGet ) e na hora de criar o objeto tem a opção de definir uma função pelo parâmetro bchange ( https://tdn.totvs.com/display/tec/TControl%3AbChange ) que será chamada toda vez que o tget sofrer alguma modificação, com escrita via teclado.
-
-
Josué,
Obrigado pelo seu tempo, funcionou somente quando eu preencho a quantidade total do objeto Tget, exemplo: atribuí 5 espaços à variável cGet, quando estou digitando nada ocorre, porém no quinto caracter a função é disparada. Eu preciso que seja disparada a cada digitação.
LocaL cTGet1 := SPACE(5)
Private nQuant := 10
DEFINE MSDIALOG oDlgEdtMsg TITLE "Edição da(s) mensagem(ns)" FROM 000,000 TO 350,700 PIXEL STYLE DS_MODALFRAME
oTGet1 := TGet():New( 05,30,{||cTGet1},oDlgEdtMsg,096,009,"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,{||u_CONTAR()},.F.,.F.,,cTGet1,,,, )
ACTIVATE MSDIALOG oDlgEdtMsg CENTERED
return
user function CONTAR() Local cMsg nQuant := --nQuant
cMsg := alltrim(str(nQuant))
@050 + 15,040 Say cMsg OF oDlgEdtMsg PIXEL
return .T.
-
Josué vc conseguiu resolver ? Se sim, pod eme dizer como ?
— Silfar Castro 07 de Dec de 2023
-
Luciano, qual seria o cenário? A função Len talvez ajude.
— Daniel Mendes 03 de Dec de 2021