|
|
|
|
|
|
|
CTreeViewEdit - A class for enhanced treeview node editing
|
Total Hit (4277) |
«Code LangId=1»'-------------------------------------------------------
' The CTREEVIEWEDIT Class module
'
' This class lets you use a regular TextBox control to
' edit a treeview node's label. All you have to do to
' use this class is adding a TextBox control to the same
' form that hosts the
....Read More |
Rating
|
|
|
GetNodeRelationship - Check if two nodes are relatives
|
Total Hit (2003) |
«Code LangId=1»
' Returns a value >0 if Node1 is a parent (or grandparent) of Node2
' Returns a value <0 if Node1 is a child (or grandchild) of Node2
' in both cases the number reflects the number of levels
' between the two nodes
' Returns 0 if the two Nodes are the same or
' if they be
....Read More |
Rating
|
|
|
|
GetTreeViewNodeHandle - The handle of any node in a TreeView
|
Total Hit (3159) |
«Code LangId=1»
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Private Const TVM_GETNEXTITEM = &H110A
Private Const TVGN_CARET = 9
' The handle of any node in a TreeVie
....Read More |
Rating
|
|
|
|
|
|
|
|
|
|
NodeNestingLevel - The nesting level of a TreeView's node
|
Total Hit (2285) |
«Code LangId=1»' Returns the nesting level of a TreeView's Node object
' (returns zero for root nodes.)
Function NodeNestingLevel(ByVal Node As Node) As Integer
Do Until (Node.Parent Is Nothing)
NodeNestingLevel = NodeNestingLevel + 1
Set Node = Node.Parent
Loop
End
....Read More |
Rating
|
|
|
SaveImageList - Save the images in an ImageList control
|
Total Hit (3757) |
«Code LangId=1»
' Save all the images in an ImageList control to a disk file
' Images can be later loaded in the same ImageList control using the
' LoadImageList routine
'
' Note 1: if the file exists, it is overwritten
' Note 2: this routine always save the contents of the ListImages collecti
....Read More |
Rating
|
|
|
|
|
|
|
SetMenuBitmap - Add a bitmap to a menu item
|
Total Hit (3729) |
«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 (3471) |
«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
|
|
|
SplitSubMenu - Split a submenu with vertical bars
|
Total Hit (2847) |
«Code LangId=1»
Private Type MENUITEMINFO
cbSize As Long
fMask As Long
fType As Long
fState As Long
wID As Long
hSubMenu As Long
hbmpChecked As Long
hbmpUnchecked As Long
dwItemData As Long
dwTypeData As String
cch As Long
End Type
Private
....Read More |
Rating
|
|
|
|
|
|