Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 737 fois - Téléchargée 68 fois
Option Explicit Public Sub readIn(source As String, destination As TextBox) Dim a As String Open source For Input As #1 Do Until EOF(1) Input #1, a$ destination.Text = destination.Text & Chr(13) & a$ Loop Close #1 End Sub Public Sub writeIn(source As TextBox, destination As String) Open destination For Output As #1 Print #1, source.Text Close #1 End Sub
11 févr. 2007 à 18:52
Au lieu de faire une destination en argument (metre une sortie en entré sa fait pas bien !) crée une fonction !
Apres je te conseil de t'assuré que le canal utilisé est libre (un petit freefile serai le bienvenue!)
Ensuite et pour finir, si ta fonction n'as pas de paramètre de sortie je te conseil de faire une sortie en boolean pour la gestion des erreurs (revoi faux si erreur !))
Enfin voila, un code qui ne montre que l'utilisation d'un open en input et output, il manque encore le random ...
26 avril 2001 à 14:53
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.