MENSAGEM DE ERRO
Senhores,
Tenho um sistema que rodava em rede a muito tempo desenvolvido com o Vb5.0, porém agora o proprietário comprou uma maquina e pendurou na rede, só que esta maquina(netbook) veio com windows 7 e as outras rodam com o windows xp(inclusive o servidor).
Solicito ajuda, pois na máquina que tem o windows 7(netbook) dá o seguinte erro:
1) Para navegar entre um campo e outro do formulário além do tab é utilizado a tecla enter. Ao navegar com a tecla enter da uma mensagem de erro [Ô]Run-Time Erro[Ô]70[Ô] e aborta o programa, com a tecla tab navega normalmente. Como consertar isso?
Uma das soluções informada foi passar para o VB6.0 já fiz e continua dando o mesmo erro. Como proceder?
Desde já agradeço
Tenho um sistema que rodava em rede a muito tempo desenvolvido com o Vb5.0, porém agora o proprietário comprou uma maquina e pendurou na rede, só que esta maquina(netbook) veio com windows 7 e as outras rodam com o windows xp(inclusive o servidor).
Solicito ajuda, pois na máquina que tem o windows 7(netbook) dá o seguinte erro:
1) Para navegar entre um campo e outro do formulário além do tab é utilizado a tecla enter. Ao navegar com a tecla enter da uma mensagem de erro [Ô]Run-Time Erro[Ô]70[Ô] e aborta o programa, com a tecla tab navega normalmente. Como consertar isso?
Uma das soluções informada foi passar para o VB6.0 já fiz e continua dando o mesmo erro. Como proceder?
Desde já agradeço
colega vai ficar mais fácil postar a parte do código que gera o erro
Private Sub TxtValor_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57
[ô]Só Numeros
Case 8
[ô]Backspace
Case 44
[ô]Virgula
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub TxtValor_LostFocus()
If TxtValor.Text <> [Ô][Ô] Then
AuxValor = TxtValor
TxtValor.Text = Format(TxtValor.Text, [Ô]###,###.00[Ô])
End If
End Sub
Select Case KeyAscii
Case 48 To 57
[ô]Só Numeros
Case 8
[ô]Backspace
Case 44
[ô]Virgula
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub TxtValor_LostFocus()
If TxtValor.Text <> [Ô][Ô] Then
AuxValor = TxtValor
TxtValor.Text = Format(TxtValor.Text, [Ô]###,###.00[Ô])
End If
End Sub
colega em que parte do código você colocou para navegar coma tecla enter pois não vejo neste código
olha colega pra adiantar no form a propriedade KeyPreview tem que ser [txt-color=#0000f0]True[/txt-color]
e no evento keypress do form
e no evento keypress do form
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys ([Ô]{TAB}[Ô])
End If
End Sub
Já havia colocado no KeyPreview como true e no form_KeyPress(Keyascii as integer) fiz da seguinte forma:
Private Sub Form_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
NumLockState = keys(VK_NUMLOCK)
keys(VK_NUMLOCK) = 1
SetKeyboardState keys(0)
If TypeOf Screen.ActiveControl Is TextBox Then
SendKeys [Ô]{tab}[Ô]
End If
If TypeOf Screen.ActiveControl Is ComboBox Then
SendKeys [Ô]{tab}[Ô]
End If
If TypeOf Screen.ActiveControl Is CheckBox Then
SendKeys [Ô]{tab}[Ô]
End If
If TypeOf Screen.ActiveControl Is OptionButton Then
SendKeys [Ô]{tab}[Ô]
End If
End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
NumLockState = keys(VK_NUMLOCK)
keys(VK_NUMLOCK) = 1
SetKeyboardState keys(0)
If TypeOf Screen.ActiveControl Is TextBox Then
SendKeys [Ô]{tab}[Ô]
End If
If TypeOf Screen.ActiveControl Is ComboBox Then
SendKeys [Ô]{tab}[Ô]
End If
If TypeOf Screen.ActiveControl Is CheckBox Then
SendKeys [Ô]{tab}[Ô]
End If
If TypeOf Screen.ActiveControl Is OptionButton Then
SendKeys [Ô]{tab}[Ô]
End If
End If
End Sub
colega tentou trocar simplesmente pelo que postei acima?
é exatamente oque o Marcelo disse, agora...
Essa eu não sabia, eu colocava
Aprendi mais uma..
Valeu!
SendKeys ([Ô]{TAB}[Ô]) Essa eu não sabia, eu colocava
TextBox.GotFocus Aprendi mais uma..
Valeu!
Vou experimentar depois entro em contato.
Tópico encerrado , respostas não são mais permitidas