Dim un, deux, temp As Integer Dim NomFichier As String Private Sub CmdOk_Click() NomFichier = "premier.dll" Open NomFichier For Input As #1 Input #1, un While un < 50 Input #1, deux List1.AddItem (deux - un) temp = deux deux = un un = temp Wend Close #1 End Sub
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.