Hi,
ich habe ein Problem, die folgende Zeile von C# auf VB2005EE zu übersetzen.
static public void SelectAccount(IBACCustomer oCustomer, int iIndex)
{
/// wie muß man das umsetzen nach VB.net ?
m_oHIUPD = oCustomer.AccountData.Segments[iIndex] as BACSegment;
}Der Converter hat mir den folgenden Code erstellt:
Public Shared Sub SelectAccount(ByVal oCustomer As IBACCustomer, ByVal iIndex _
As Integer)
m_oHIUPD = oCustomer.AccountData.Segments(iIndex) as BACSegment
End Sub Für 'as BACSegment' erhalte ich aber die Meldung: "end of-Anweisung erwartet."
Bei folgenden Code habe ich ebenfalls ein Problem:
C#:
DDBAC.Dialog.OnStateChange += new DBACDialogEvents_OnStateChangeEventHandler( _
frmMain.Dialog_OnStateChange); in VB.net:
DDBAC.Dialog.OnStateChange = New DBACDialogEvents_OnStateChangeEventHandler( _
Dialog_OnStateChange) Da erhalte ich die Meldung
Fehler 93 "BankingApplicationComponents.DBACDialogEvents_OnStateChangeEventHandler" ist ein Delegattyp und erfordert einen einzelnen addressof-Ausdruck als einziges Argument für den Konstruktor.
Das ruft den folgenden Code auf:
C#:
// Watch the serverstate and inform the user, if the connection was lost
static public bool DialogHasBeenAborted = false;
static public void Dialog_OnStateChange(int nNewState)
{
if (nNewState == (int)BACDialogStates.bacDialogAborted)
{
// Cannot delete DDBAC Dialog directly, while in DDBAC Dialog Callback
frmMain.DialogHasBeenAborted = true;
}
}VB.net:
Public Shared DialogHasBeenAborted As Boolean = False
Sub Dialog_OnStateChange(ByVal nNewState As Integer)
If nNewState = CType(BACDialogStates.bacDialogAborted, Integer) Then
' Cannot delete DDBAC Dialog directly, while in DDBAC Dialog Callback
überweisungen_Formular.DialogHasBeenAborted = True
End If
End Sub Wie muß ich das richtig von C# nach VB2005 übersetzen ?
Tschau
Martin
mein aktuelles .net-Projekt:
http://www.fiman.de
freue mich über Test-Informationen.
Screenshots gibt es hier: http://www.fiman.de |