Routine en VB6 vers visual 2010 [Résolu]

Messages postés
7
Date d'inscription
jeudi 4 août 2005
Dernière intervention
3 août 2014
- - Dernière réponse : bentic
Messages postés
7
Date d'inscription
jeudi 4 août 2005
Dernière intervention
3 août 2014
- 20 oct. 2013 à 22:31
Bonsoir a tous,
Ne sachant pas faire, es-ce que l'un d'entre vous pourrait me transformer ce morceau de Visual Studio 6 en Visual Studio 2010.

Private Sub Lbl1_click()
Open app.Path & "/1.txt" For Input As #1
Text1.text = Input(LOF(1), #1)
Close #1
En sub

Private Sub Lbl2_click()
Open app.Path & "/2.txt" For Input As #2
Text1.text = Input(LOF(2), #2)
Close #2
En sub

Private Sub Lbl3_click()
Open app.Path & "/3.txt" For Input As #3
Text1.text = Input(LOF(3), #3)
Close #3
En sub

Private Sub Lbl4_click()
Open app.Path & "/4.txt" For Input As #4
Text1.text = Input(LOF(4), #4)
Close #2
En sub
Ect..........

Cela ne doit pas etre dur pour vous.
Un grand merci pour votre aide
Afficher la suite 

4 réponses

Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
27 janvier 2014
2
0
Merci
Bonjour,
Sur ton clavier (sur le mien aussi d'ailleurs) il y a une touche très intéressante .. c'est la touche F1 qui te procure de l'aide.
Suffit de taper dans la page de MSDN
Ouvrir fichier texte
et tu tombe sur..
Dim fileReader As String
fileReader = My.Computer.FileSystem.ReadAllText("C:test.txt") 

A+
Messages postés
7
Date d'inscription
jeudi 4 août 2005
Dernière intervention
3 août 2014
0
Merci
Effectivement. En fait la ou je bloque c'est sur "Open app.Path" ce qui permet d'ouvrir un fichier de n'importe ou VB6. je cherche l'équivalent en VB2012
ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Contributeur
Dernière intervention
11 avril 2018
264 -
Bonjour, bentic,
et je jurerais que lermitte222, que je salue, t'a justement répondu en ce qui concerne ce point précis !
Messages postés
7
Date d'inscription
jeudi 4 août 2005
Dernière intervention
3 août 2014
0
Merci
Ok, merci a vous
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
27 janvier 2014
2
0
Merci
Petite précision supplémentaire..
    Dim S As String = My.Application.Info.DirectoryPath & "\"
    Dim fileReader As String
    fileReader = My.Computer.FileSystem.ReadAllText(S & "test.txt")

Attention, c'est le répertoire où se trouve l'Exe.
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .
bentic
Messages postés
7
Date d'inscription
jeudi 4 août 2005
Dernière intervention
3 août 2014
-
Merci lermite222
Rien n'est facile quand on est pas de la partie.
Je suis absolument pas programmeur. Je ne fais que copier ou bidouiller lorsque j'y arrive.
Encore merci

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.