Validate Any Control (VB5 or VB6)

[dw85745]

I developed this for VB5 since no validation event.
Forces return to Control Upon Error.



In Module:
----------


Public Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long


Public Sub SetCtrlFocus(hwnd As Long)
'Set Focus to a control.
'Forces Validation like VB6

Call Putfocus(hwnd)

End Sub


In Control LostFocus Event:
-----------------------------------------
(See below for example)

Private Sub tbDataEndDate_LostFocus()

On Error GoTo Error_tbDataEndDate

{Code to check TextBox Input}


Exit Sub

Error_tbDataEndDate:

{Error Routine Goes Here}

Call SetCtrlFocus(tbDataEndDate.hwnd) '<<<<< RETURNS FOCUS IF ERROR

End Sub