本文整理匯總了VB.NET中Microsoft.SqlServer.Server.IBinarySerialize.Read方法的典型用法代碼示例。如果您正苦於以下問題：VB.NET IBinarySerialize.Read方法的具體用法？VB.NET IBinarySerialize.Read怎麽用？VB.NET IBinarySerialize.Read使用的例子？那麽, 這裏精選的方法代碼示例或許可以為您提供幫助。
在下文中一共展示了IBinarySerialize.Read方法的1個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: Read
' The binary layout is as follows:
' Bytes 0 - 19: string text, padded to the right with null
' characters
' Bytes 20+: double value
Public Sub Read(ByVal r As System.IO.BinaryReader) _
Implements Microsoft.SqlServer.Server.IBinarySerialize.Read
Dim maxStringSize As Integer = 20
Dim chars As Char()
Dim stringEnd As Integer
Dim stringValue As String
Dim value As double
' Read the characters from the binary stream.
chars = r.ReadChars(maxStringSize)
' Find the start of the null character padding.
stringEnd = Array.IndexOf(chars, ControlChars.NullChar)
If StringEnd = 0 Then
stringValue = Nothing
Exit Sub
End If
' Build the string from the array of characters.
stringValue = new String(chars, 0, stringEnd)
' Read the double value from the binary stream.
value = r.ReadDouble()
' Set the object's properties equal to the values.
Me.StringValue = stringValue
Me.DoubleValue = value
End Sub