Discussion :

[pve3]

Bonjour,
je traduit actuellement un programme en vb6 en vb.net et je n'arrive pas
à coder la lecture et l'enregistrement d'un fichier

Voici le code en vb6

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Type enregistrement
    SAVETABREPONSE(1 To 9, 1 To 9) As Integer
End Type
Private MyRecord As enregistrement
Dim qnr As Integer
 
Sub enregistrement()
MyRecord.SAVETABREPONSE(x, y) = TABREPONSE(x, y)
qnr = FreeFile
Open App.Path & "\enregistrement.sdk" For Random As #qnr Len = Len (MyRecord)
Put #qnr, 1, MyRecord
Close #qnr
end sub

Ma deuxième question est comment traduire l'evenement click d'un textbox ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Text1_Click(Index As Integer)

Merci d'avance

[neguib]

Pour ton second souci. A quoi correspond le integer passé en paramètre car en .Net la gestion des évènement est différente, le delegate se presentant le plus souvent pour un contrôle de la façon suivante.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Text1_Click(Byval sender As Object, ByVal e As EventArgs) Handles Me.TextBox1.Click
   '...
End Sub

Les EventArgs et dérivés sont les objets qui contiennet les données propres à l'évènement, ici vide d'ailleurs. Alors que l'object sender est ici tout simplment la référence du TextBox1. Les dérivés de System.Control ont une propriété type Object par exemple ici TextBox.Tag. On nl'utilise pour définir des paramètres spécifiques au contrôle. Ainsi par exemple si le integer est une donnée propre dont tu as besoin pour ce textbox, il te faut l'assigner à sa propriété .Tag. Comme celà tu peux le récupérer dans l'évènement click ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Text1_Click(Byval sender As Object, ByVal e As EventArgs) Handles Me.TextBox1.Click
   Dim tb As Control = (CType(sender, Control)
   Dim nombre As Integer = CType(tb.Tag, Integer)
   '...
End Sub

Pour ecrire et lire dans un fichier l'espace de noms essentiel est System.IO notamment par exemple la Classe File

Saches également que Type n'est plus utilisé, cela peut être remplacé par une structure ou même une classe

[pve3]

merci