Dimensionner et placer une PictureBox

Version imprimable

06/02/2016, 19h15
MADA BLACK

1 pièce(s) jointe(s)

Dimensionner et placer une PictureBox

Bonjour Forum
Bonjour a tous et a toutes
Je sollicite vos aides svp afin de resoudre ce probleme
J'ai mis dans ma Form le controle PictureBox .. j'ai aussi inserer une image ..mais ma malheure c'est que cette image apparait comme ci dessous
Comment faire svp pour l'afficher ce clé completement ..
Merci beaucoup d'avance pour l'aide
Cordialement
MADA BLACK
Pièce jointe 200150
06/02/2016, 21h11
l_autodidacte

Mets la propriété AutoSize à True du contrôle PictureBox.(dans la liste des propriétés à droite)
06/02/2016, 21h25
MADA BLACK

1 pièce(s) jointe(s)

Bonsoir
Gentelman
Merci beaucoup pour votre response
Tres gentil de votre part
J'ai essayé avec cette propriete avant de poster ce sujet.. car avec cette propriete les dimensions de ma PictureBox se changent completement
Voir svp l'image de mon premier post et voir cette image ci dessous avec changement a true
Cordialement
MADA BLACK
Pièce jointe 200154

Salut

Code:

1
2
3
4
5
6
7
8
Private Sub Form_Load()
Dim BordureS As Long, BarTitre As Long
 
BordureS = Me.Width - Me.ScaleWidth
BarTitre = Me.Height - Me.ScaleHeight
Form1.Width = Picture1.Left + Picture1.Width + Picture1.Left + BordureS
Form1.Height = Picture1.Top + Picture1.Height + Picture1.Left + BarTitre
End Sub

06/02/2016, 23h02
l_autodidacte
Je comprends par là que tu veux garder les dimensions de ton contrôle PictureBox.

Dans ce cas, essaie ceci en mettant le chemin complet du fichier image :
Code:

1 2 3 4 5 Private Sub Form_Load() Pic1.AutoRedraw = True Pic1.ScaleMode = 1 ' = Twip Pic1.PaintPicture LoadPicture("ICI CHEMIN FICHIER IMAGE"), 0, 0, Pic1.Width, Pic1.Height, 0, 0 End Sub
[EDIT] Je vois que ProgElecT(salut) m'a devancé de quelques minutes
06/02/2016, 23h08
MADA BLACK

Bonsoir ProgElect
Merci 1000 fois pour votre aide
Je n'ai aucun mot a vous dire sauf " BRAVO "
C'est effectivement ce que je veux avoir
C'est parfaitement resolu
Cordialement
MADA BLACK
06/02/2016, 23h11
MADA BLACK

Bonsoir L'AUTODIDACTE
Ravi de vous rencontrer une autre fois dans mon sujet
Merci beaucoup pour votre aide
Tres tres gentil de votre part
Aussi un super code .. merci
C'est effectivement ce que je veux avoir
C'est parfaitement resolu
Cordialement
MADA BLACK