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

Télécharger le projet
Commenter

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)
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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)