je suis en train de migrer une application VB vers VB.net.

j'utilise des type imbriqué j'ai converti les types en structure mais je me retrouve avec le message d'erreur 'Nombre non négatif requis. Nom du paramètre*: count'

je vous joint les 2 code j'ai bien évidement une lacune mais????
Code VB6 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Type MyLicGene
    Societe As String
    Tous As String
    AficheFrm As String
    DateDeb As String
    DateExecuter As String
    DateFin As String
    Enregistre As String
    NbJeton As String
    NbJetonActif As String
End Type
 
Type MyLic
    Serial As String
    PassWord As String
    UserName As String
    Enregistre As String
End Type
Type Licence
    Count As Long
    General As MyLicGene
    Record() As MyLic
End Type
 
Type MyDb
     UserDb As String
    PassWordDb As String
End Type
Public PassDb As MyDb
 
Public FiledLicence As Licence
 
Open App.Path & "\Fichier.dll" For Random As #NumFile
Get #NumFile, , FiledLicence
 
Close #NumFile
Code Vb.net 2010 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Dim strContents As New Licence
 FileOpen(file_num, FullPath, OpenMode.Random, OpenAccess.ReadWrite, OpenShare.LockReadWrite, Len(strContents) - 1)
        Dim objReader As StreamReader
        Try
            Do While Not EOF(1)
                FileGet(file_num, strContents, 1) 'Err:= Nombre non négatif requis. Nom du paramètre*: count

            Loop