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;
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 ...
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.