Angelo
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 05/01/2009 16:14 hs
Pessoal, por gentileza, como faço para que um textbox dê dois destinos a duas variáveis, pois uma variável se transforma em string (porcentagem %) e não calcula, sendo assim a outra antes de se tornar string (a textbox tem uma ordem de transformar em string apos perder o focus). Tudo isso acontece após o click do botao. |
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 05/01/2009 16:53 hs
Colega a coisa tá meio complicada tenta explicar através de exemplos que é mais fácil
|
|
|
|
|
|
Postada em 05/01/2009 21:16 hs
Se entendi, basta setar duas variáveis no lostfocus da tbox, uma para valor e outra string:
strTexto = Text1.text
sngValor = CSng(Text1.text) -- ou CInt, ou CLng, etc
não se esquecendo de impedir de se digitar caracteres não numéricos na TextBox.
|
|
|
|
Angelo
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 06/01/2009 14:03 hs
Entendi, agora como faço para que não apareça a msg dizendo que existe uma variável sendo usanda antes de ter um valor. Pois dentro da execução do comando (botão click) ele deveria nao buscar o valor da textbox e sim apenas executar a variável. Atualmente ele busca a a textbox e cria uma variável, que é onde dá o erro pois a textbox está como string e nao calcula.
--------------
Private Sub TextBox9_LostFocus() Handles TextBox9.LostFocus
Dim strTexto, sngValor
strTexto = Text1.text
sngValor = CSng(Text1.text)
TextBox9.Text = Format(TextBox9.Text, "standard")
End Sub
|
|
|
|
CSRocha
|
BRASILIA
DF - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 06/01/2009 16:19 hs
Agora ficou confuso... o que é esse Handles TextBox9.LostFocus aí?
Outra coisa: usei Text1 apenas para exemplificar, mas você deverá usar o nome da sua TextBox, no caso TextBox9.
Mais outra: como as variáveis strTexto e sngValor serão usadas fora do controle TextBox9, ela deve ser definida fora na seção General, para ter seus valores operando em qualquer parte do form, como global. E no VB 6 você deve definir as variáveis uma a uma, declarando o seu tipo:
Dim strTexto as String, sngValor as Single
|
|
|
|
Álvaro
|
GUARULHOS
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 12/01/2009 16:50 hs
Angelo conseguiu resolver esse probleminha ? Alias você está usando VB6 ou VB.Net |
|
|
|
