bu konunun devamı olarak düşündüğüm için buradan soruyorum
vbsic de buton gibi vb nesnelerin hwnd değerleri var
Kod:
Declare Function GetForegroundWindow Lib "user32" () As Long
ile en üstteki pencerenin hwnd değerini buluyoruz
Kod:
Declare Function apiGetParent Lib "user32" Alias "GetParent" (ByVal hwnd As Long) As Long
ilede her pancerenin bağlı olduğu pencereleri buluyoruz.Anladığım kadarıyla
mesaj kutusunun bile hwnd değeri var.ben açtığım AHBS programındaki TC no girdiğim metin kutusunun içeriğini
Access e aktarmak istiyorum
şu kod
Kod:
Option Compare Database
'Getting parent Form's caption
Declare Function SetParent Lib "user32.dll" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Function GetParentFormCaption(ByVal lngHwnd As Long) As String
Dim strBuff As String * 255
Dim lngOldHwnd As Long, lngResult As Long
lngOldHwnd = GetParent(lngHwnd)
lngResult = GetWindowText(lngOldHwnd, strBuff, Len(strBuff))
GetParentFormCaption = Trim(strBuff)
End Function
Private Sub Komut0_Click()
Dim PFC As String
PFC = GetParentFormCaption([Metin1])
MsgBox PFC
End Sub
pencerenin bağlı olduğu pencere adını veriyor
bense bunları birleştirip TC girdiğim metin kutusunun içeriğini nasıl accesse çekeceğim
yardımlarınız için teşekkürler
