Animieren form Größe in VB.NET

Ich habe ein Formular positioniert, der etwas über der Taskleiste/system tray in der unteren rechten Ecke von meinem desktop-Fenster. Es ist irgendwie wie ein pop-up-Meldung. Die Meldung an sich sieht toll aus, aber es gibt eine Taste, die die Größe der form bis, animieren die Dimensionierung in Schritten von 5px, während es bleibt die position relativ zu der unteren rechten Ecke des Bildschirms.

Das problem mit diesem ist, dass es sieht nicht sehr glatt. Anpassung Mir.Breite passt von der linken Seite, so dass Sie müssen, dann verschieben Sie das Formular auf der linken Seite mit Mir.Links zu kompensieren. Mich.SetBounds scheint nur ein wrapper für die Einstellung dieser Eigenschaften sowieso.

Gibt es irgendetwas, was ich tun kann, um die form glatt (oder zumindest erscheinen) ändern Sie die Größe nach außen von der linken Seite von der form?

InformationsquelleAutor Andy E | 2009-08-06
  1. 4

    ETA: Sie können tatsächlich tun dies mit SetBounds als SetBounds delegieren zu SetBoundsCore die wiederum ruft SetWindowPos. So SetBounds intern wirklich alle Grenzen auf einmal und der window-manager neu gezeichnet, die Fenster nur nach alle Eigenschaften gesetzt sind.

    Eine andere Möglichkeit wäre, den import der MoveWindow - Funktion und verwenden, statt. Es erzeugt eine glatte animation hier, wie kann es in Größe und position gleichzeitig vor sagen Sie den Fenster-manager zum Neuzeichnen des Fensters.

    Mein test-code sah wie folgt aus (Umgerechnet von C# per IL zu VB mit Hilfe von Reflektor):

    Private button1 As Button
Private components As IContainer = Nothing
Private tm As Timer = New Timer

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
    MyBase.Left = (Screen.PrimaryScreen.WorkingArea.Width - MyBase.Width)
    MyBase.Top = (Screen.PrimaryScreen.WorkingArea.Height - MyBase.Height)
    Me.tm.Enabled = False
    Me.tm.Interval = 20
    AddHandler Me.tm.Tick, Function 
        If (MyBase.Width < 500) Then
            Form1.MoveWindow(MyBase.Handle, (MyBase.Left - 5), (MyBase.Top - 5), (MyBase.Width + 5), (MyBase.Height + 5), True)
        Else
            Me.tm.Enabled = False
        End If
    End Function
End Sub

<DllImport("user32.dll", SetLastError:=True)> _
Friend Shared Function MoveWindow(ByVal hWnd As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As Boolean) As Boolean
End Function
    • Tut mir Leid es dauerte so lange, um das zu markieren Antwort, ich habe einfach nur bemerkt, da Sie bearbeitet wurde. Die MoveWindow-Funktion funktioniert perfekt.
    • Beachten Sie auch, dass Sie verwenden können SetBounds, da es nicht nennen MoveWindow unter und sollte daher funktionieren.
    InformationsquelleAutor Joey
  2. 0

    Habe ich nie ausprobiert, aber Sie haben versucht, die Einstellung der DoubleBuffer-Eigenschaft des Formulars auf True? Diese sollten glatt die Zeichnung.

    • Ich denke, dass die Bewegtheit der OP meint das kommt von der Tatsache, dass Sie haben, um die Breite und Linken Eigenschaften eine nach der anderen und dazwischen das Formular verschoben/geändert schon. Double-buffering könnte funktionieren für Dinge, die auf die form, aber nicht die form selbst, weil das verschieben und ändern der Größe ist es zunächst ein job für die Fenster-manager.
    • Ja, ich bin ziemlich daran interessiert zu sehen, ob dies tatsächlich möglich abziehen. Ändern der Größe einer form, so dass die Breite wächst durch die Links und Rechts an der gleichen Zeit. Das wäre ziemlich cool.
    InformationsquelleAutor jgallant
  3. 0

    Könnten Sie versuchen, die Verringerung der pixel-Schritte, es ist die Inkrementierung runter auf 1-2, wie gut, 5px scheint wie eine Menge, um die Anpassung der Größe, ich konnte sehen, wie dies erscheinen könnte, abgehackt.

    InformationsquelleAutor thismat
Schreibe einen Kommentar