Form Aus-/Einklappen (mit "logistischer" Beschleunigung)

    • VB.NET

      Form Aus-/Einklappen (mit "logistischer" Beschleunigung)

      Zum Ein- und Ausklappen einer Form per Knopfdruck kann man folgende Prozedur anwenden.

      Das "besondere" dabei ist, dass der Bewegungsablauf durch logistisches Wachstum der Größe "geschmeidig" aussieht:

      VB.NET-Quellcode

      1. Public Class Form1
      2. 'Definiert, ob die Form beim Starten der Anwendung bereits ausgeklappt ist:
      3. Private AusgeklapptBeiStart As Boolean = False
      5. 'Definiert die Hoehe nach dem Ausklappen (in Pixel):
      6. Private HoeheAusgeklappt As Integer = 650
      8. 'Definiert die Hoehe nach dem Einklappen (in Pixel):
      9. Private HoeheEingeklappt As Integer = 140
      11. 'Aus-/Einklappgeschwindigkeit (Wert von 1 bis 20 angeben!):
      12. Private k As Integer = 1
      14. Private Sub AusEinKlappen()
      16. Select Case AusgeklapptBeiStart
      18. Case False
      20. Do Until Me.Height >= HoeheAusgeklappt
      21. Me.Height = Me.Height + ((k + 9) / 100000) * Me.Height * ((HoeheAusgeklappt + 10) - Me.Height)
      22. System.Threading.Thread.Sleep(5)
      23. Loop
      25. AusgeklapptBeiStart = True
      27. Case True
      29. Do Until Me.Height <= HoeheEingeklappt
      30. Me.Height = Me.Height - ((k + 9) / 100000) * Me.Height * ((HoeheAusgeklappt + 10) - Me.Height)
      31. System.Threading.Thread.Sleep(5)
      32. Loop
      34. AusgeklapptBeiStart = False
      36. End Select
      38. End Sub


      Einbindung:

      VB.NET-Quellcode

      1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      2. AusEinKlappen()
      3. End Sub



      Beispielprojekt:

      vb-paradise.de/index.php/Attac…9b095a505fc536decd59d819b (7,14 kB)

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „vredesbyrD“ ()

    Facebook
    Telefonspende