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

 
 

Feuille dans un coin  



Code à placer dans un module :

Public Sub PlaceFeuilleCoin(NomFeuille As Form, Emplacement As Integer)
   Const SUPERIEUR_DROIT = 500
   Const SUPERIEUR_GAUCHE = 600
   Const INFERIEUR_GAUCHE = 700
   Const INFERIEUR_DROIT = 800

   If Emplacement = 500 Then
      NomFeuille.Top = 0
      NomFeuille.Left = Screen.Width - NomFeuille.Width
   End If

   If Emplacement = 600 Then
      NomFeuille.Top = 0
      NomFeuille.Left = 0
   End If

   If Emplacement = 700 Then
      NomFeuille.Top = Screen.Height - NomFeuille.Height
      NomFeuille.Left = 0
   End If

   If Emplacement = 800 Then
      NomFeuille.Top = Screen.Height - NomFeuille.Height
      NomFeuille.Left = Screen.Width - NomFeuille.Width
   End If

   NomFeuille.Refresh
End Sub

Petit exemple :

Pour placer la feuille Form1 dans le coin supérieur droit, il faut faire :

PlaceFeuilleCoin Form1, 500
 


[ 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