Drag drop --> image dans une image box (via ole)

Soyez le premier à donner votre avis sur cette source.

Vue 8 367 fois - Téléchargée 784 fois

Description

Après pas Mal de recherche, j'ai enfin trouver comment draguer un fichier JPG, ou autre venant du bureau,... ou meme du PC CAM de creative, dans une picture/image.
Le code fait pas bcp de ligne.

-1 picture Box (image)
-1 text Box (text1)

Source / Exemple :


'Code Mr_pheus@ibelgique.com
Dim CheminImage As String
Dim fn

Private Sub Form_Load()
Image1.OLEDragMode = 0 'Manual
Image1.OLEDropMode = 1 'Manual 
' image1.DragIcon = chemin_icone
End Sub

Private Sub image1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

If Data.GetFormat(15) Then
    For Each fn In Data.Files
       CheminImage = CheminImage & fn
    Next
End If

Image1.Picture = LoadPicture(CheminImage)
Text1.Text = CheminImage
CheminImage = ""

End Sub

Conclusion :


J'ai trouver ca dans VISUAL BASIC 6 le gide du programeur OEM (Osman Eyrol Multimedia)
Tres Bon livre.

Bug connut :-) : Si tu met pas une image ca plante ( avec On error Goto error ca le fera plus)

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

shawn004
Messages postés
1
Date d'inscription
samedi 13 septembre 2003
Statut
Membre
Dernière intervention
12 avril 2004
-
c'est tout bête mais as-tu mis un "exit sub" devant le label Erreur: pour éviter d'afficher l'erreur si tout se passe bien...
1bhrunoh
Messages postés
3
Date d'inscription
mercredi 26 mars 2003
Statut
Membre
Dernière intervention
9 mars 2007
-
pas mal pas mal pas mal!!!
mrpheus
Messages postés
13
Date d'inscription
samedi 31 août 2002
Statut
Membre
Dernière intervention
28 septembre 2003
-
Tu Verifie que les 3 dernière letttre du paht est bien une image ( .jpg,bmp,....)
mais ca devrais aller avec On Error
J'ai pas trop le temp d'essayer

Bye
mrpheus
Messages postés
13
Date d'inscription
samedi 31 août 2002
Statut
Membre
Dernière intervention
28 septembre 2003
-
Tu Verifie que les 3 dernière letttre du paht est bien une image ( .jpg,bmp,....)
mais ca devrais aller avec On Error
J'ai pas trop le temp d'essayer

Bye
zizouweb
Messages postés
17
Date d'inscription
dimanche 5 mai 2002
Statut
Membre
Dernière intervention
25 février 2009
-
Juste une tite question, comment faire un message d'erreur quand le fichier glisser dans le prog n'est pas une image ?

J'ai essayé avec un "On Error GoTo Erreur" mais ça affiche l'erreur même quand je glisse une image.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (mrpheus)