Forum Discussion
sverweij
14 years agoNew Contributor
Figured it out:
''' <summary>
''' Simple wrapper around MaskedTextBox. Exists solely because MaskedTextBox does not respond to
''' WM_SETTEXT messages, and it needs to in order to be used with testing tools.
''' </summary>
Friend NotInheritable Class MaskedTextBoxWrapper
Inherits MaskedTextBox
Private Const WM_SETTEXT As Integer = &HC
Protected Overrides Sub WndProc(ByRef message As Message)
If message.Msg = WM_SETTEXT Then
Dim value As String = Marshal.PtrToStringUni(message.LParam)
MyBase.Text = value
End If
MyBase.WndProc(message)
End Sub
End Class