Code C# in VB.NET konvertieren

07/02/2009 - 22:29 von Mario Krsnic | Report spam
Hallo,
ich habe den Code für ein Kartenspiel, geschrieben in c# mit dem
online-konverter konvertiert. Nur an einer Stelle ist die "Übersetzung"
leider nicht syntaktisch korrekt. Kann mir jemand da helfen?
Das Problem ist in der Konvertierung der folg. C#-Zeile:
Arr(i, j).OnClick += CardButton_Click()
in VB.NET:
Arr(i, j).OnClick += CardButton_Click()
In der Zeile oben kommt die Meldung:
Compilerfehlermeldung: BC32022: "Public Event OnClick(sender As Object, e As
System.EventArgs)" ist ein Ereignis und kann nicht direkt aufgerufen werden.
Verwenden Sie eine RaiseEvent-Anweisung, um ein Ereignis aufzurufen.

Original Code die ganze Prozedur in c#:

protected void Page_Init(object sender, EventArgs e)
{

// fill Arr
Arr[0, 0] = OneOf25_1; Arr[1, 0] = OneOf25_2; Arr[2, 0] = OneOf25_3;
Arr[3, 0] = OneOf25_4; Arr[4, 0] = OneOf25_5;
Arr[0, 1] = OneOf25_6; Arr[1, 1] = OneOf25_7; Arr[2, 1] = OneOf25_8;
Arr[3, 1] = OneOf25_9; Arr[4, 1] = OneOf25_10;
Arr[0, 2] = OneOf25_11; Arr[1, 2] = OneOf25_12; Arr[2, 2] =
OneOf25_13; Arr[3, 2] = OneOf25_14; Arr[4, 2] = OneOf25_15;
Arr[0, 3] = OneOf25_16; Arr[1, 3] = OneOf25_17; Arr[2, 3] =
OneOf25_18; Arr[3, 3] = OneOf25_19; Arr[4, 3] = OneOf25_20;
Arr[0, 4] = OneOf25_21; Arr[1, 4] = OneOf25_22; Arr[2, 4] =
OneOf25_23; Arr[3, 4] = OneOf25_24; Arr[4, 4] = OneOf25_25;

for (int i = 0; i < 5; i++) {
for (int j = 0; j < 5; j++) {
Arr[i, j].OnClick += CardButton_Click;
}
}
}
Ende C#
Das Konvertierungsergebnis:
Protected Sub Page_Init(ByVal sender As Object, ByVal e As EventArgs)

' fill Arr
Arr(0, 0) = OneOf25_1
Arr(1, 0) = OneOf25_2
Arr(2, 0) = OneOf25_3
Arr(3, 0) = OneOf25_4
Arr(4, 0) = OneOf25_5
Arr(0, 1) = OneOf25_6
Arr(1, 1) = OneOf25_7
Arr(2, 1) = OneOf25_8
Arr(3, 1) = OneOf25_9
Arr(4, 1) = OneOf25_10
Arr(0, 2) = OneOf25_11
Arr(1, 2) = OneOf25_12
Arr(2, 2) = OneOf25_13
Arr(3, 2) = OneOf25_14
Arr(4, 2) = OneOf25_15
Arr(0, 3) = OneOf25_16
Arr(1, 3) = OneOf25_17
Arr(2, 3) = OneOf25_18
Arr(3, 3) = OneOf25_19
Arr(4, 3) = OneOf25_20
Arr(0, 4) = OneOf25_21
Arr(1, 4) = OneOf25_22
Arr(2, 4) = OneOf25_23
Arr(3, 4) = OneOf25_24
Arr(4, 4) = OneOf25_25

Dim i As Integer
For i = 0 To 5 - 1 Step i + 1
Dim j As Integer
For j = 0 To 5 - 1 Step j + 1
Arr(i, j).OnClick += CardButton_Click()
Next
Next
End Sub

Danke!
Gruss
Mario
 

Lesen sie die antworten

#1 Timo Ahrends
07/02/2009 - 23:48 | Warnen spam
Moin Mario,

Arr(i, j).OnClick += CardButton_Click()



vielleicht ist das ja gemeint: AddHandler Arr(i,j), AddressOf
CardButton.Click

Ähnliche fragen