-----
Dieser Tipp stammt von kevin89
-----
Dies ist ein Code, der ein Fenster "aufklappen" lässt, vielleicht kennt ihr das von einer Lightbox, das Fenster klappt nach rechts auf und zieht sich dann nach oben. Dieser kleine Effekt lässt sich so in VB für das eigene Programm umsetzen:
Dieser Tipp stammt von kevin89
-----
Dies ist ein Code, der ein Fenster "aufklappen" lässt, vielleicht kennt ihr das von einer Lightbox, das Fenster klappt nach rechts auf und zieht sich dann nach oben. Dieser kleine Effekt lässt sich so in VB für das eigene Programm umsetzen:
VB.NET-Quellcode
- Public Class Form1
- ' Benötigt: 1 Timer ("Timer1")
- Dim directory As String = "width"
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Timer1.Interval=1
- Me.Size = New Size(200, 200) ' von welcher Größe es aufklappen soll
- Me.Location = New Point(Screen.PrimaryScreen.Bounds.Width / 2 - Me.Size.Width / 2, Screen.PrimaryScreen.Bounds.Height / 2 - Me.Size.Height / 2)
- Timer1.Start()
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- If directory = "width" Then
- Me.Size = New Size(Me.Size.Width + 9, Me.Size.Height)
- Me.Location = New Point(Screen.PrimaryScreen.Bounds.Width / 2 - Me.Size.Width / 2, Screen.PrimaryScreen.Bounds.Height / 2 - Me.Size.Height / 2)
- If Me.Size.Width > 900 Then ' die spätere breite der form, wenn voll ausgeklappt
- directory = "height"
- End If
- ElseIf directory = "height" Then
- Me.Size = New Size(Me.Size.Width, Me.Size.Height + 9)
- Me.Location = New Point(Screen.PrimaryScreen.Bounds.Width / 2 - Me.Size.Width / 2, Screen.PrimaryScreen.Bounds.Height / 2 - Me.Size.Height / 2)
- If Me.Size.Height > 700 Then ' die spätere höhe der form, wenn voll ausgeklappt
- Timer1.Stop()
- End If
- End If
- End Sub
- End Class