IDDN CertificationIDDN Certification
 
  Moteur de recherche
Recherche personnalisée
 
   

 
Menu Principal

 Accueil
 Programmation
    avec Cours...
 Liens (ANNUAIRE)
 Statistiques-TOP 10
 Me contacter
 

  ObjetsBois.com est spécialisé dans les stylos en bois. Beaucoup de choix d'essences de bois. Cela peut faire un beau cadeau pour un mariage, la famille, les amis et peut-être même pour distribuer à vos clients.

 

 
Partenaires

 Les Partenaires

 
 

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
 


[ ObjetsBois : des stylos en bois, des bagues en bois et autres objets en bois de qualité ]
[ Création de bijoux en bois ou bagues en bois sur mesure ]
[ Turf-France ] -[ turf / pmu / paris ]

Copyright © 2000-2014 LCL2000.COM
Reproduction totale ou partielle interdite sur quelque
support que ce soit sans l'accord de l'auteur
Tous droits réservés.
La confidentialité de vos données sur ce site est préservée.
LCL2000.com est déclaré à la CNIL sous le n°1007192



PageRank Actuel