GetWindowText is blank

[gypsyjoe11]

Can anyone please tell me why even when it shows lengths of > 0 I still get blank spaces?

my code:

Option Compare Database
 
Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Const GW_HWNDFIRST = 0
Const GW_HWNDLAST = 1
Const GW_HWNDNEXT = 2
 
Public Sub listWindows()
    Dim counter As Long
    counter = 0
 
    Dim WindowStart As Long
    Dim WindowLast As Long
    WindowStart = GetWindow(Application.hWndAccessApp, GW_HWNDFIRST)
    WindowLast = GetWindow(Application.hWndAccessApp, GW_HWNDLAST)
 
    Dim lenTitle As Long
    Dim lenClass As Long
 
    strTitle = Space(100)
    strClass = Space(100)
 
    Do While WindowStart <> WindowLast And counter < 50 'first 50 windows
 
        counter = counter + 1
 
        'get the window title and class name
        lenTitle = GetWindowText(WindowStart, strTitle, 100)
        lenClass = GetClassName(WindowStart, strClass, 100)
 
        'print out the window information
        Debug.Print "Window #" & counter & " hwnd is " & WindowStart _
            & ", title length = " & lenTitle & ", class name length = " & lenClass
        Debug.Print "title is #" & Left(strTitle, lenTitle) & "#, class name = #" _
            & Left(strClass, lenClass) & "#"
 
        'get the next window
        WindowStart = GetWindow(WindowStart, GW_HWNDNEXT)
 
    Loop
 
End Sub

my output in the immediate window of VBA is:

listWindows
Window #1 hwnd is 3997854, title length = 27, class name length = 16
title is #                           #, class name = #                #
Window #2 hwnd is 2949294, title length = 16, class name length = 16
title is #                #, class name = #                #
Window #3 hwnd is 11666656, title length = 0, class name length = 16
title is ##, class name = #                #
Window #4 hwnd is 7406954, title length = 0, class name length = 16
title is ##, class name = #                #
Window #5 hwnd is 7931364, title length = 0, class name length = 16
title is ##, class name = #                #
Window #6 hwnd is 10618336, title length = 0, class name length = 16
title is ##, class name = #                #
Window #7 hwnd is 8848814, title length = 0, class name length = 16
title is ##, class name = #                #
Window #8 hwnd is 8914268, title length = 0, class name length = 16
title is ##, class name = #                #
Window #9 hwnd is 11011436, title length = 0, class name length = 16
title is ##, class name = #                #
Window #10 hwnd is 5965156, title length = 0, class name length = 16
title is ##, class name = #                #
Window #11 hwnd is 2294004, title length = 0, class name length = 16
title is ##, class name = #                #
Window #12 hwnd is 7931492, title length = 0, class name length = 16
title is ##, class name = #                #
Window #13 hwnd is 8390030, title length = 0, class name length = 16
title is ##, class name = #                #
Window #14 hwnd is 9504346, title length = 0, class name length = 16
title is ##, class name = #                #
Window #15 hwnd is 8652294, title length = 0, class name length = 16
title is ##, class name = #                #
Window #16 hwnd is 20252304, title length = 0, class name length = 16
title is ##, class name = #                #
Window #17 hwnd is 6292676, title length = 0, class name length = 16
title is ##, class name = #                #
Window #18 hwnd is 6685946, title length = 0, class name length = 16
title is ##, class name = #                #
Window #19 hwnd is 4719690, title length = 0, class name length = 16
title is ##, class name = #                #
Window #20 hwnd is 3867702, title length = 0, class name length = 16
title is ##, class name = #                #
Window #21 hwnd is 2621572, title length = 0, class name length = 16
title is ##, class name = #                #
Window #22 hwnd is 3342496, title length = 10, class name length = 14
title is #          #, class name = #              #
Window #23 hwnd is 2556172, title length = 0, class name length = 16
title is ##, class name = #                #
Window #24 hwnd is 2162906, title length = 0, class name length = 16
title is ##, class name = #                #
Window #25 hwnd is 1638716, title length = 0, class name length = 16
title is ##, class name = #                #
Window #26 hwnd is 3932298, title length = 0, class name length = 16
title is ##, class name = #                #
Window #27 hwnd is 3342626, title length = 0, class name length = 13
title is ##, class name = #             #
Window #28 hwnd is 5112036, title length = 0, class name length = 16
title is ##, class name = #                #
Window #29 hwnd is 2949848, title length = 0, class name length = 21
title is ##, class name = #                     #
Window #30 hwnd is 4260624, title length = 8, class name length = 8
title is #        #, class name = #        #
Window #31 hwnd is 2818628, title length = 9, class name length = 13
title is #         #, class name = #             #
Window #32 hwnd is 8979206, title length = 0, class name length = 16
title is ##, class name = #                #
Window #33 hwnd is 8259080, title length = 0, class name length = 21
title is ##, class name = #                     #
Window #34 hwnd is 1508200, title length = 0, class name length = 7
title is ##, class name = #       #
Window #35 hwnd is 13435874, title length = 0, class name length = 7
title is ##, class name = #       #
Window #36 hwnd is 11535862, title length = 8, class name length = 8
title is #        #, class name = #        #
Window #37 hwnd is 4325706, title length = 0, class name length = 16
title is ##, class name = #                #
Window #38 hwnd is 5833596, title length = 0, class name length = 21
title is ##, class name = #                     #
Window #39 hwnd is 5243606, title length = 8, class name length = 8
title is #        #, class name = #        #
Window #40 hwnd is 65636, title length = 5, class name length = 16
title is #     #, class name = #                #
Window #41 hwnd is 459226, title length = 0, class name length = 16
title is ##, class name = #                #
Window #42 hwnd is 656000, title length = 23, class name length = 6
title is #                       #, class name = #      #
Window #43 hwnd is 1769736, title length = 0, class name length = 28
title is ##, class name = #                            #
Window #44 hwnd is 2294002, title length = 0, class name length = 16
title is ##, class name = #                #
Window #45 hwnd is 7340976, title length = 16, class name length = 16
title is #                #, class name = #                #
Window #46 hwnd is 1901378, title length = 16, class name length = 16
title is #                #, class name = #                #
Window #47 hwnd is 1114942, title length = 16, class name length = 16
title is #                #, class name = #                #
Window #48 hwnd is 1835964, title length = 16, class name length = 16
title is #                #, class name = #                #
Window #49 hwnd is 8390442, title length = 16, class name length = 16
title is #                #, class name = #                #
Window #50 hwnd is 2426876, title length = 16, class name length = 16
title is #                #, class name = #                #

Any ideas?

thanks,

Joe

 

[gypsyjoe11]

Never Mind,

I figured it out. Even though I didn't have "Option Explicit" it was looking for the strings to be initialized.

If you change:

strTitle = Space(100)
strClass = Space(100)

To:

Dim strTitle As String
strTitle = Space(100)
 
Dim strClass As String
strClass = Space(100)

It works great.