Fenster sollen sich nur inerhalb eines Panels bewegen

  • VB.NET

Es gibt 33 Antworten in diesem Thema. Der letzte Beitrag () ist von Gonger96.

    Fenster sollen sich nur inerhalb eines Panels bewegen

    hi,
    Jch will es irgenwie bewerkstelligen das sich alle geöfnetten Fenster nur inerhalb des Bereiches bewegen können der von einem Panel abgedeckt wird.
    Ich hab das schonmal mit so einer Methode versucht: [VB.NET] Prozess in die eigene Anwendung einbetten und wieder freigeben. aber das klappt nicht so wie ich mir das vorgestellt habe.

    Mein Code:

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    2. Public Class Form1
    4. Private Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal flag As Integer) As IntPtr
    5. Private Declare Function SetParent Lib "user32.dll" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr
    7. Private Const SW_NORMAL As Integer = 1
    8. Private Const SW_MAXIMIZE As Integer = 3
    10. Private h As IntPtr
    16. Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
    17. Timer1.Start()
    18. End Sub
    20. Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    21. ReleaseApplicationAsChild()
    22. End Sub
    24. Private Sub SetApplicationAsChild(ByVal CallingApplication As String, ByVal p As System.Windows.Forms.Panel)
    25. Dim hProcess As System.Diagnostics.Process = Process.GetProcessesByName(CallingApplication)(0)
    26. If hProcess.MainWindowHandle <> 0 Then
    27. ' Parent Fenster setzen.
    28. SetParent(hProcess.MainWindowHandle, p.Handle)
    29. 'hProcess.WaitForInputIdle()
    30. 'Fenster anzeigen.
    31. ShowWindow(hProcess.MainWindowHandle, SW_MAXIMIZE)
    32. 'handle merken, um beim freigeben weniger stress zu haben
    33. h = hProcess.MainWindowHandle
    35. Else
    36. MessageBox.Show("Kein gültiges Fensterhandle - Anwendung kann nicht eingebettet werden.")
    37. 'Me.Button1.Enabled = True
    38. 'Me.Button2.Enabled = False
    39. End If
    40. End Sub
    42. Private Sub ReleaseApplicationAsChild()
    43. 'parent der anwendung wieder löschen
    44. SetParent(h, Nothing)
    45. 'fenster der anwendung anzeigen
    46. ShowWindow(h, SW_NORMAL)
    47. 'button sperren
    49. End Sub
    52. Private Sub t_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    53. 'prozessliste aktualisieren - um alle geöffneten fenster erfassen zu können
    54. Timer1.Stop()
    55. Dim index As Integer = Me.ListBox1.SelectedIndex
    56. 'alle prozesse die einen fenstertitel haben in die listbox eintragen
    57. Me.ListBox1.Items.Clear()
    58. For Each p As Process In Process.GetProcesses
    59. If p.MainWindowTitle <> "" Then
    60. Me.ListBox1.Items.Add(p.ProcessName)
    61. End If
    62. Next
    63. Me.ListBox1.SelectedIndex = index
    65. Timer1.Start()
    66. End Sub
    68. Private Sub ListBox1_DoubleClick(sender As Object, e As System.EventArgs) Handles ListBox1.DoubleClick
    69. If ListBox1.SelectedItem = "" Then
    71. Else
    73. If Panel1.HasChildren = True Then
    74. ReleaseApplicationAsChild()
    75. SetApplicationAsChild(ListBox1.SelectedItem, Panel1)
    76. Else
    77. SetApplicationAsChild(ListBox1.SelectedItem, Panel1)
    78. End If
    80. End If
    81. End Sub
    82. End Class


    vieleicht wisst ihr ja eine bessere Methode...

    Was funktioniert daran nicht, wie äußert sich das?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @supercyrex
    Verstehst du es nicht?
    Dann schreib diesen Code woanders, nicht im Timer...
    Wenn der Timer sich wiederholt, dann führt sich der Code erneut aus und das immer wieder und wieder...
    Und irgendwann hängt es sich auf. :wacko:


    @Gonger96
    Wäre auch ne Möglichkeit... Allerdings kommt sonst nur das in Frage

    supercyrex schrieb:

    Denk ich mal.....
    Mach das zunächst raus und überleg, dass Du nur neue Prozesse aufnimmst, die wiederholen sich sonst bei jedem Timer-Tick.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Gonger96 schrieb:


    Daran liegts auch nicht. Stell einfach Strict On

    Wenn ich Option Strict auf ON setzte bekomm ich eine Fehlermeldung:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal flag As Integer) As IntPtr
    4. Private Declare Function SetParent Lib "user32.dll" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr
    6. Private Const SW_NORMAL As Integer = 1
    7. Private Const SW_MAXIMIZE As Integer = 3
    9. Private h As IntPtr
    15. Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
    16. Timer1.Start()
    17. End Sub
    19. Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    20. ReleaseApplicationAsChild()
    21. End Sub
    23. Private Sub SetApplicationAsChild(ByVal CallingApplication As String, ByVal p As System.Windows.Forms.Panel)
    24. Dim hProcess As System.Diagnostics.Process = Process.GetProcessesByName(CallingApplication)(0)
    25. If hProcess.MainWindowHandle <> 0 Then
    26. 'hier bekomm ich die Fehlermeldung:
    27. 'Fehler 1 Fehler bei der Überladungsauflösung, da keine zugreifbare "<>" mit diesen Argumenten aufgerufen werden kann: "Public Shared Operator <>(value1 As System.IntPtr, value2 As System.IntPtr) As 'Boolean": "Option Strict On" lässt keine impliziten Konvertierungen von Integer in System.IntPtr zu.
    35. SetParent(hProcess.MainWindowHandle, p.Handle)
    36. 'hProcess.WaitForInputIdle()
    37. 'Fenster anzeigen.
    38. ShowWindow(hProcess.MainWindowHandle, SW_MAXIMIZE)
    39. 'handle merken, um beim freigeben weniger stress zu haben
    40. h = hProcess.MainWindowHandle
    42. Else
    43. MessageBox.Show("Kein gültiges Fensterhandle - Anwendung kann nicht eingebettet werden.")
    44. 'Me.Button1.Enabled = True
    45. 'Me.Button2.Enabled = False
    46. End If
    47. End Sub
    49. Private Sub ReleaseApplicationAsChild()
    50. 'parent der anwendung wieder löschen
    51. SetParent(h, Nothing)
    52. 'fenster der anwendung anzeigen
    53. ShowWindow(h, SW_NORMAL)
    54. 'button sperren
    56. End Sub
    59. Private Sub t_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    60. 'prozessliste aktualisieren - um alle geöffneten fenster erfassen zu können
    61. Timer1.Stop()
    62. Dim index As Integer = Me.ListBox1.SelectedIndex
    63. 'alle prozesse die einen fenstertitel haben in die listbox eintragen
    64. Me.ListBox1.Items.Clear()
    65. For Each p As Process In Process.GetProcesses
    66. If p.MainWindowTitle <> "" Then
    67. Me.ListBox1.Items.Add(p.ProcessName)
    68. End If
    69. Next
    70. Me.ListBox1.SelectedIndex = index
    72. Timer1.Start()
    73. End Sub
    75. Private Sub ListBox1_DoubleClick(sender As Object, e As System.EventArgs) Handles ListBox1.DoubleClick
    76. If ListBox1.SelectedItem.ToString = "" Then
    78. Else
    80. If Panel1.HasChildren = True Then
    81. ReleaseApplicationAsChild()
    82. SetApplicationAsChild(CStr(ListBox1.SelectedItem), Panel1)
    83. Else
    84. SetApplicationAsChild(CStr(ListBox1.SelectedItem), Panel1)
    85. End If
    87. End If
    88. End Sub
    89. End Class


    Ich denke nicht das es an Option Strict liegt.

    Deswegen klappts ja nicht ^^
    0 ist ein Integer kein Intptr.

    VB.NET-Quellcode

    1. If hProcess.MainWindowHandle <> IntPtr.Zero Then
    2. SetParent(hProcess.MainWindowHandle, p.Handle)
    3. ShowWindow(hProcess.MainWindowHandle, SW_MAXIMIZE)
    4. h = hProcess.MainWindowHandle
    5. Else
    6. MessageBox.Show("Kein gültiges Fensterhandle - Anwendung kann nicht eingebettet werden.")
    7. End If

Facebook
Telefonspende