Преобразование логического числа в целое число возвращает -1 для истины?

Работа для вашего первоначального использования будет следующей:

 Dim i As Integer = CInt(Int(False))

Это вернет 0.

 Dim i As Integer = CInt(Int(True))

Это вернет 1.

Похоже на получение, и я не знаю других примеров такого поведения.

http://msdn.microsoft.com/en-us/library/ae382yt8.aspx указывает это поведение, с этим замечанием "Не делайте этого, mkay". Делайте заметку ниже:

Конверсия в Framework

Метод ToInt32 класса Convert в пространстве имен System преобразует True в +1.

Если вы должны преобразовать логическое значение в числовой тип данных, будьте осторожны с тем, какой метод преобразования вы используете.

Многие версии BASIC в 1970 и 1980 годах реализовали бит-мутную арифметику с операторами AND и OR и сделали истинное условное выражение для оценки -1 (что было значением "все бит-множество" ), Я точно не знаю, почему было принято решение о том, чтобы истинные условные выражения оценивали значение, установленное для всех бит; возможность использовать AND для маскировки целого числа с условным выражением может быть быстрее, чем умножение, но при условии, что внутренняя механика интерпретаторов различие было бы незначительным.

В любом случае, первые версии BASIC, выпущенные Microsoft для ПК, следуют в той традиции, когда истинные условные выражения оцениваются в -1 (набор всех бит); поскольку QuickBASIC, в свою очередь, должен был быть совместим с ними, и Visual Basic должен был быть совместим с QuickBASIC, они использовали одно и то же представление. Хотя .Net распознает целые числа и булевы как разные типы, vb.net хотел предложить путь миграции для VB6-программ, которые могут опираться на прежнее поведение. С "Option Strict Off", VB.Net будет неявно преобразовывать логическое значение True в целое число -1; в то время как большинство программистов используют Option Strict On, это путано, чтобы поведение CInt() отличалось от поведения неявного преобразования.

У меня была та же проблема и я использовал функцию Math.Abs для результата:)

документация MSDN дает некоторую ценную информацию:

Булевы значения не сохраняются как числа, а сохраненные значения не должны быть эквивалентны числам. Вы никогда не должны писать код, который полагается на эквивалентные числовые значения для True и False. Когда это возможно, вы должны ограничить использование булевых переменных логическими значениями, для которых они созданы.

Я протестировал его и получил следующие результаты:

Public Module BooleanTest
Public Function GetTrue() As Boolean
    GetTrue = True
End Function
End Module

...

[StructLayout(LayoutKind.Explicit)]
struct MyStruct
{
    [FieldOffset(0)]
    public bool MyBool;
    [FieldOffset(0)]
    public int MyInt32;
}

static void Main(string[] args)
{
    MyStruct b1, b2;
    b1.MyInt32 = 0;
    b2.MyInt32 = 0;
    b1.MyBool = BooleanTest.BooleanTest.GetTrue();
    b2.MyBool = true;
    Console.WriteLine(b1.MyInt32);
    Console.WriteLine(b2.MyInt32);
}

Это приведет к:

1
1

Надеюсь, это доказывает, что все значения True внутри .NET всегда одинаковы. Причина проста: все члены .NET должны общаться друг с другом. Было бы странно, если object.Equals(trueFromCSharp, trueFromVB) приведет к false (как и trueFromCSharp == trueFromVB).

CInt - это просто функция, которая преобразует True в -1. Другая функция Int вернет 1. Но это конвертеры и ничего не говорят о двоичных значениях.

Я надеюсь, что это может помочь другим работать с булевыми элементами внутри VB.NET. Как лучший способ написать VB.NET, который написал Роджер:

Public Function BoolToMySql(bVal As Boolean) As Integer
   return  If(bVal, 1, 0)
End Function

У меня была такая же проблема с MySQL, поскольку у этого типа не существует типа Boolean только tinyint (1).

Мое решение состояло в том, чтобы написать функцию конвертера, чтобы убедиться, что значения верны, прежде чем вставлять их в базу данных

        Public Function BoolToMySql(bVal As Boolean) As Integer
            Dim retVal As Integer
            If bVal = True Then
                retVal = 1
            Else
                retVal = 0
            End If
                 BoolToMySql = retVal
        End Function