/ Snippet Library - View Code

Visual Basic / Text / ForceText

Snippet details

ID: 463

Viewed: 1373

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

Force entry type with a simple API Call

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Paul McGuinness

Snippet By:	Paul McGuinness
Declarations
Highlight AllOption Explicit Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Const GWL_STYLE = (-16) Private Const ES_UPPERCASE As Long = &H8& Private Const ES_LOWERCASE As Long = &H10& Private Const ES_NUMBER As Long = &H2000
Code
Highlight AllPrivate Sub Form_Load() Dim DefStyle& DefStyle = GetWindowLong(Text1.hwnd, GWL_STYLE) Call SetWindowLong(Text1.hwnd, GWL_STYLE, DefStyle Or ES_NUMBER) End Sub

No Reviews to show