MINITRADUCTION_2

Commentaire de violent_ken le 24/08/2005 15:05:43

Salut
Plusieurs remarques :
-tu devrais mettre un commondialogcontrol pour le choix de l'image
-rajoute que l'utilisateur puisse valider ses choix en appuyant sur entrée, en plus de pouvoir cliquer sur "OK"
-si l'utilisateur ne choisit pas d'image, le programme plante par la suite (cherche fichier inexistant)
-la méthode de cryptage est à revoir (cryptage inefficace) : prend conseil sur la source http://www.vbfrance.com/code.aspx?id=3878 , c'est un excellent tutoriel
Teste ton algorithme en cryptant le texte "aaa". Le résultat est "eee". On en déduit que tout les "a" sont remplacés par "e"!
De plus, les chiffres ne sont pas cryptés.

-concernant le stockage du mot de passe, tu peux le mettre dans le registre, ou mieux encore le crypter et le cacher en attribut système (tu fait Setattr "c:\fichier à cacher",39
-concernant le code en lui-même, rajoute des commentaires et vire les trucs inutiles du style

Private Sub Option3_Click()

End Sub

==>c'est vide, alors pourquoi le mettre ?

-concernant le bug sur le chemin de l'enregistrement, utilise un commondialogcontrol et fait commondialogcontrol1.showsave
(tu peux aussi vérifier l'existence du path du fichier à enregistrer avec les FSO, mais c'est un peu compliqué)

@+

Commentaire de violent_ken le 24/08/2005 15:52:49

Oh tu sais les FSO c'est pas si compliqué :

1) Déclare la référence Microsoft Scripting Runtime
(du vas dans le menu "Projet", tu cliques sur "Références..." et tu coches "Microsoft Scripting Runtime")
2) En suite tu déclare la référence : tu met "Dim fs As New FileSystemObject"  en haut de ta form ; tu as maintenant un FSO qui "s'appelle" fs
3) Utilisation du FSO :
If fs.FolderExists("c:\le dossier") = True Then
    'le dossier existe
Else
    'le dossier n'xiste pas
End If
Remplace "c:\le dossier" par le dossier que tu veux, et voilà !!



Dans le cas de ta source, voilà comment procéder :
dans la form Saving, tu place ce code

Private Sub Text1_LostFocus()
'le code est placé dans text1_lostfocus pour que la vérification de l'existence du dossier
'se fasse quand l'utilisateur à finit de tapper le dossier et qu'il quitte la textbox
Dim fs As New FileSystemObject   'tu déclare le FSO
'FSO veut dire File System Object
If fs.FolderExists(Text1.Text) = False Then
'la ligne juste en heut veut dire :
'si le dossier écrit dans text1 n'exite pas, alors
    'le dossier spécifié n'existe pas, donc on affiche un message
    MsgBox "Attention! Le dossier de destination est inexistant !", vbInformation, "Enregistrement"
    Text1.Text = vbNullString   'on enlève le mauvais dossier
End If
End Sub

En tout cas, ta source est bien partie, et je voterai après la mise à jour !
@+