KEYPRESS EM MDIFORM

USUARIO.EXCLUIDOS 10/05/2004 11:41:00
#23889
Galera quero que um campo que está em um mdiform só aceite valores numericos ou que deixe todos os caracteres, mas um MDIFORM nao tem a propriedade keypress... Consigo fazer isso num form normal, mas em mdi nao... alguem sabe como resolver essa parada??? valeu ae
USUARIO.EXCLUIDOS 10/05/2004 11:55:05
#23896 Resposta escolhida
uma alternativa se soh por numeros sem o keypress

Option Explicit
Private Declare Function GetWindowLong& Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long)
Private Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)
Private Const ES_NUMBER = &H2000&
Private Const GWL_STYLE = (-16)


Private Sub Command1_Click()
 Dim tmpValue&
 Dim fAlignment&
 Dim ret&
 fAlignment& = ES_NUMBER
 tmpValue& = GetWindowLong&(Text1.hwnd, GWL_STYLE)
 ret& = SetWindowLong&(Text1.hwnd, GWL_STYLE, tmpValue& Or fAlignment&)
 Text1.Refresh
End Sub
USUARIO.EXCLUIDOS 10/05/2004 19:21:31
#23982
é simples coloca o Código do Command1_click no LOAD DO FORM

Mais SIMPLES que isso ?
Tópico encerrado , respostas não são mais permitidas
Voltar