ola, bom dia a todos...

 

no meu projeto do VB6, eu usei TEXT para lançar datas, nisso eu coloquei o seguinte codigo no "KeyPress":

 

------------------------------------------------------------------------

Private Sub Text24_KeyPress(KeyAscii As Integer)
   Select Case KeyAscii
         Case 8, 48 To 57 ' BackSpace e numericos
               If Len(Text24.Text) = 2 Or Len(Text24.Text) = 5 Then
               Text24.Text = Text24.Text & "/"
               SendKeys "{End}", True
               End If
         Case Else ' o resto é travado
               KeyAscii = 0
   End Select

End Sub

--------------------------------------------------------------------

ate ai tudo bem, as versoes anteriores ao win7, funcionam sem problemas, na medida q se digita as barras vao aparecendo...

 

o problema agora é q no windows7, quando se digita a data, vai ficando tudo doida a data, ou seja, ele nao obede a definicao d onde é pra aparecer as barras, a data muda pra outro valor...

 

alguem teve esse problema no win7??

bom dia...

 

criei o modulo, conforme o exemplo...

 

fiz varias formas d chamar o modulo, mas todas deu o seguinte erro

Compiler error:

type mismatch

 

formas q fiz pra chamar a funcao:

    CampoDATA Text2.Text, KeyAscii
    CampoDATA(Text2.Text, KeyAscii)
    Text2.Text = CampoDATA(Text2.Text, KeyAscii)

 

em todas deu erro...

mas fiz isso... no keypress do campo onde se digita a data, eu tentei chamar a funcao d varias formas, mas nao deu certo.... deu a mensagem d erro