Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Aktywny textbox
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003
Aktywny textbox

Jak wydłubać hWnd aktywnego textboxa? (nie chodzi mi tu o moją aplikację;ogólnie)


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

29-03-2005 20:21
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
DJK



Typ: neutral
Postów: 871
Zarejestrowany: Feb 2004

Może spróbuj

Declare Function WindowFromPoint Lib "user32" Alias "WindowFromPoint" (ByVal xPoint As Long, ByVal yPoint As Long) As Long

Z X i Y musisz podać jakieś koordynaty na którym znajduje się aktywne okno chociaż nie wiem czy jest to dobry sposób


_____________________________________________
Jeśli można coś zrobić w sposób optymalny to czemu nie

30-03-2005 12:41
Pokaż profil DJK  Wyślij email do DJK   Odwiedź stronę DJK  
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

sposób świetny! Wiem, że textbox jest jakieś </> 600twp od dołu. Wyciągnę teraz tylko wielkość okna i będę miał :>


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

30-03-2005 13:57
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Tylko teraz:
1)Jak wydłubać Height określonego okna (zakładam, że uchwyt mam)
2)Jak wydłubać Iconę danego okna


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

30-03-2005 14:04
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

ad.1:
Przykład na odczytanie współrzędnych guzika Start na ekranie:
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Sub Form_Load()
    Okno = FindWindow("Shell_TrayWnd", vbNullString)
    Dim R As RECT

    Butt = FindWindowEx(Okno, ByVal 0&, "BUTTON", vbNullString)
    GetWindowRect Butt, R
    AutoRedraw = True
    Print "X: " & R.Left
    Print "Y: " & R.Top
    Print "Szerokość: " & R.Right - R.Left
    Print "Wysokość: " & R.Bottom - R.Top
   

End Sub

Nie trudno wykorzystać ten kod aby otrzymać wysokość wybranego okna.

[Post edytowany dnia 30-03-2005 18:05 przez Chudy]


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

30-03-2005 18:04
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1