Anzeige
Archiv - Navigation
648to652
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
648to652
648to652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fenster anderer Anwendungen

Fenster anderer Anwendungen
08.08.2005 17:55:49
RALF
Hallo zusammen,
wie stelle ich es sinnvoll an, auf Fenster anderer Anwendungen als Excel zuzugreifen?
Bsp.: Fenstergröße und -position einer Anwendung verändern.
Danke und Gruß
RALF

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fenster anderer Anwendungen
09.08.2005 15:17:05
Galenzo
z.B. so:

Declare

Function SetWindowPos Lib "user32" (ByVal _
hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long
Declare 

Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long

Sub test()
Const LEFT As Long = 100
Const TOP As Long = 200
Const HEIGTH As Long = 600
Const WIDTH As Long = 100
Dim hwnd  As Long
'NotePad starten
Result = Shell("notepad.exe", vbNormalFocus)
'Handle von Notepad auslesen
hwnd = FindWindow(vbNullString, "Unbenannt - Editor")
Call SetWindowPos(hwnd, 0, LEFT, TOP, WIDTH, HEIGTH, 0&)
End Sub


(zwischen Declar und

Function KEINEN Zeilenumbruch, sondern nur ein Leerzeichen. Keine Ahnung, warum das hier bei der Eingabe immer abgeändert wird)
Viel Erfolg!

Anzeige
DANKE - PASST PERFEKT (o.T)
11.08.2005 13:55:58
RALF
DANKE - PASST PERFEKT
Gruß RALF

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige