|
|
|
|
|
|
|
|
 |
DragControl - Drag any control using the mouse
|
| Total Hit (3016) |
«Code LangId=1»
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function ClipCursor Lib "user32" (lpRect As RECT) As Long
Private Declare Function Cli
....Read More |
Rating
 |
|
|
|
DrawBorder - Draw a raised/bump/etched/sunken border
|
| Total Hit (2370) |
«Code LangId=1»Option Explicit
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Enum mbBorderTypeConstants
mbRaised = 0
mbSunken = 1
mbEtched = 2
mbBump = 3
End Enum
'draw a raised/bump/etched/sunken border at
....Read More |
Rating
 |
|
|
|
|
|
|
|
|
|
ExplodeForm - Show a form with an explode effect
|
| Total Hit (1841) |
«Code LangId=1»
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
' Show a form with an explosion effect.
' the lNumSteps parameter is the number of steps to increase the form size from
' 0 to the original size
' the lStepDuration argument is the number of milliseconds
....Read More |
| Rating
|
|
|
|
ForceTextBoxCase - Set a textbox's upper/lowercase style
|
| Total Hit (1989) |
«Code LangId=1»Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) A
....Read More |
| Rating
|
|
|
|
ForceTextBoxNumeric - Create a numeric Textbox
|
| Total Hit (2263) |
«Code LangId=1»
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)
....Read More |
| Rating
|
|
|
|
|
|
|
|
|
|
IsFormModal - Determines whether a form is modal
|
| Total Hit (2086) |
«Code LangId=1»
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Const GWL_STYLE = (-16)
Const WS_DISABLED = &H8000000
' Return True if the form is modal
'
' Note: if an application has only one visible
'
....Read More |
| Rating
|
|
|
|
|
|
|
|
|
|
|
|
|
|
MakeModalForm - Make a modeless form modal
|
| Total Hit (1622) |
«Code LangId=1»' make a modeless form modal
'
' this procedure should be called by passing TRUE
' in the 2nd argument to make the form modal, and
' called again with FALSE in the 2nd argument when
' the form is being unloaded.
'
' Private Sub Form_Load()
' MakeModalForm Me, True
' End Su
....Read More |
| Rating
|
|
|
|
|
|
|
|
OverwriteHandler - A class for handling overwrite mode
|
| Total Hit (2244) |
«Code LangId=1»'---------------------------------------------------------
' OverwriteHandler class
'
' you can associate this class to a form, using the
' Form property, and all the textbox controls in the
' form will support insert/overwrite mode switching
'
' Usage: Dim ov As New Overwrite
....Read More |
| Rating
|
|
|
|
|
|
|
|
|
|
SetMenuBitmap - Add a bitmap to a menu item
|
| Total Hit (3736) |
«Code LangId=1»
Private Declare Function GetMenu Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, _
ByVal nPos As Long) As Long
Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, _
ByVal nPositio
....Read More |
| Rating
|
|
|
|
SetWindowShape - Create elliptical or rounded forms
|
| Total Hit (3474) |
«Code LangId=1»Private Type POINTAPI
X As Long
Y As Long
End Type
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
' Region API functins
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, _
ByVal Y1 As L
....Read More |
| Rating
|
|