Soyez le premier à donner votre avis sur cette source.
Vue 4 186 fois - Téléchargée 481 fois
'*********************----------------******************** ' 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
20 janv. 2002 à 13:39
13 janv. 2002 à 16:49
13 janv. 2002 à 13:24
mes ce n'est que la 1ere version
voila @+
Sn@ke-Mx
13 janv. 2002 à 11:05
13 janv. 2002 à 06:06
www.total-ground.fr.fm [il est encore en construction donc pas en ligne]
Voila c tout
bon courage pour vos prog et @+
Sn@ke-Mx
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.