|
 |
 |
 |
| |
Effet 3D 
Paramètres en entrée : TargetForm (Form),TargetControl (Control),RaisedBorder (entier),BorderWidth (entier)
Paramètres en sortie : Aucun
Description : permet de mettre un effet 3D à n’importe quel contrôle
Sub Effet3D(TargetForm As Form, TargetControl As Control, RaisedBorder As Integer, BorderWidth As Integer)
Dim BorderOffset As Integer
Dim X1 As Integer, X2 As Integer
Dim Y1 As Integer, Y2 As Integer
Dim OriginalForeColor As Long, OriginalDrawWidth As Long
Dim UpperColor As Long, LowerColor As Long
BorderOffset = 8
X1 = TargetControl.Left - BorderOffset
Y1 = TargetControl.Top - BorderOffset
X2 = X1 + TargetControl.Width + (BorderOffset * 2)
Y2 = Y1 + TargetControl.Height + (BorderOffset * 2)
OriginalForeColor = TargetForm.ForeColor
OriginalDrawWidth = TargetForm.DrawWidth
If RaiserBorder Then
UpperColor = QBColor(15)
LowerColor = QBColor(8)
Else
UpperColor = QBColor(8)
LowerColor = QBColor(15)
End If
TargetForm.DrawWidth = BorderWidth
TargetForm.ForeColor = UpperColor
TargetForm.Line (X1, Y2)-(X1, Y1)
TargetForm.Line -(X2, Y1)
TargetForm.ForeColor = LowerColor
TargetForm.Line -(X2, Y2)
TargetForm.Line -(X1, Y2)
TargetForm.ForeColor = OriginalForeColor
TargetForm.DrawWidth = OriginalDrawWidth
End Sub
|
|
 |
|
 |
|
IDDN Certification
