 |
ImplodeForm - Hiding a form with an implosion effect
|
| Total Hit (2826) |
«Code LangId=2»' Hiding a form with an implosion effect.
' the numSteps parameter is the number of steps to decrease the form size from
' the current size to 0
' the stepDuration argument is the number of milliseconds between each step
' Example:
' Private Sub Form1_Closing(...) Handles My
....Read More |
Rating
 |
|
|
|
MoveListboxItem - Moving an item of a listbox to another index
|
| Total Hit (2561) |
«Code LangId=2»
' Moves an item of a listbox to another index
' If FROMINDEX = -1 then it moves the current highlighted item
'
' Example:
' ' move up the selected item
' MoveListboxItem(ListBox1, -1, ListBox1.SelectedIndex - 1)
' ' move down the selected item
' MoveListboxItem(ListB
....Read More |
| Rating
|
|
|
|
 |
CTreeViewEdit - A class for enhanced treeview node editing
|
| Total Hit (4290) |
«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 (2017) |
«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 (3175) |
«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 (2293) |
«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 (3773) |
«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
 |
|
|
|
|
|
|
|
Adding styles to the font of the selected text of a RichTextBox
|
| Total Hit (2097) |
«Code LangId=2»' Add a style to the selection of a RichTextBox,
' without deleting the current styles that may be already
' present in the selection or in portions of it
'
' Example: AddFontStyle(richTextBox1, FontStyle.Bold)
Public Sub AddFontStyle(ByVal rtb As RichTextBox, _
ByVal styl
....Read More |
| Rating
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Creating owner drawn menu items to simulate a color picker
|
| Total Hit (3633) |
«Code LangId=2»' This class does the owner drawing of a MenuItem to draw a color box.
' The class inherits from MenuItem, thus the ColorMenuItem objects
' can be added to a parent MenuItem or a context menu as you
' normally do, and can also be mixed with other MenuItem items
' under the same
....Read More |
| Rating
|
|
|
|
ExplodeForm - Showing a form with an explosion effect
|
| Total Hit (3982) |
«Code LangId=2»
' Show a form with an explosion effect.
' the numSteps parameter is the number of steps to increase the form size from
' 0 to the original size
' the stepDuration argument is the number of milliseconds between each step
' Example:
' Private Sub Form1_Activated(...) Handles
....Read More |
| Rating
|
|
|
|
|
|