vbsic de buton gibi vb nesnelerin hwnd değerleri var
Kod:
Declare Function GetForegroundWindow Lib "user32" () As LongKod:
Declare Function apiGetParent Lib "user32" Alias "GetParent" (ByVal hwnd As Long) As Longmesaj 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 Subbense 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
