IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

Controle de recadrage d'image


Sujet :

VB 6 et antérieur

  1. #1
    Membre habitué
    Inscrit en
    Octobre 2005
    Messages
    125
    Détails du profil
    Informations forums :
    Inscription : Octobre 2005
    Messages : 125
    Points : 125
    Points
    125
    Par défaut Controle de recadrage d'image
    Bonjour a tous,
    Je suis a la recherche d'un controle permettant de recadrer facilement une image comme le propose photoshop par exemple.

    J'ai pas mal cherche sur le web et le seul exemple que j'ai trouve est en .NET .
    L'un d'entre vous aurait-il deja croise ce genre de composant pour VB ?

    D'avance merci. 8)

    PS : voici ce que j'ai trouve en .NET pour que cela vous donne une idee :
    interface :
    (on notera la selection par la souris)
    source : ici
    A nice example I made of how to crop images using VB.NET. This example shows how to select the area of the image by using the mouse. You do not have to type anything! This could be a very user friendly feature to add.

  2. #2
    Membre éprouvé
    Avatar de ridan
    Inscrit en
    Avril 2003
    Messages
    710
    Détails du profil
    Informations personnelles :
    Âge : 40

    Informations forums :
    Inscription : Avril 2003
    Messages : 710
    Points : 1 126
    Points
    1 126
    Par défaut
    Petit bout de code pour commencer :

    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
    19
    20
    21
    22
    23
    24
    25
    26
    27
    Private Declare Function BitBlt Lib "gdi32.dll" ( _
         ByVal hDestDC As Long, _
         ByVal x As Long, _
         ByVal y As Long, _
         ByVal nWidth As Long, _
         ByVal nHeight As Long, _
         ByVal hSrcDC As Long, _
         ByVal xSrc As Long, _
         ByVal ySrc As Long, _
         ByVal dwRop As Long) As Long
     
    Private Const SRCCOPY As Long = &HCC0020
     
    Private Sub Command1_Click()
     
        Picture1.Picture = LoadPicture("C:\Amplifiy.jpg")
     
     
        Picture2.Height = 200 * Screen.TwipsPerPixelY
        Picture2.Width = 200 * Screen.TwipsPerPixelX
        Picture2.AutoRedraw = True
     
        BitBlt Picture2.hDC, 0, 0, 200, 200, Picture1.hDC, 0, 0, SRCCOPY
     
        SavePicture Picture2.Image, "C:\ss.bmp"
     
    End Sub
    ça permet de capturer une zone de picture1 dans une deuxième picturebox et sauvegarder l'image.

    Je voir s'il est possible de gérer la sourie. En attendant si quelqu'un a une idée ...
    @ bientôt

    :: Ressources VB : Cours | FAQ | Sources et surtout La recherche sur le forum

    :: Pour un forum plus propre ...

  3. #3
    Membre habitué
    Inscrit en
    Octobre 2005
    Messages
    125
    Détails du profil
    Informations forums :
    Inscription : Octobre 2005
    Messages : 125
    Points : 125
    Points
    125
    Par défaut
    Merci beaucoup ridan.

    Par hasard n'aurais-tu pas un bon tutoriel pour utiliser les pictureBoxes et surtout la librairie gdi32.

    Apparement l'image est sauvee en bmp, cela peut-il etre fait dans son format d'origine (jpg en l'occurence) ?

  4. #4
    Membre éprouvé
    Avatar de ridan
    Inscrit en
    Avril 2003
    Messages
    710
    Détails du profil
    Informations personnelles :
    Âge : 40

    Informations forums :
    Inscription : Avril 2003
    Messages : 710
    Points : 1 126
    Points
    1 126
    Par défaut
    Pour la conversion en .jpg il est possible d'utiliser la dll ijl11.dll, un exemple est donné sur la page codes sources :

    http://vb.developpez.com/sources/?pa...#screenshotapi

    Bon courage
    @ bientôt

    :: Ressources VB : Cours | FAQ | Sources et surtout La recherche sur le forum

    :: Pour un forum plus propre ...

  5. #5
    Membre habitué
    Inscrit en
    Octobre 2005
    Messages
    125
    Détails du profil
    Informations forums :
    Inscription : Octobre 2005
    Messages : 125
    Points : 125
    Points
    125
    Par défaut
    Merci pour le lien, de mon cote, j'utilise deja la librairie GFL SDK pour un projet en ASP, je pense qu'elle pourrait faire l'affaire.

  6. #6
    Membre habitué
    Inscrit en
    Octobre 2005
    Messages
    125
    Détails du profil
    Informations forums :
    Inscription : Octobre 2005
    Messages : 125
    Points : 125
    Points
    125
    Par défaut
    Bon je reprends tout ceci un peu tardivement, j'etais en vacances 8)

    Donc finalement j'ai decide de faire bcp plus simple et de ne pas reinventer la roue.
    Du coup j'ai mis un petit champ de texte, a cote duquel se trouve un bouton rechercher (pour ouvrir une fenetre d'exploration de fichiers).
    Une fois que le champ texte contient le chemin du fichier, je peux tout simplement cliquer sur un bouton "editer" qui va simplement lancer irfanview avec le chemin de l'image.
    Du coup je profite de toutes les fonctions de ce logiciel (gratuit et tres leger), sans avoir a les recoder

    Voila, avec tout ca, je pense que mon probleme est resolu

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. recadrage d'image pour comparaison
    Par youkoun dans le forum Traitement d'images
    Réponses: 9
    Dernier message: 25/08/2008, 09h29
  2. ma fonction de controle de taille d'image
    Par gtraxx dans le forum Langage
    Réponses: 2
    Dernier message: 15/04/2008, 12h51
  3. [Upload] Recadrage d'image en mode web
    Par bractar dans le forum Langage
    Réponses: 4
    Dernier message: 14/06/2007, 17h49
  4. [ASP.NET] Controler la dimension une image
    Par Azephel dans le forum ASP.NET
    Réponses: 2
    Dernier message: 14/02/2007, 08h55
  5. [C#] custom control à partir d'une image / alpha blending
    Par Cyberwan dans le forum Windows Forms
    Réponses: 5
    Dernier message: 13/11/2005, 21h59

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo