[class]TaskbarInfo

    • VB.NET

    Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von ©F.A SystemsOWNERxD.

      [class]TaskbarInfo

      Hey,
      ich hab heute eine class geschrieben mit der man die Höhe der Taskleiste sowie die Position(Rechts, Links, Oben oder Unten) ohne API auslesen kann:

      VB.NET-Quellcode

      1. Public Class TaskBarInfo
      2. Function GetTaskbarPosition() As positions
      3. With My.Computer.Screen
      4. Dim TaskleistenHöhe As Integer = .Bounds.Width - .WorkingArea.Width
      5. If .WorkingArea.X = 0 And .WorkingArea.Y = 0 And .WorkingArea.Width = .Bounds.Width Then
      6. Return positions.Unten
      7. Exit Function
      8. End If
      9. If .WorkingArea.X = 0 And .WorkingArea.Y >= 0 And .WorkingArea.Width = .Bounds.Width Then
      10. Return positions.Oben
      11. Exit Function
      12. End If
      13. If .WorkingArea.Width = .Bounds.Width - TaskleistenHöhe And .WorkingArea.X = 0 And .WorkingArea.Y = 0 Then
      14. Return positions.Rechts
      15. Exit Function
      16. End If
      17. If .WorkingArea.X = TaskleistenHöhe And .WorkingArea.Y = 0 Then
      18. Return positions.Links
      19. Exit Function
      20. End If
      21. End With
      22. Return positions.Unbekannt
      23. End Function
      25. Function GetTaskbarSize()
      26. With My.Computer.Screen
      27. Dim TaskbarSize As Integer
      28. If .WorkingArea.Height = .Bounds.Height Then
      29. TaskbarSize = .Bounds.Width - .WorkingArea.Width
      30. Return TaskbarSize
      31. Else
      32. TaskbarSize = .Bounds.Height - .WorkingArea.Height
      33. Return TaskbarSize
      34. End If
      35. End With
      36. End Function
      38. Enum positions
      39. Unten
      40. Oben
      41. Rechts
      42. Links
      43. Unbekannt
      44. End Enum
      45. End Class


      Verwendung:
      Position:

      VB.NET-Quellcode

      1. Dim TBInfo as new TaskBarInfo
      2. Me.Text = TBInfo.GetTaskbarPosition.ToString

      Größe(Höhe bzw. breite):

      VB.NET-Quellcode

      1. Dim TBInfo as new TaskBarInfo
      2. Me.Text = TBInfo.GetTaskbarSize


      Ich hoffe ihr könnt damit etwas anfangen^^

      Kritik wie immer erwünscht!!!

      lg.

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Gelöschter Benutzer“ ()

      Statische Methoden und Klassen erzeugst du mit dem Schlüsselwort "Shared".
      Bei deiner Klasse ist es beispielsweise unnütz, dass der Benutzer zuerst eine Instanz dieser Klasse erstellen muss, bevor er auf die Funktionen zugreifen kann.