✔ Überprüfen ob ein Fenster offen ist.

[forsterm]

Hallo,

wie kann ich überprüfen, ob ein Fenster offen ist?

Bin sehr neu in Visual Basic.

 

[Merlin_78]

Du kannst dies über Visible prüfen.

If Form.Visible Then
Debug.Print "Fenster=offen"
Else
Debug.Print "Fenster=zu"
End If

 

[forsterm]

Du kannst dies über Visible prüfen.

If Form.Visible Then
Debug.Print "Fenster=offen"
Else
Debug.Print "Fenster=zu"
End If

Hallo,

ich wollte das eigentlich mit einem Fremden Fenster anhand der Titelleiste feststellen.

 

[Merlin_78]

Uuuups, da hab ich dich wohl falsch verstanden.

Dann schau mal hier rein: http://www.vbarchiv.net/archiv/tipp_details.php?pid=447

 

[forsterm]

Uuuups, da hab ich dich wohl falsch verstanden.

Dann schau mal hier rein: http://www.vbarchiv.net/archiv/tipp_details.php?pid=447

Genau nach sowas suche ich, nur leider funktioniert dieser Tipp bei mir nicht.

Kennst du vielleicht nicht noch einen anderen Code bzw. nach welchen Stichwörtern muss ich bei Google suchen?

 

[Merlin_78]

Also der Tipp funktioniert bei mir.
Welche Fehlermeldung bekommst du denn oder kannst du mal deinen Code posten?

 

[forsterm]

Also der Tipp funktioniert bei mir.
Welche Fehlermeldung bekommst du denn oder kannst du mal deinen Code posten?

Hallo,

die roten Wörter werden bei mir nicht angenommen!

Dim oListItem As ListItem
 
' ListView-Spalten festlegen
With oLSV.ColumnHeaders
 
' Inhalt löschen und umschalten auf "Detail"-Ansicht
oLSV.ListItems.Clear()
oLSV.View = lvwReport
 
' Erstes WindowHandle holen
hWnd = GetWindow(oLSV.Parent.hWnd, GW_HWNDFIRST)
 
' in das ListView eintragen
oListItem = oLSV.ListItems.Add(, , hWnd)
With oListItem
.SubItems(1) = lTaskID
.SubItems(2) = lStyle = (WS_VISIBLE Or WS_BORDER)
.SubItems(3) = sTitle
End With
 
' Ermittelt den Namen eines Windows anhand des
' Window Handle
Dim lResult As Long
Dim sTemp As String
lResult = GetWindowTextLength(hWnd) + 1
sTemp = Space(lResult)
lResult = GetWindowText(hWnd, sTemp, lResult)
GetWindowTitle = Left(sTemp, Len(sTemp) - 1)

ich hab jetzt mit Absicht nicht den ganzen Code gepostet sondern nur die Teile wo halt'n fehler drin war.
Hoffe du kannst damit was anfagen und mir ggf. helfen.

 

[Merlin_78]

Hi forsterm,

so wie es aussieht, wird die ListView-Komponente nicht erkannt. Das kann nur heißen, daß du sie nicht auf dem Formular hast, oder daß der Name nicht mit dem kopierten Code übereinstimmt.

Also:
- über die Komponenten das Microsoft Windows Common Controls 6.0 einfügen und dann die ListView-Komponente auf dem Formular platzieren
- Namen der ListView-Komponente ändern -> "ListView" (wie im Click-Event)

  ' Fensterliste ermitteln und anzeigen
  Private Sub Command1_Click()
	GetWindowList ListView
  End Sub

Falls es nicht geht, einfach nochmal melden

 

[forsterm]

Also:
- über die Komponenten das Microsoft Windows Common Controls 6.0 einfügen und dann die ListView-Komponente auf dem Formular platzieren
- Namen der ListView-Komponente ändern -> "ListView" (wie im Click-Event)

' Fensterliste ermitteln und anzeigen
Private Sub Command1_Click()
	GetWindowList ListView
End Sub

Falls es nicht geht, einfach nochmal melden

Genauso hab's ich gemacht, aber es geht trozdem nicht.

Ps: Vielen Dankt für deine bisherige Hilfe find ich echt nett von dir, dass du dir so viel zeit nimmst für micht.

 

[Merlin_78]

Hi forsterm,

das find ich seltsam. Ich schick dir mal das ganze als zip-File. Ist mit Formular und allem was dazugehört. Teste dies dann mal.