Hi Again,
The below routines are used for processing the hotkeys at the end of the
last posting and how to build the treeview for storage on the .ini file when
you press the Save option on the file menu.
Sub AlertWebPage( sKey)
'Save, Read, Or Load Web Page From Alert URL.
Dim dObj: Set dObj = TV_Obj.Children
'Set to top level item to collect data.
If TV_Data Mod 10 > 0 Then Set dObj = TV_Obj.ParentItem.Children
TheURLArray(1) = dObj.Item( 1).Text
TheURL = dObj.Item( 2).Text
TheURLArray(2) = TheURL
TheURLArray(3) = dObj.Item( 3).Text
TheURLArray(4) = dObj.Item( 4).Text
TheURLArray(5) = dObj.Item( 5).Text
FindHeader = False 'Init for web download.
'Save URL to clipboard Alt-Page Up hotkey.
If sKey = "p" Then
Clipboard.Text = TheURLArray(2)
msgBox " The URL Is Saved In Your Clipboard and Is Displayed Below: " &
vbCrLf & Clipboard.Text
Exit Sub
End If
If TheURLArray(5) = "True" Then FindHeader = True
myAlertLoadUrl = True
LaunchMainDialog 'List View Dialog
'Choice below made on menu setting.
LoadWebPage sKey
End Sub
Function GetTreeData( treeId)
'Loop Tree To Build TheUrlAlerts.
Dim treeObj, sTree, node, child, children
sTree = ""
Set treeObj = myAlertDialog.Control( treeId).TopLevel
For Each node In treeObj
For Each child In node.Children
If sTree <> "" Then sTree = sTree & vbCrLf
' sTree = sTree & child.Text
For Each children In child.Children
sTree = sTree & Trim( children.Text)
If children.Data Mod 10 <> 5 Then sTree = sTree & "~"
Next 'Children
Next 'Child
Next 'Node
Set treeObj = Nothing
GetTreeData = sTree
End Function
---
This email is free from viruses and malware because avast! Antivirus protection
is active.
http://www.avast.com
