CONVERSAO DE VALORES NA TEXTBOX

MFSYSTEMS 07/12/2011 10:49:27
#390772
Bom dia galera, estou fazendo o seguinte comando para converter valores numa textbox:

Private Sub TxtinstRefer1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtinstRefer1.TextChanged
Dim Temp As Single
TxtinstRefer2.Enabled = True
Temp = Converte(TxtinstRefer1.Text, CboGrandezaPadrao.Text, CboGrandezaInstrumento.Text)
LblVrConv1.Text = Format(Temp, [Ô]0.000[Ô])
End Sub

O que ele faz? Ao digitar um valor na text box ele o converte, porem se o usuario apagar o valor deixando a textbox em branco o sistema da erro, e fecha.

Pergunta: Como farei para que eu continue convertendo em tempo real, ( quando o usuario digitar ele converta) e caso o usuario apague o numero e coloque outro nao de erro?

Por hoje ele digita o numero ai converte, se ele selecionar o numero e substituir ai ele converte tambem, porem se a textbox ficar em branco da erro.

Obrigado.
MFSYSTEMS 07/12/2011 10:58:10
#390773
Eu testei o seguinte e não funcionou:

If TxtinstRefer1.Text = True Then
Temp = Converte(TxtinstRefer1.Text, CboGrandezaPadrao.Text, CboGrandezaInstrumento.Text)
Else
Temp = False
End If
FROWSER 07/12/2011 11:28:12
#390774
Temp = val(TxtinstRefer1.Text, CboGrandezaPadrao.Text, CboGrandezaInstrumento.Text)

Tente assim no lugar do Converte use o Val
MFSYSTEMS 07/12/2011 11:54:53
#390781
Bom amigo fiz isso e funcionou, mas obrigado.

Dim Temp As Single
If TxtinstRefer1.Text = [Ô][Ô] Then
Else
TxtinstRefer2.Enabled = True
Temp = Converte(TxtinstRefer1.Text, CboGrandezaPadrao.Text, CboGrandezaInstrumento.Text)
LblVrConv1.Text = Format(Temp, [Ô]0.000[Ô])
End If
Tópico encerrado , respostas não são mais permitidas
Voltar