Redimensionnement automatique du form suivant la taille de l'ecran
Signaler
cs_chris81
riadho2010
- Messages postés
- 589
- Date d'inscription
- jeudi 2 octobre 2003
- Statut
- Membre
- Dernière intervention
- 29 avril 2008
riadho2010
- Messages postés
- 6
- Date d'inscription
- mercredi 20 juillet 2011
- Statut
- Membre
- Dernière intervention
- 1 juillet 2013
A voir également:
- Ajuster un formulaire access à la taille de l'écran
- Redimensionnement automatique formulaire access - Meilleures réponses
- Access ajuster taille formulaire - Meilleures réponses
- Redimensionner un formulaire access selon Résolution et taille écran - Forum - Visual Basic
- Ajuster le form en fonction de la resolution de l'écran ✓ - Forum - VB.NET
- Ajuster taille form par rapport à un MSFlexGrid ✓ - Forum - Visual Basic 6
- Ajuster la taille d' un form en fonction de la resolution de l'ecran - Forum - VB.NET
- ACCESS et la résolution de l'écran - Forum - Visual Basic
2 réponses
cs_labout
- Messages postés
- 1356
- Date d'inscription
- samedi 8 décembre 2001
- Statut
- Membre
- Dernière intervention
- 23 octobre 2006
labout
Voici un exemple
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
' Retrieve the working rectangle from the Screen class
' using the PrimaryScreen and the WorkingArea properties.
Dim workingRectangle As System.Drawing.Rectangle = _
Screen.PrimaryScreen.WorkingArea
' Set the size of the form slightly less than size of
' working rectangle.
Me.Size = New System.Drawing.Size(workingRectangle.Width, _
workingRectangle.Height)
' Set the location so the entire form is visible.
Me.Location = New System.Drawing.Point(0, 0)
End Sub
@+
Voici un exemple
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
' Retrieve the working rectangle from the Screen class
' using the PrimaryScreen and the WorkingArea properties.
Dim workingRectangle As System.Drawing.Rectangle = _
Screen.PrimaryScreen.WorkingArea
' Set the size of the form slightly less than size of
' working rectangle.
Me.Size = New System.Drawing.Size(workingRectangle.Width, _
workingRectangle.Height)
' Set the location so the entire form is visible.
Me.Location = New System.Drawing.Point(0, 0)
End Sub
@+