|
 |
 |
 |
| |
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
|
|
 |
|
 |
|
IDDN Certification
