elcome back to my process of creating a new architecture. As you know, as I write this the creation process is not over, but is still ongoing. I’m changing things all the time which means the architecture is slightly different in every article. The good news is that nothing has
‘ Returns the nesting level of a TreeView’s Node object’ (returns zero for root nodes)Function GetNodeNestingLevel(ByVal node As TreeNode) As Integer Do Until (node.Parent Is Nothing) GetNodeNestingLevel += 1 node = node.Parent LoopEnd Function
‘ 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 MyBase.Closing’ ImplodeForm(Me)’ End SubSub ImplodeForm(ByVal frm
Shared Function _ GetWindowLong(ByVal hWnd As Integer, ByVal nIndex As Integer) As IntegerEnd Function Shared Function _ SetWindowLong(ByVal hWnd As Integer, ByVal nIndex As Integer, _ ByVal dwNewLong As Integer) As IntegerEnd Function’ Force a TextBox control to accept only numeric digits’ Cancel the effect by passing Force = False”
‘ 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(ListBox1, -1, ListBox1.SelectedIndex + 1)Sub MoveListboxItem(ByVal ctl As ListBox, ByVal
‘ Returns a value >0 if node1 is a parent (or grandparent) of node2’ Returns a value node2.FullPath.Length Then ‘ if the two nodes belong to the same subtree, ‘ then node1 is a (grand)child of node2 If node1.FullPath.IndexOf(node2.FullPath) = 0 Then ‘ do the loop only if the two
‘ 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 MyBase.Activated’ ExplodeForm(Me)’ End SubSub ExplodeForm(ByVal frm