本文整理汇总了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