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
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.
Subscribe to:
Post Comments (Atom)
Fedora install screen chronicle
Fedora install screen chronicle Below are links to Fedora installation screens. It is interesting to see how it has evolved over time. Fe...
-
Tried to update my Ubuntu host today and it did pickup that new version of VirtualBox is available (4.1.8). All other packages installed pro...
-
Installing MonoDevelop in OpenSUSE 12.2 from its repository was very easy. When running it for the first time though I got the message: Th...
-
Tried to run GenerateProjectFiles.bat to build Unreal Engine from source ( link ), but got error like below: C:\>Users\x\UnrealEngi...
No comments:
Post a Comment