Discussion :

[gderenne]

Salut,

j'ai besoin de traduire un bout de code afin de mieux le comprendre pour le retravailler en VB, mais les traducteurs automatiques ou Reflector (donc, apres compilation du code C#) n'arrivent pas à me donner une version VB fonctionnelle de ce bout de code :

Code C# :

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

1
2
3
4
5
6
7
8
9
10
11
12
public event EventHandler ErrorDetectedEvent;
 
protected virtual void RaiseExceptionDetectedEvent(string messageCourt, Exception ex)
{
    this.LastException = ex;
    this.LastErrorMsg = messageCourt;
    this.IsErrorDetected = true;
 
    EventHandler Evennement = ErrorDetectedEvent;
    if (Evennement != null)
        Evennement(this, new EventArgs());
}

Les traductions automatiques donnent ceci comme réponse :

Code VB :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Event ErrorDetectedEvent As EventHandler
 
Protected Overridable Sub RaiseExceptionDetectedEvent(ByVal messageCourt As String, ByVal ex As Exception)
  Me.LastException = ex
  Me.LastErrorMsg = messageCourt
  Me.IsErrorDetected = True
 
  Dim Evennement As EventHandler = ErrorDetectedEvent
  If Not Evennement Is Nothing Then
    Evennement(Me, New EventArgs())
  End If
End Sub

Le problème est que la ligne Dim Evennement As EventHandler = ErrorDetectedEvent n'est pas bonne car :

Public Event ErrorDetectedEvent(sender As Object, e As System.EventArgs)' est un événement. Il ne peut donc pas être appelé directement. Utilisez une instruction 'RaiseEvent' pour déclencher un événement.

Si un bilingue (C#/VB) pouvait me donner un coup de main, ca serait super cool

Merci par avance à cette âme charitable.

[kwest]

Tu as la réponse sur ce site :

http://freddyboy.developpez.com/dotnet/articles/events/

[gderenne]

Merci pour ta réponse

Apparemment, ça ne fonctionne pas avec le fichier que je tente de traduire.

C'est pas grave, j'ai compris le principe. Je vais tout refaire à ma sauce

[Kelpan]

Ton message d'erreur t'indiquait bien le problème

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Event ErrorDetectedEvent As EventHandler
 
Protected Overridable Sub RaiseExceptionDetectedEvent(ByVal messageCourt As String, ByVal ex As Exception)
  Me.LastException = ex
  Me.LastErrorMsg = messageCourt
  Me.IsErrorDetected = True
 
  ' Declenche l'évenement 
  RaiseEvent ErrorDetectedEvent(Me, New EventArgs())
End Sub

[gderenne]

Par rapport à l'application (le reste du code), ca ne marche pas

Y a probablement autre chose que j'ai pas compris.

Merci en tout cas pour ta suggestion.

Mais c'est pas grâve, j'ai tout refait moi-même (voire amélioré pour mon appli)