Mega Code Archive

 

Categories / VB.Net / Data Types

 

Convert Boolean value To Int16

Imports System Imports System.Text Imports System.Text.RegularExpressions Public Class MainClass     Shared Sub Main(  )         Dim blnTrue As Boolean = True         Dim blnOne As Boolean = 1         Dim blnNegOne As Boolean = -1         Dim blnFalse As Boolean = False              If Convert.ToInt16(blnNegOne) = 1 Then           Console.WriteLine(blnFalse)           Console.WriteLine(Convert.ToString(Convert.ToInt32(blnFalse)))         End If     End Sub 'Main     End Class