Correction de path et apprendre à faire une simple fonction.

Commenter

Contenu du snippet

Voici un petit code tout simple ki permet (je l'espere) à expliquer comment créé une petite fonction, et qui permet aussi de corriger certaine erreur de path.

Source / Exemple : 


Mise en situation:
'On possede juste un picturebox(picture1) où,lon souhaite enregistez l'image à chaque clic dessu dans le meme dossier que l'exe.

'le code, assez banal je sais
Private Sub Picture1_Click()
SavePicture Picture1.Image, App.Path & "\picture.bmp"
End Sub

'On peut noter kil y un "\" devant picture.. et voila le prb a resoudre 
'lorsque l'on place l'exe dans un dossier: app.path = "c:\dossier" donc
'il faut ajouter un "\" devant picture pour pas avoir  d'erreur, mais 
'voila imaginons que l'exe ne soit pas dans un dossier mais à la racine 
'd'un disque dur, app.path = "c:"\", et la problème
'app.path & "\picture.bmp" = "c:\\picture.bmp" et sa c impossible, car deux "\" devant un nom de fichier c du jamais vue.

'On va integrer une correction automatique du path avec une fonction

'*** IN MODULE ***
Public Function sPath(sDir, sFile As String) As String 'cest une fonction pour l'ensemble de l'exe(ou la fonction demande 2 argument sDir et sFile, sDir c app.path et sFile c le nom du fichier sans "\"
'fonction ki trouve le bon path
If Right(sDir, 1) = "\" Then 'on regarde le premier caractere à partir de la fin(droite)
sPath = sDir & sFile
Else'autrement si ya pas de "\" a la fin
sPath = sDir & "\" & sFile 'on peut noter k sPath est une string, c'est pour garder les données, qui seront utilisées par la suite
End If

End Function

'*** IN FORM ***
Private Sub Picture1_Click()
SavePicture Picture1.Image, sPath(App.Path, "picture.bmp")
End Sub

'***** autre: une petite fonction simple à comprendre *****
'apprendre a faire une simple function dans un module
'in module
Public Function sCalcul(sNbr As String) As String 
sCalcul = sNbr * 2
End function
'in form
Msgbox sCalcul("4") '4*2 =8 ;-)

Conclusion :


J'espere que tout le mode comprendra sinon un petit post ;-)

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 (cs_legion91)