[求助]如何獲取外部程序窗體的名稱

喳喳林

我在模塊里定義了:

Public Declare Function GetWindow Lib "user32" _
(ByVal hwnd As Long, ByVal wCmd As Long) As Long

Public Declare Function GetWindowText Lib "user32" _
Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, _
ByVal cch As Long) As Long

Public Declare Function GetWindowTextLength Lib "user32" _
Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long


Public Const GW_HWNDFIRST = 0
Public Const GW_HWNDLAST = 1
Public Const GW_HWNDNEXT = 2
Public Const GW_HWNDPREV = 3
Public Const GW_OWNER = 4

在窗體的代碼如下：

Sub FindTitle()
'查找桌面上的所有窗口標題
Dim currwnd As Long, length As Long, i As Integer
Dim listitem As String
currwnd = GetWindow(hwnd, GW_HWNDFIRST)

While currwnd <> 0

length = GetWindowTextLength(currwnd)
listitem = Space(length + 1)

length = GetWindowText(currwnd, listitem, length + 1)
If length > 0 Then
MsgBox listitem
End If

currwnd = GetWindow(currwnd, GW_HWNDNEXT)

Wend
End Sub

Private Sub Command0_Click()
FindTitle
End Sub


運行代碼后無錯誤，但只能獲�。羉cess　內部窗體的標題．

有沒有辦法突破Ａccess這個主窗體的限制，去獲取外部程序的窗體標題

請各位高手給點寶貴意見．謝謝　謝謝　謝謝大家

tmtony

用API,我以前幫靈芝做過一個實例,你看看是否有幫助

http://ctxi.cn/Soft/Class3/Class1/200202/468.html

它的功能是什么呢，譬如說我在ACCESS中調用了計算器，然后又回到了ACCESS窗體，但過一會兒，我又想把這個計算器又調出來，而且想自動傳些數(shù)字給它，讓它計算，得出結果。。。 這個程序就是完成這個功能的

tmtony

又找了一下,這里應該是這個實例的源代碼.
http://ctxi.cn/Soft/Class3/Class1/200202/469.html

喳喳林

就是這個啦,謝謝您的寶貴意見,謝謝.

garyshang

好難找�。〔诲e

goto2008

學習....