http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net_by_API%2FSystem%2FConvert
VB.Net by API/System/Convert - История изменений
2026-04-05T23:48:33Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VB.Net_by_API/System/Convert&diff=2533&oldid=prev
в 16:40, 26 мая 2010
2010-05-26T16:40:16Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://www.vbex.ru/index.php?title=VB.Net_by_API/System/Convert&diff=2534&oldid=prev
Admin: 1 версия
2010-05-26T12:51:12Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Convert.FromBase64String==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Public Class Tester<br />
Public Shared Sub Main<br />
Dim quote As String = "AAAAA"<br />
Dim quoteBytes As Byte() = System.Text.Encoding.UTF8.GetBytes(quote)<br />
Dim quote64 As String = Convert.ToBase64String(quoteBytes)<br />
Dim byteSet As Byte() = Convert.FromBase64String(quote64)<br />
<br />
Dim result As String = System.Text.Encoding.UTF8.GetString(byteSet)<br />
<br />
Console.WriteLine(quote & vbNewLine & quote64 & vbNewLine & result)<br />
End Sub<br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==Convert.ToBase64String==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Public Class Tester<br />
Public Shared Sub Main<br />
Dim quote As String = "AAAAA"<br />
Dim quoteBytes As Byte() = System.Text.Encoding.UTF8.GetBytes(quote)<br />
Dim quote64 As String = Convert.ToBase64String(quoteBytes)<br />
Dim byteSet As Byte() = Convert.FromBase64String(quote64)<br />
<br />
Dim result As String = System.Text.Encoding.UTF8.GetString(byteSet)<br />
<br />
Console.WriteLine(quote & vbNewLine & quote64 & vbNewLine & result)<br />
End Sub<br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==Convert.ToInt32==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
Imports System.Text<br />
Imports System.Text.RegularExpressions<br />
<br />
Public Class MainClass<br />
Shared Sub Main( )<br />
Dim blnTrue As Boolean = True<br />
Dim blnOne As Boolean = 1<br />
Dim blnNegOne As Boolean = -1<br />
Dim blnFalse As Boolean = False<br />
<br />
If Convert.ToInt16(blnNegOne) = 1 Then<br />
Console.WriteLine(blnFalse)<br />
Console.WriteLine(Convert.ToString(Convert.ToInt32(blnFalse)))<br />
End If<br />
End Sub "Main<br />
<br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==Convert.ToInt64==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
<br />
Public Class MainClass<br />
Shared Sub Main( )<br />
Dim l As Long<br />
Dim s As Single<br />
<br />
l = Long.MaxValue<br />
Console.WriteLine(l)<br />
<br />
s = Convert.ToSingle(l)<br />
s -= 1000000000000<br />
l = Convert.ToInt64(s)<br />
<br />
Console.WriteLine(l)<br />
End Sub "Main<br />
<br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==Convert.ToSingle==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
<br />
Public Class MainClass<br />
Shared Sub Main( )<br />
Dim l As Long<br />
Dim s As Single<br />
<br />
l = Long.MaxValue<br />
Console.WriteLine(l)<br />
<br />
s = Convert.ToSingle(l)<br />
s -= 1000000000000<br />
l = Convert.ToInt64(s)<br />
<br />
Console.WriteLine(l)<br />
End Sub "Main<br />
<br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==Convert.ToUInt16==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
Imports System.Text<br />
Imports System.Text.RegularExpressions<br />
<br />
Public Class MainClass<br />
Shared Sub Main( )<br />
Dim shrShort As Short<br />
Dim shrUInt16 As UInt16<br />
Dim shrInt16 As Int16<br />
Dim intInteger As Integer<br />
Dim intUInt32 As UInt32<br />
Dim intInt32 As Int32<br />
Dim lngLong As Long<br />
Dim lngInt64 As Int64<br />
<br />
shrShort = 0<br />
shrUInt16 = Convert.ToUInt16(shrShort)<br />
shrInt16 = shrShort<br />
intInteger = shrShort<br />
intUInt32 = Convert.ToUInt32(shrShort)<br />
intInt32 = shrShort<br />
lngInt64 = shrShort<br />
<br />
lngLong = lngLong.MaxValue<br />
If lngLong > Short.MaxValue Then<br />
shrShort = Convert.ToInt16(lngLong)<br />
End If<br />
intInteger = CInt(lngLong)<br />
<br />
End Sub "Main<br />
<br />
End Class<br />
<br />
<br />
</source></div>
Admin