Friday, July 25, 2008

Test code

This is only a test of formatting source code in Blogger. See http://code.google.com/p/syntaxhighlighter/ for details. Use Notepad++ when copying source over from clipboard.

Option Explicit

Sub Main()

    
    
    Include "Common.TWin32TreeView"
    Dim wtv As TWin32TreeView
    
    'Window("Desktop Window").Attach
    Window("Application=Explorer.exe ClassName=CabinetWClass TypeName=Window").Attach
    
    Set wtv = New TWin32TreeView
    wtv.Handle = TreeView("Index=1").hwnd
    Dim sMsg As String
    sMsg = "Root item is " & wtv.GetRootItemText
    sMsg = sMsg & vbCrLf & "Selected item is : " & wtv.GetSelectedItemText
    'MsgBox sMsg
    
    If wtv.IsSelectedItemExpanded Then
        MsgBox "selected node is expanded"
    Else
        MsgBox "it is not yet expanded"
    End If

End Sub

No comments: