Position von Fremde Fenster ermitteln und setzen

    • VB.NET

    Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von NscMike.

      Position von Fremde Fenster ermitteln und setzen

      VB.NET-Quellcode

      1. Public Class Form1
      3. 'Fenster auf neue Position setzen
      4. Private Declare Function SetWindowPos Lib "user32.dll" ( _
      5. ByVal hwnd As Int32, _
      6. ByVal hWndInsertAfter As Int32, _
      7. ByVal x As Int32, _ '-----------------Fenster Position
      8. ByVal y As Int32, _ '-----------------Fenster Position
      9. ByVal cx As Int32, _ '------------------Fenstergröße
      10. ByVal cy As Int32, _ '-----------------Fenstergröße
      11. ByVal wFlags As Int32) As Int32
      13. Private Const HWND_NOTOPMOST As Int32 = -2
      14. Private Const SWP_SHOWWINDOW As Int32 = &H40
      16. 'Fenster position ermitteln/auslesen
      17. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
      18. Private Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As IntPtr, ByRef lpRect As RECT) As Integer
      21. Private Structure RECT
      22. Public Left As Int32
      23. Public Top As Int32
      24. Public Right As Int32
      25. Public Bottom As Int32
      26. End Structure
      29. Private NotepadHandle As Integer
      32. 'Fenster position ermitteln/auslesen
      33. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      36. Dim NotepadRect As RECT
      40. NotepadHandle = FindWindow("Notepad", vbNullString)
      41. MsgBox(NotepadHandle)
      42. GetWindowRect(NotepadHandle, NotepadRect)
      44. MsgBox("Top = " & NotepadRect.Top & _
      45. vbCrLf & "Bottom = " & NotepadRect.Bottom & _
      46. vbCrLf & "Left = " & NotepadRect.Left & _
      47. vbCrLf & "Right = " & NotepadRect.Right)
      49. End Sub
      52. 'Fenster position und größe neu setzen
      53. Private Sub Funktion NeuPos ( intX As Integer, intY As Integer, intCX As Integer, intCY As Integer)
      55. 'Werte inteX, intY neue Fensterposition
      56. 'Werte intCX, intCY neue Fenstergröße
      58. SetWindowPos(NotepadHandle, HWND_NOTOPMOST, intX, intY, intCX, intCY, SWP_SHOWWINDOW)
      60. End Sub
      61. End Class



      Viel spaß ! :thumbup:

      Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Alex2000“ ()

      hier eine aktualisierte Version:

      VB.NET-Quellcode

      1. 'Fenster auf neue Position setzen
      2. Private Declare Function SetWindowPos Lib "user32.dll" ( _
      3. ByVal hwnd As Int32, _
      4. ByVal hWndInsertAfter As Int32, _
      5. ByVal x As Int32, _
      6. ByVal y As Int32, _
      7. ByVal cx As Int32, _
      8. ByVal cy As Int32, _
      9. ByVal wFlags As Int32) As Int32
      11. Private Const HWND_NOTOPMOST As Int32 = -2
      12. Private Const SWP_SHOWWINDOW As Int32 = &H40
      14. 'Fenster position ermitteln/auslesen
      15. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
      16. Private Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As IntPtr, ByRef lpRect As RECT) As Integer
      19. Private Structure RECT
      20. Public Left As Int32
      21. Public Top As Int32
      22. Public Right As Int32
      23. Public Bottom As Int32
      24. End Structure
      27. Private NotepadHandle As Integer
      30. 'Fenster position ermitteln/auslesen
      31. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      34. Dim NotepadRect As RECT
      38. NotepadHandle = FindWindow("Notepad", vbNullString)
      39. MsgBox(NotepadHandle)
      40. GetWindowRect(NotepadHandle, NotepadRect)
      42. MsgBox("Top = " & NotepadRect.Top & _
      43. vbCrLf & "Bottom = " & NotepadRect.Bottom & _
      44. vbCrLf & "Left = " & NotepadRect.Left & _
      45. vbCrLf & "Right = " & NotepadRect.Right)
      47. End Sub
      50. 'Fenster position und größe neu setzen
      51. Private Sub NeuePos(ByVal intX As Integer, ByVal intY As Integer, ByVal intCX As Integer, ByVal intCY As Integer)
      53. 'Werte inteX, intY neue Fensterposition
      54. 'Werte intCX, intCY neue Fenstergröße
      56. SetWindowPos(NotepadHandle, HWND_NOTOPMOST, intX, intY, intCX, intCY, SWP_SHOWWINDOW)
      58. End Sub
      Für ein Mindestmaß an Rechtschreibung, Interpunktion und Majuskeln!

      ich habe die Kommentare gelöscht:

      Brainfuck-Quellcode

      1. ByVal x As Int32, _ '-----------------Fenster Position
      2. ByVal y As Int32, _ '-----------------Fenster Position
      3. ByVal cx As Int32, _ '------------------Fenstergröße
      4. ByVal cy As Int32, _ '-----------------Fenstergröße


      und das "Funktion" entfernt aus:

      Quellcode

      1. Private Sub Funktion NeuPos ( intX As Integer[...]



      mehr wars glaube ich nicht
      Für ein Mindestmaß an Rechtschreibung, Interpunktion und Majuskeln!

    Facebook
    Telefonspende