Fensterpositionen bleiben nach Schließen nicht gespeichert.

Habe auf dem Lumia 820 nun auch die Preview Version drauf um sie zu testen

Läuft nach dem Hardreset richtig gut, keine Fehler. Jedoch ist mir aufgefallen, das alle Anwendungen beim zurück gehen nicht schließen, sondern wie bei Windows Desktop offen bleiben. Kann man das irgendwo einstellen, das diese direkt komplett schließen?

Also nicht erst lange auf zurück und dann per X schließen, sondern sofort, das meine ich ^^
Fensterpositionen auf erweitertem Desktop speichern - How To?

 

GELÖST Speichern von Fensterpositionen in eine INI Datei und wieder auslesenFrage Entwicklung VB for Applications jogi1989 (Level 1) - Jetzt verbinden 28.03.2013 um 14:38 Uhr, 2458 Aufrufe, 3 Kommentare .Hallo Zusammen,

Ich habe als völliger Programmier Neuling folgendes Prolem.
Ich möchte in einem VBS Script folgenden Code einfügen, um die Festerposition nach dem schließen zu speichern und beim nächste starten soll es sich die Position aus einer INI Datei holen.


Ist dieser Code denn noch VBS, oder als welche Datei muss der Code gespeichert werden?
Wie gesagt, ich habe von Programmieren überhaupt keine Ahnung, aber ich versuche mein bestes um es zu lernen
und hoffe Ihr könnt mir dabei behilflich sein.


