5/5 (2 avis)
Snippet vu 3 914 fois - Téléchargée 38 fois
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 ;-)
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.