VB-Homepage Tipp 015

Noch ein Farbverlauf in Formen / diesmal vertikal

Noch ein Beispiel zum verschönern von Formen. Hiermit hat man die Möglichkeit, vertikale Farbverläufe in seine Formen einzubinden, ohne API versteht sich. Öffnen Sie ein neues Projekt und gehen Sie in den General-Declarations (Allgemein-Deklarationen) Teil der Form. Dort fügen Sie nachfolgenden Text ein, wodurch ein neuer Abschnitt erzeugt wird. General/Paintform Sub PaintForm (FormName As Form, Orientation%, RStart%, GStart%, BStart%, RInc%, GInc%, BInc%) On Error Resume Next Dim x As Integer, y As Integer, z As Integer, Cycles As Integer Dim R%, G%, B% R% = RStart%: G% = GStart%: B% = BStart% If Orientation% = 0 Then    Cycles = FormName.ScaleHeight \ 100 Else    Cycles = FormName.ScaleWidth \ 100 End If For z = 1 To 100    x = x + 1       Select Case Orientation        Case 0: 'Top to Bottom             If x > FormName.ScaleHeight Then Exit For             FormName.Line (0, x)-(FormName.Width, x + Cycles - 1), RGB(R%, G%, B%), BF        Case 1: 'Left to Right             If x > FormName.ScaleWidth Then Exit For             FormName.Line (x, 0)-(x + Cycles - 1, FormName.Height), RGB(R%, G%, B%), BF    End Select       x = x + Cycles    R% = R% + RInc%: G% = G% + GInc%: B% = B% + BInc%    If R% > 255 Then R% = 255    If R% < 0 Then R% = 0    If G% > 255 Then G% = 255    If G% < 0 Then G% = 0    If B% > 255 Then B% = 255    If B% < 0 Then B% = 0 Next z End Sub Als nächstens definieren Sie einen Commandbutton und weisen ihm den Aufruf des Farbverlauf's an. Das kann natürlich genau so gut über Form/Load definiert werden. Die drei hervorgehobenen Werte definieren die Farben für RGB - mit ihnen können Sie etwas herum experimentieren. (Max. Wert = 255) Command1/Click Sub Command1_Click () PaintForm Me, 1, 200, 0, 255, 1, 0, -1 End Sub

Tipp-Download

Quelle :