cs_Bernard74
Messages postés40Date d'inscriptionsamedi 1 mars 2003StatutMembreDernière intervention26 janvier 2013
-
1 avril 2010 à 10:09
cs_Bernard74
Messages postés40Date d'inscriptionsamedi 1 mars 2003StatutMembreDernière intervention26 janvier 2013
-
1 avril 2010 à 10:47
Bonjour,
Avec ce code, je peux agrandir ou diminuer la taille des forms de mon projet, par contre je ne sais pas comment repositionner les forms, après redimmensionnement, au centre de l'écran. Il semblerait que la propriété Startposition = CenterScreen ne s'applique qu'une seule fois, au premier chargement de la form. Si quelqu'un avait une idée ....
Avec mes remerciements,
Bernard
Imports System.Drawing
.
.
Public Class XXXXX
Public Font_Redim As Decimal
Public NewSize As Decimal
.
.
Private Sub XXXXX_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Font_Redim = 0
KeyPreview = True
End Sub
.
.
Private Sub XXXXX_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.F11 Then
Font_Redim = 0.9
ChangeTaille()
End If
If e.KeyCode = Keys.F12 Then
Font_Redim = 1.1
ChangeTaille()
End If
End Sub
.
.
Private Sub ChangeTaille()
Try
For Each Formulaire As Form In My.Application.OpenForms
Formulaire.AutoScaleMode = Windows.Forms.AutoScaleMode.Font
NewSize = Formulaire.Font.Size * Font_Redim
If NewSize < 6 Then NewSize = 6
If NewSize > 16 Then NewSize = 16
Dim newFont As New Font(Formulaire.Font.Name, NewSize, Formulaire.Font.Style)
Formulaire.Font = newFont
Formulaire.StartPosition = FormStartPosition.CenterScreen ' NE MARCHE PAS
Next
Catch ex As Exception
End Try
End Sub
.
.
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 1 avril 2010 à 10:22
Salut,
Oui le StartPosition, comme son nom l'indique, définie la position au lancement.
C'est à toi de modifier la position :
Form.left = (Screen.PrimaryScreen.Bounds.Width - Form.Width) / 2 'centre la fenêtre horizontalement
______________________________________
AVANT de poster votre message, veuillez lire, comprendre, et appliquer notre réglement