A l'aide svp ! Incompatibilité VB6 - .NET

Question

Bonjour les gens !

Je dois porter une applie de VB6 en .NET, j'ai fais &#231;a directement dans .NET et il m'a traduit le machin comme il se doit, mais le probl&#232;me est que certains morceaux de code ne sont plus valides sous .NET
Le d&#233;lire dans l'histoire c'est que comme ce n'est pas moi qui ai d&#233;velopp&#233; l'applie en VB6 et qu'elle n'est absolument pas comment&#233;e  et bien ce n'est pas facile de comprendre ce qui se passe ! (Surtout que je ne connais pas le .NET, et mes notions de VB6 commencent &#224; &#234;tre loin ...  lol).
Alors les erreurs sont simples, ce sont les commentaires, bon c'est toujours les 2 m&#234;mes c'est &#231;a qui est bien lol :)
Il ne connait donc pas MyWidget.Index, ni la fonction Unload(), est ce que quelqu'un aurait une id&#233;e pour m'aider &#224; r&#233;soudre mon probl&#232;me ?

Merci d'avance !

Voila le code source :
Sous VB6 j'ai &#231;a :

Private Sub Form_Unload(Cancel As Integer)
    Dim MyWidget As Control
    
    For Each MyWidget In LabelMin
        If MyWidget.Index > 0 Then Unload MyWidget
    Next 'MyWidget In LabelMin
    For Each MyWidget In LabelMax
        If MyWidget.Index > 0 Then Unload MyWidget
    Next 'MyWidget In LabelMin
    For Each MyWidget In TextMin
        If MyWidget.Index > 0 Then Unload MyWidget
    Next 'MyWidget In LabelMin
    For Each MyWidget In TextMax
        If MyWidget.Index > 0 Then Unload MyWidget
    Next 'MyWidget In LabelMin
End Sub

et apr&#232;s traduction sous .NET j'obtiens :

'UPGRADE_WARNING: &#233;v&#233;nement FormFiltre.Unload de Form a un nouveau comportement. Cliquez ici --> 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2065"'
Private 
Sub FormFiltre_Closed(
ByVal eventSender 
As System.Object, 
ByVal eventArgs 
As System.EventArgs) 
Handles 
MyBase.Closed

Dim MyWidget 
As System.Windows.Forms.Control





For 
Each MyWidget 
In LabelMin



'UPGRADE_WARNING: Impossible de r&#233;soudre la propri&#233;t&#233; par d&#233;faut de l'objet MyWidget.Index. Cliquez ici --> 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'



'UPGRADE_ISSUE: MyWidget Unload n'a pas &#233;t&#233; mis &#224; niveau. Cliquez ici --> 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2029"'



If MyWidget.Text > 0 
Then Unload(MyWidget)



Next MyWidget 
'MyWidget In LabelMin



For 
Each MyWidget 
In LabelMax



'UPGRADE_WARNING: Impossible de r&#233;soudre la propri&#233;t&#233; par d&#233;faut de l'objet MyWidget.Index. Cliquez ici --> 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'



'UPGRADE_ISSUE: MyWidget Unload n'a pas &#233;t&#233; mis &#224; niveau. Cliquez ici --> 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2029"'



If MyWidget.Text > 0 
Then Unload(MyWidget)



Next MyWidget 
'MyWidget In LabelMin



For 
Each MyWidget 
In TextMin



'UPGRADE_WARNING: Impossible de r&#233;soudre la propri&#233;t&#233; par d&#233;faut de l'objet MyWidget.Index. Cliquez ici --> 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'



'UPGRADE_ISSUE: MyWidget Unload n'a pas &#233;t&#233; mis &#224; niveau. Cliquez ici --> 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2029"'



If MyWidget.Text > 0 
Then Unload(MyWidget)



Next MyWidget 
'MyWidget In LabelMin



For 
Each MyWidget 
In TextMax



'UPGRADE_WARNING: Impossible de r&#233;soudre la propri&#233;t&#233; par d&#233;faut de l'objet MyWidget.Index. Cliquez ici --> 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'



'UPGRADE_ISSUE: MyWidget Unload n'a pas &#233;t&#233; mis &#224; niveau. Cliquez ici --> 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2029"'



If MyWidget.Text > 0 
Then Unload(MyWidget)



Next MyWidget 
'MyWidget In LabelMin



End 
Sub


End 
Class

cs_lim · Answer

Salut

d'apr&#232;s le code c'est un d&#233;chargement de contr&#244;le, normalement tu n'en as pas besoin car le vb.net g&#232;re tout seul la m&#233;moire.

Est-ce que tu as essay&#233; de mettre ces lignes en commentaires et de faire marcher le programme ? 

Sache que le transformation de vb6 &#224; vb.net se fait mais microsoft certifie &#224; 100% que ton projet ne marchera pas. Ils sont pas fous.

@+
LIM

dudu90 · Answer

Slt,

Merci pour ta r&#233;ponse.

Je vais essayer de commenter cette partie de code, mais il me reste encore d'autres erreurs alors je ne peux pas tester tout de suite si &#231;a marche :(

Sinon pour Crosoft, &#231;a ne m'&#233;tonne pas, et en m&#234;me temps ils ont raison; ils ne peuvent pas assurer que la conversion marche &#224; tous les coups vu le nombre de cas &#224; traiter !

Bon je tente de rectifier les autres erreurs et je viendrai dire si ta solution est la bonne ^^

Merci encore
++

dudu90 · Answer

Bon je vais abuser en posant encore une petite question.
Dans le code en fin de post, j'ai une erreur sur :

For 
Each LocClsConnectADO 
In MyClsConnectGDM

Ca me dit : "L'expression est du type 'GDM.ClsConnectADO', qui n'est pas un type de collection"
Est-ce que quelqu'un pourrait m'&#233;clairer sur cette erreur svp ?
(D&#233;sol&#233; si mes questions sont betes, mais le VB n'est vraiment pas ma sp&#233;cialit&#233; lol)

Merci d'avance
++

Mon code en .NET (l'erreur est &#224; la 7&#176; ligne) :



Public 
Function Disconnect() 
As 
Integer



Dim LocClsConnectADO 
As ClsConnectADO





If 
Not (MyClsConnectGDM 
Is 
Nothing) 
Then


MyClsConnectGDM.Disconnect()



End 
If 
'If Not (MyClsConnectGDM Is Nothing)





If 
Not (MyClsConnectSL 
Is 
Nothing) 
Then



For 
Each LocClsConnectADO 
In MyClsConnectGDM


LocClsConnectADO.Disconnect()



Next LocClsConnectADO 
'LocClsConnectADO In MyClsConnectGDM



End 
If 
'If Not (MyClsConnectSL Is Nothing)



End 
Function

A l'aide svp ! Incompatibilité VB6 -> .NET

3 réponses

Discussions similaires