Problemas com "Err"

[Dennys Lopes 0]

Eu que agradeço ... falow

[ceth 0]

Só pra complementar, segue o código final, funcionando e um tanto comentado, quem sabe ajude alguém ;)

 

Public Sub cmdOperacoes_Click(Index As Integer) Dim vValor1 As Single Dim vValor2 As Single 	If Not IsNumeric(txtNum1) Then 'iniciando a rotina, e fazendo a checagem, se não for um número "IsNumeric", então	MsgBox "Digite um número valido" 'envie uma MsgBox informando o user que o número é inválido	txtNum1.SetFocus 'volte ao txtNum1	txtNum1 = Empty 'limpe o txtNum1	Exit Sub 'esse Exit sub é para terminar a rotina porque iria dar erro se fosse digitado uma letraEnd If 'terminando o ifIf Not IsNumeric(txtNum2) Then 'iniciando a rotina, e fazendo a checagem, se não for um número "IsNumeric", então	MsgBox "Digite um número valido" 'envie uma MsgBox informando o user que o número é inválido	txtNum2.SetFocus 'volte ao txtNum1	txtNum2 = Empty 'limpe o txtNum2	Exit Sub 'Esse Exit sub é para terminar a rotina porque iria dar erro se fosse digitado uma letraEnd IfvValor1 = CSng(txtNum1.Text)'converte o resultado da expressão, para o subtipo SinglevValor2 = CSng(txtNum2.Text)'idem a de cimaSelect Case Index 'selecionando o caso	Case 1: txtResultado.Text = Format(vValor1 + vValor2, "###,##0.00") 'opção caso 1	Case 2: txtResultado.Text = Format(vValor1 - vValor2, "###,##0.00") 'opcao caso 2	Case 3: txtResultado.Text = Format(vValor1 * vValor2, "###,##0.00") '	Case 4: txtResultado.Text = Format(vValor1 / vValor2, "###,##0.00") 'End Select 'terminando a select	End Sub 'terminando a sub que iniciamos la na primeira linhaPrivate Sub Form_Unload(Cancel As Integer) 'evento unload do form 	If MsgBox("Tem certeza que deseja encerrar o programa?", vbYesNo + vbQuestion, "Saída") = vbYes Then	End 	Else 	Cancel = 1	End IfEnd SubPrivate Sub txtResultado_Change()'marcar propriedade locked como true, desabilita a opção de editar a textboxEnd SubPrivate Sub cmdLimpar_Click()txtResultado.Text = EmptytxtNum1.Text = EmptytxtNum2.Text = EmptytxtNum1.SetFocusEnd Sub

 

[]s,

ceth