Visualisateur d'images

Télécharger le projet
Commenter

Description

Ce programme sert a visualiser plusieur type d'image !

Source / Exemple : 


'*********************----------------********************
' cette source a été créé par Sn@ke-Mx
' cette source permet de cree un visualiseur d'image
' j'ai nommé ce programme VISUAL +
' il lit plusieur type d'image
' idéal si on a plein d'image pour les reperers
' Voila si vous avez des questions mail moi ou contacter moi:
' mail: bart7900@aol.com  et bart7900@hotmail.com
' pseudo AIM: O0 SnakeMx 0o
' pseudo MSN: Snake-Mx
' SITE WEB: www.total-ground.fr.fm (on construction)
'*********************----------------********************
Private Sub cmbDrive_Click()
On Error GoTo 1
dir.Path = cmbDrive.Text
Exit Sub
1 MsgBox "Lecteur non disponible"
End Sub

Private Sub dir_Change()

file.Path = dir.Path

End Sub

Private Sub file_Click()
If dir.Path = cmbDrive.Text Then sep = "" Else sep = "\"

chm = dir.Path & sep & file.FileName
lblChem.Caption = chm
pctImage.Picture = LoadPicture(chm)

End Sub

Private Sub Form_Load()
With cmbDrive
.AddItem "c:\"
.AddItem "d:\"
.AddItem "e:\"
.AddItem "f:\"
.AddItem "g:\"
.AddItem "h:\"
.AddItem "i:\"
End With
dir.Path = cmbDrive.Text
End Sub

Private Sub mnuexit_Click()
End
End Sub

Private Sub mnuprog_Click()
prog.Show
End Sub

Private Sub mnuweb_Click()
MsgBox "Site officiel:www.total-ground.fr.fm", vbInformation + vbOKOnly, "SITE OFFICIE"
End Sub

Conclusion :


Voici la source !! je tien a dire aussi que le prog est rapide contrairement a certain qui met un peu de temps a lire une image bin avec visual + c'est instantané !! ;o)
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 (SnakeMx)