Discussion :

[ghohm]

Salut,

ma question est dans l'intitulé de mon post !

Pour l'instant mon image s'affiche par défaut dans l'angle supérieur gauche.

Suis-je obligé de créer une image à la dimension de ma Form ?
Suis-je obligé de bidouiller une pictureBox que je centrerais (en arrière-plan de mes contrôles) sur ma Form ?

Merci d'avance, Gôm.

PS : Bien évidement je précise que je n'ai rien trouver la dessus dans la FAQ, ni dans les anciens posts !

[luta]

bah ajoute une pictureBox que tu centres...
...ce n'est pas de la bidouille...c fait expres pour!

[ghohm]

OK merci j'essaye ça en rentrant chez moi ... je me disais simplement qu'étant donné que l'on avait la possiblité de mettre une image en arrière-plan dans une Form, alors il y avait surement la possibilité de la centrée ... MERCI Micro$oft

Gôm

[Khorne]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim WithEvents Pict As VB.PictureBox
 
Private Sub CentrerPict(Ad As String, Cf As Double)
 
    On Error Resume Next
    Set Pict = Me.Controls.Add("VB.PictureBox", "picDynamic")
    Pict.AutoSize = True
    Pict.Picture = LoadPicture(Ad)
    DoEvents
    PaintPicture Pict, (ScaleWidth - Pict.Width) / 2, (ScaleHeight - Pict.Height) / 2, Pict.Width * Cf, Pict.Height
    Unload Pict
 
End Sub
 
 
Private Sub Form_Load()
    CentrerPict "d:\fat.bmp", 1
End Sub