Correction de path et apprendre à faire une simple fonction.
5/5 (2 avis)
Snippet vu 3 914 fois - Téléchargée 38 fois
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.
J'espere que tout le mode comprendra sinon un petit post ;-)
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
- Correction de path et apprendre à faire une simple fonction.
- Mettre à jour include path visual studio code - Forum - C / C++ / C++.NET
- Tarifs dégressifs france ioi correction ✓ - Forum - Python
- Correction jeu de dames python - Guide
- Application path in vb.net - Guide
- France ioi correction jeu de dames ✓ - Forum - C++ & C++ .NET
3 août 2003 à 20:06
3 août 2003 à 18:07
Right(sDir, 1) = Mid(sDir, (Len(sDir)), 1)
Mid est une fonction qui prend du text dans une variable
Mid(string_ou_on_prend_le_text,debut_de_la_selection, longueur_de_la_selection)
Bon c sur c connu mais sa peut servir ;-)
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.