Mit nachfolgenden Tipp ist es möglich, alle Objekte
innerhalb einer Form mit einer Schattenbox zu versehen.
Gehen Sie dazu unter Allgemein-Deklarationen und kopieren die folgenden Anweisungen
hinein.
(Dadurch wird die Definition General/Schatten erzeugt)
Allgemein/Schatten
Sub Schatten (Frm As Form, Ctrl As Control)
Dim OldWidth As Integer
Dim OldScale As Integer Const Farbe = &HC0C0C0
'Schattenfarbe
Const Breite = 4
'Breite
des Schattens
OldWidth = Frm.DrawWidth
OldScale = Frm.ScaleMode
Frm.ScaleMode = 3 'Pixel=3
Frm.DrawWidth = 2 'Pixel-Linie=2
Frm.Line (Ctrl.Left + Breite, Ctrl.Top + Breite)-Step(Ctrl.Width - 1, Ctrl.Height - 1),
Farbe, BF
Frm.DrawWidth = OldWidth
Frm.ScaleMode = OldScale
End Sub
Das ist aber erst die halbe Miete, denn noch ist diese Prozedur ja keinem Objekt
zugeordnet. Dazu müssen Sie noch in das Form_Paint Ereignis der entsprechenden Form
wechseln und dort nachfolgende Anweisungen eingeben.
(Beispiel bezieht sich auf Demoprogramm - Sie müssen je nachdem welche Objekte in Ihrer
Form enthalten sind, diese modifizieren.)
Form/Paint
Sub Form_Paint ()
Call Schatten(form1, Command1)
Call Schatten(form1, Text1)
Call Schatten(form1, Label1)
Call Schatten(form1, Picture1)
End Sub |
