Skip to main content

AccessTr.neT


access içinden bir kod ile buton tıklamak

accessman
accessman
1
2460

access içinden bir kod ile buton tıklamak

#1
herhangi bir programın
herhangi bir penceresinin
herhangi bir butonunu
access içinden bir kod ile nasıl tıklatabiliriz
bu işe yarar mı?
Kod:
if( IsWindowSuitable( (HWND)wParam ) && IsPositionOK( (HWND)wParam,&right, &top ) )
@benbendedeilem
Cevapla
#2
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
@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task