Aufrollbares Formular

Aufrollbares Formular. Programmierung Form-Objekt mit Farbverlauf im Formular
Const steps = 500 Auf- und Abrollgeschwindigkeit durch steps-Konstante.
Sub FillMe(f As Form) Aufruf der Prozedur für das Formular
Dim i%
With f
.DrawStyle = vbInsideSolid
.DrawMode = vbCopyPen
.ScaleMode = vbPixels
.DrawWidth = 2
.ScaleHeight = 255
For i = 0 To 255
Line (0, i)-(Width, 0), RGB(177, 137, 255 - i), B Farbverlauf im Formular bestimmen.
Next i
End With
End Sub
Private Sub cmdLos_Click()
cmdLos.Visible = False Der "Drucken"-Button wird unsichtbar gemacht.
cmdSchliessen.Visible = False Der "Schließen"-Button wird unsichtbar gemacht.
aufklappen Me, 180 Prozedur "aufklappen" wird aufgerufen.
cmdSchliessen.BackColor = RGB(177, 137, 255) Der "Schließen"-Button wird farbig dargestellt (Style =
cmdSchliessen.Visible = True Grafisch!).
End Sub Der "Schließen"-Button wird sichtbar gemacht.
Sub aufklappen(frm As Form, h%) Übergabe der Werte aus "aufklappen Me, 180".
Dim Y%, i% 180 ist die Höhe.
Y = (frm.Height + h * Screen.TwipsPerPixelY) / steps
Me.AutoRedraw = True
For i = 1 To steps - 1
frm.Move frm.Left, frm.Top, frm.Width, frm.Height + Y Formular wird nach unten aufgerollt.
DoEvents DoEvents sorgt dafür, dass andere laufende Prozesse
Next i nicht lahmgelegt werden.
End Sub
Private Sub cmdSchliessen_Click()
zuklappen Me, 0 Prozedur "zuklappen" wird aufgerufen.
End Sub
Sub zuklappen(frm As Form, h%) Übergabe der Werte aus "zuklappen Me, 0".
Dim Y%, i% 0 ist die Höhe.
Y = (frm.Height - h * Screen.TwipsPerPixelY) / steps
Me.AutoRedraw = True
For i = 1 To steps - 1
frm.Move frm.Left, frm.Top, frm.Width, frm.Height - Y Formular wird nach oben geschlossen.
DoEvents DoEvents sorgt dafür, dass andere laufende Prozesse
Next i nicht lahmgelegt werden.
End Sub
Private Sub Form_Resize()
Call FillMe(Me) Bei Größen-Änderung des Formulars wird ständig
Refresh der Farbverlauf geändert.
End Sub

Mehr Tipps: Formular bewegt sich am Bildschirmrand gegen den Uhrzeigersinn

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt