| Form-Objekt: 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 | |
| |
zurück