vb redimensionnement de l'image de sorte qu'il s'adapte automatiquement

Je suis un newbie de VB 6 et je suis confronté à un problème. J'ai une image de grande taille. Je veux le placer dans une très petite forme de sorte qu'il a l'air sympa avec le texte court.

Cependant lorsque je l'ai ajouter l'image dans la zone d'image, l'image est ajoutée à partir d'en haut à gauche et à droite et en bas les pièces sont coupées. Parfois, j'ai aussi besoin de re-taille de la zone d'image. Donc je voudrais savoir comment faire de l'image dans la zone d'image automatiquement et obtenir redimensionnées automatiquement à chaque fois que je re-taille de la zone d'image. J'ai cherché de l'aide, mais ne pouvait pas trouver l'aide dans ce contexte.
J'ai aussi essayé de faire la AutoSize et AutoRedraw options "vrai", mais encore il est pas en train de travailler.

Quelqu'un peut-il m'aider?

InformationsquelleAutor Site Helpers | 2012-09-01
  1. 6

    En supposant que ce est un VB6 question et de ne pas VB.NET comme vous l'avez marqué...

    Si vous voulez juste pour afficher une image et ne nécessitent pas les autres propriétés, méthodes et événements associés à un PictureBox, vous pouvez utiliser un Image de contrôle et de définir ses Stretch propriété True.

    Si vous ne besoin d'être un PictureBox, vous pouvez le faire par l'ajout d'une seconde, cachée, de redimensionnement automatique PictureBox qui est à l'image désirée, puis utiliser le code comme ceci pour dessiner à l'échelle sur le visible PictureBox.

    pbxShown.PaintPicture pbxHidden.Picture, _
        0, 0, pbxShown.ScaleWidth, pbxShown.ScaleHeight, _
        0, 0, pbxHidden.ScaleWidth, pbxHidden.ScaleHeight, _
        vbSrcCopy
    • Comment utiliser un contrôle de l'Image?
    • Hein??? C'est un composant standard dans le VB6 boîte à outils. Vous ajoutez de la même manière que vous ajoutez n'importe quel autre contrôle...
    • Hey je l'ai compris. Son fantastique ... +1 pour vous
    InformationsquelleAutor Antagony
  2. 0

    Affectez à la propriété AutoSize à True la Propriété de la Zone d'Image de la Propriété

    InformationsquelleAutor melvin
  3. 0

    Code automatiquement stretch chargés de l'image dans la zone d'image,

    Private Sub AutoSizeToPicture(Picture1 As PictureBox)
    Picture1.ScaleMode = 3
    Picture1.AutoRedraw = True
    Picture1.PaintPicture Picture1.Picture, _
    0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, _
    0, 0, Picture1.Picture.Width / 26.46, _
    Picture1.Picture.Height / 26.46
End Sub
    InformationsquelleAutor Codemaker