02 COISAS: PRESSIONAMENTO ENTER CONVERSAO DE VAL
tenho 2 duvidas:
1a. duvida:
agora queria saber como faço para converter 01006 para 1[txt-color=#e80000],[/txt-color]006
2a. duvida:
como faço para o proprio sistema pressionar o ENTER para mim
1a. duvida:
agora queria saber como faço para converter 01006 para 1[txt-color=#e80000],[/txt-color]006
2a. duvida:
como faço para o proprio sistema pressionar o ENTER para mim
WEBIER
Para a sua primeira dúvida, existe várias possibilidades de se fazer essa conversão. Mas tudo depende da lógica que se aplica.
Ex.:
Dim Valor As Double
Valor = Text1.Text
Valor = Valor / 1000
Text1.Text = Valor
Para a sua segunda dúvida, não entendi direito o que você gostaria de fazer? Podes explicar melhor?
Para a sua primeira dúvida, existe várias possibilidades de se fazer essa conversão. Mas tudo depende da lógica que se aplica.
Ex.:
Dim Valor As Double
Valor = Text1.Text
Valor = Valor / 1000
Text1.Text = Valor
Para a sua segunda dúvida, não entendi direito o que você gostaria de fazer? Podes explicar melhor?
Bom dia.
Para a segunda dúvida:
Até mais.
JSFF77
Para a segunda dúvida:
SendKeys [Ô]{ENTER}[Ô]Até mais.
JSFF77
sobre converter o valor 01006
tenho um textbox com o seguinte valor 2004100[txt-color=#e80000]01006[/txt-color]6 que é um codigo de barra... que esse [txt-color=#e80000]01006[/txt-color] é o pesso do produto....
entao usando o seguinte codigo, ele pegar o peso e joga para outro textbox
txtQuant = Mid(txtCodBarraPeso, 8, 5)
O problema é que vai o valor igual tah sendo exibido 01006 e como se trata de peso, teria que ser assim [txt-color=#e80000]1, 006[/txt-color]
peso tem 3 casas decimais 0,000
tenho um textbox com o seguinte valor 2004100[txt-color=#e80000]01006[/txt-color]6 que é um codigo de barra... que esse [txt-color=#e80000]01006[/txt-color] é o pesso do produto....
entao usando o seguinte codigo, ele pegar o peso e joga para outro textbox
txtQuant = Mid(txtCodBarraPeso, 8, 5)
O problema é que vai o valor igual tah sendo exibido 01006 e como se trata de peso, teria que ser assim [txt-color=#e80000]1, 006[/txt-color]
peso tem 3 casas decimais 0,000
Acredito que dessa forma resolva essa situação:
txtQuant = Mid(txtCodBarraPeso, 8, 5) / 1000
txtQuant = Mid(txtCodBarraPeso, 8, 5) / 1000
para a sua segunda duvida, depende de como vai ser aplicada.
se for um leitor de codigo de barras, o enter eh automatico.
se for digitado, vc pode definir o numero de caracteres precionados e chamar keyascii = 13
se for um leitor de codigo de barras, o enter eh automatico.
se for digitado, vc pode definir o numero de caracteres precionados e chamar keyascii = 13
Tópico encerrado , respostas não são mais permitidas