Bonjour,
J'ai besoin d'aide afin de convertir du code C# a VB.
J'ai déja tenté quelques chose mais en vain(Voir code ci-dessous). Mes connaissances C# sont limitées. Merci à l'avance.

Code C#:

public class SelectionChangedEventArgs : EventArgs
{
public int Position;
}

public delegate void SelectionChangedEventHandler(object sender, SelectionChangedEventArgs e);

public event SelectionChangedEventHandler SelectionChanged;

protected virtual void OnSelectionChanged(SelectionChangedEventArgs e)
{
if (SelectionChanged != null)
SelectionChanged(this, e);
}

Tentative VB:

Public Class SelectionChangedEventArgs
Inherits EventArgs
Public Position As Integer
End Class

Public Delegate Sub SelectionChangedEventHandler(ByVal sender As Object, ByVal e As SelectionChangedEventArgs)


Public Event SelectionChangedEventHandler SelectionChanged

Protected Overridable Sub OnSelectionChanged(ByVal e As SelectionChangedEventArgs)
If (Not Me.SelectionChanged Is Nothing) Then
Me.SelectionChanged.Invoke(Me, e)
End If
End Sub

Comme ca ton code VB à l'air bon, mais tout depend du contexte car comme ca meme ton code C# n'est pas bon.
donc comme ca je peux pas t'aider.

si tu as du code compiler, tu peux utiliser reflector va voir sur le blogs de Redo : http://blogs.developpeur.org/redo ou google qui va te traduire le code compilé aussi bien en C# qu'en delphi.net et qu'en VB.net ...

@+



Cyril

Bonjour Cyril et les autres,

Le code c# fonctionne très bien. Il est bien entendu incomplet. Mon défi est la conversion en VB. Je persiste à avoir des messages d?erreur.

Je me tourne donc vers la suggestion d?utiliser Reflector. Ce dernier fut utile pour corriger quelques erreurs. Toutefois, il y en a une qui persiste. Voici ma nouvelle section de code VB ainsi que l?erreur produite. Le code que j?utilise provient de msdn a l?adresse suivante : http://msdn.microsoft.com/msdnmag/issues/03/08/CuttingEdge/ La seule différence est que j?ai envoyé mon code VB dans des pages de CodeBehind.

Public Class SelectionChangedEventArgs
Inherits EventArgs
Public Position As Integer
End Class

Public Delegate Sub SelectionChangedEventHandler(ByVal sender As Object, ByVal e As SelectionChangedEventArgs)

Public Event SelectionChanged As SelectionChangedEventHandler

Protected Overridable Sub OnSelectionChanged(ByVal e As SelectionChangedEventArgs)
If (Not Me.SelectionChanged Is Nothing) Then
Me.SelectionChanged.Invoke(Me, e)
End If
End Sub

Le msg d'erreur montre ceci:
'Public Event SelectionChanged(sender As Object, e As SelectionChangedEventArgs)'
is an event, and cannot be called directly. Use a 'RaiseEvent' statement to raise an event.

Merci.

a la place de me.selectionchanged.invoke

RaiseEvent SelectionChenged(me,e)


Cyril