Hier der Quellcode:
Quelltext | Drucken 'Beispiel : INI-Dateien schreiben und lesen. Letzte Fensterposition beim ' beenden des Programms speichern, und bei einem Neu- ' start des Programms an dieser Fensterposition wieder posi- ' tionieren. Private Declare Function WritePrivateProfileString Lib "kernel32" _ Alias "WritePrivateProfileStringA" _ (ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, _ ByVal lpString As Any, _ ByVal lpFileName As String) _ As Long Private Declare Function GetPrivateProfileString Lib "kernel32" _ Alias "GetPrivateProfileStringA" _ (ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, _ ByVal lpDefault As String, _ ByVal lpReturnedString As String, _ ByVal nSize As Long, _ ByVal lpFileName As String) _ As Long Private Sub Form_Load() Dim sRet As String Dim lRet As Long sRet = String$(60, 0) lRet = GetPrivateProfileString("Fensterposition", "Links", "0", sRet, 60, App.Path & "\" & App.EXEName & ".ini") If lRet > 0 Then sRet = Left$(sRet, lRet) If IsNumeric(sRet) Then Form1.Left = CInt(sRet) End If Else MsgBox "Fehler.", "Fehler..." End If sRet = String$(60, 0) lRet = GetPrivateProfileString("Fensterposition", "Oben", "0", sRet, 60, App.Path & "\" & App.EXEName & ".ini") If lRet > 0 Then sRet = Left$(sRet, lRet) If IsNumeric(sRet) Then Form1.Top = CInt(sRet) End If Else MsgBox "Fehler.", "Fehler..." End If End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If WritePrivateProfileString("Fensterposition", "Links", Format$(Me.Left), App.Path & "\" & App.EXEName & ".ini") <= 0 Then MsgBox "Fehler.", "Fehler..." End If If WritePrivateProfileString("Fensterposition", "Oben", Format$(Me.Top), App.Path & "\" & App.EXEName & ".ini") <= 0 Then MsgBox "Fehler.", , "Fehler..." End If End Sub Private Sub Command1_Click() Unload Me End End Sub01.'Beispiel : INI-Dateien schreiben und lesen. Letzte Fensterposition beim 02.' beenden des Programms speichern, und bei einem Neu- 03.' start des Programms an dieser Fensterposition wieder posi- 04.' tionieren. 05. 06.Private Declare Function WritePrivateProfileString Lib "kernel32" _ 07. Alias "WritePrivateProfileStringA" _ 08. (ByVal lpApplicationName As String, _ 09. ByVal lpKeyName As Any, _ 10. ByVal lpString As Any, _ 11. ByVal lpFileName As String) _ 12. As Long 13. 14.Private Declare Function GetPrivateProfileString Lib "kernel32" _ 15. Alias "GetPrivateProfileStringA" _ 16. (ByVal lpApplicationName As String, _ 17. ByVal lpKeyName As Any, _ 18. ByVal lpDefault As String, _ 19. ByVal lpReturnedString As String, _ 20. ByVal nSize As Long, _ 21. ByVal lpFileName As String) _ 22. As Long 23. 24.Private Sub Form_Load() 25. Dim sRet As String 26. Dim lRet As Long 27. 28. sRet = String$(60, 0) 29. lRet = GetPrivateProfileString("Fensterposition", "Links", "0", sRet, 60, App.Path & "\" & App.EXEName & ".ini") 30. If lRet > 0 Then 31. sRet = Left$(sRet, lRet) 32. If IsNumeric(sRet) Then 33. Form1.Left = CInt(sRet) 34. End If 35. Else 36. MsgBox "Fehler.", "Fehler..." 37. End If 38.  39. sRet = String$(60, 0) 40. lRet = GetPrivateProfileString("Fensterposition", "Oben", "0", sRet, 60, App.Path & "\" & App.EXEName & ".ini") 41. If lRet > 0 Then 42. sRet = Left$(sRet, lRet) 43. If IsNumeric(sRet) Then 44. Form1.Top = CInt(sRet) 45. End If 46. Else 47. MsgBox "Fehler.", "Fehler..." 48. End If 49.End Sub 50. 51.Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 52. If WritePrivateProfileString("Fensterposition", "Links", Format$(Me.Left), App.Path & "\" & App.EXEName & ".ini") <= 0 Then 53. MsgBox "Fehler.", "Fehler..." 54. End If 55. If WritePrivateProfileString("Fensterposition", "Oben", Format$(Me.Top), App.Path & "\" & App.EXEName & ".ini") <= 0 Then 56. MsgBox "Fehler.", , "Fehler..." 57. End If 58.End Sub 59. 60.Private Sub Command1_Click() 61. Unload Me 62. End 63.End Sub Antworten TeilenDruckenPermanent-LinkAn Facebook sendenAn Twitter sendenAn Google+ senden3 Antworten LÖSUNG rubberman schreibt am 28.03.2013 um 22:50:14 Uhr LÖSUNG jogi1989 schreibt am 02.04.2013 um 08:13:42 Uhr LÖSUNG rubberman schreibt am 02.04.2013 um 18:56:16 Uhr rubberman (Level 2) - Jetzt verbinden LÖSUNG 28.03.2013 um 22:50 Uhr Hallo jogi1989.

In VBS aka VBScript kannst du keine WINAPIs deklarieren und somit auch nicht mit ihnen arbeiten. Außerdem hat VBScript auch kein Fenster, dessen Position gesichert werden könnte!

Der Code scheint VB6 zu sein und lässt sich sicher mit einem alten VB6 Compiler kompilieren (so wahrscheinlich noch nicht, da unvollständig). Ggf. könnte man ihn auch in VBA übertragen und in MS Office Dateien nutzen.

WINAPI Funktionen kannst du in den meisten Programmiersprachen nutzen. Da du aber, wie du schreibst, keine Programmiererfahrungen hast, ist es kaum möglich dir zu irgend etwas zu raten. Was willst du damit eigentlich erreichen?

Grüße
rubberman Kommentieren Antwort melden jogi1989 (Level 1) - Jetzt verbinden LÖSUNG 02.04.2013 um 08:13 Uhr Hallo rubberman,

ich habe mehrere vbs. dateien und .hta dateien, welche für einen Monitoring Rechner genutzt werden,
die einzelnen Fenster sollen auf 7 Monitore verteilt werden.
da es mühseligt ist diese immmer per hand zurecht zu rücken, habe ich die Aufgabe bekommen
(im besten Fall) die Fensterposition der einzelnen Fenster beim schließen in eine .Ini datei zu speichern und die position eim starten der Dateien wieder zu laden. Kommentieren Antwort melden rubberman (Level 2) - Jetzt verbinden LÖSUNG 02.04.2013 um 18:56 Uhr Hallo jogi1989,

es bleibt dabei, ein VBScript hat kein Fenster. Somit gibt es keine Position, die zu speichern wäre.

Was HTA angeht, google ich doch gern für dich
Hey, Scripting Guy! How Can I Get an HTA to Remember Its Previous Position Onscreen?
In wiefern das die richtige Position über mehrere Monitore speichert, weiß ich nicht. Kann es auch nicht testen, da mir nur ein Monitor zur Verfügung steht (was mir persönlich auch völlig ausreicht ).