vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Window Position 
Autor: kotto
Datum: 21.09.03 14:48
Nochmal ich habe vergessen den code zu pasten:
Ich habe mir jetzt eine Lösung gebastelt, das Programm zeigt mir den Titel des Fensters und die Position an, aber die Position ist immer die vom VB-Programm selbst. Was mache ich den da falsch?

gruss

Kotto


Option Explicit

Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" _
Alias "GetWindowTextA" ( _
ByVal hwnd As Long, _
ByVal lpstring As String, _
ByVal cch As Long) As Long
Private Declare Function GetWindowRect Lib "user32" _
(ByVal hwnd As Long, lpRect As RECT) As Long

Dim nHwnd As Long
Dim sTitle As String
Dim nResult As Long
Dim x As Integer
Private Type RECT
left As Long
top As Long
right As Long
bottom As Long
End Type
Dim R As RECT


Private Sub Timer1_Timer()

nHwnd = GetForegroundWindow()
Call GetWindowRect(hwnd, R)
sTitle = Space$(255)
nResult = GetWindowText(nHwnd, sTitle, Len(sTitle))

List1.AddItem "nHwnd:" & nHwnd & " " & sTitle & " " & "nResult:" & nResult
List1.AddItem "Pos:" & R.left & " " & R.top

' Löschen von List1 wenn voll
x = x + 1
If x >= 8 Then
x = 0
List1.Clear
End If
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Window Position565kotto21.09.03 13:35
Re: Window Position340nilschwein21.09.03 14:43
Re: Window Position380kotto21.09.03 14:46
Re: Window Position447kotto21.09.03 14:48
Re: Window Position346kotto21.09.03 14:57
Re: Window Position453GuidoE21.09.03 20:10

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel