0

VB6には次のようなコードがあります:

IsLast = Abs(CursorPos = Len(numText.Text))

false を 0 に、true を 1 に評価するもの。

このコード行により、VB.NET でエラーが発生します。

これを正しく書く方法は?

編集: エラーは次のとおりです。

Error   15  Overload resolution failed because no accessible 'Abs' can be called without a narrowing conversion:
'Public Shared Function Abs(value As Decimal) As Decimal': Argument matching parameter 'value' narrows from 'Boolean' to 'Decimal'.
'Public Shared Function Abs(value As Double) As Double': Argument matching parameter 'value' narrows from 'Boolean' to 'Double'.
'Public Shared Function Abs(value As Single) As Single': Argument matching parameter 'value' narrows from 'Boolean' to 'Single'.
'Public Shared Function Abs(value As Long) As Long': Argument matching parameter 'value' narrows from 'Boolean' to 'Long'.
'Public Shared Function Abs(value As Integer) As Integer': Argument matching parameter 'value' narrows from 'Boolean' to 'Integer'.
'Public Shared Function Abs(value As Short) As Short': Argument matching parameter 'value' narrows from 'Boolean' to 'Short'.
'Public Shared Function Abs(value As SByte) As SByte': Argument matching parameter 'value' narrows from 'Boolean' to 'SByte'.
4

2 に答える 2

3
IsLast = If( CursorPos = Len(numText.Text), 1, 0 )

VB6 のより大きなチャンクを VB.Net に移行しようとしていますか?

于 2012-10-28T19:38:51.043 に答える
1
IsLast = CursorPos = Len(numText.Text)
于 2012-10-28T19:39:37.537 に答える