Листинг 3.

Сгенерированный шаблон myPointType

Imports System
Imports System.Data
Imports System.Data.Sql
Imports System.Data.SqlTypes
Imports System.Data.SqlServer
 _
 _
Public Structure myPointType
    Implements INullable
    Public Overrides Function ToString() As String
        ' Введите сюда свой код
        Return ""
    End Function
    Public ReadOnly Property IsNull() As Boolean Implements INullable.IsNull
        Get
            ' Введите сюда свой код
            Return m_Null
        End Get
    End Property
    Public Shared ReadOnly Property Null() As myPointType
        Get
            Dim h As myPointType = New myPointType
            h.m_Null = True
            Return h
        End Get
    End Property
    Public Shared Function Parse(ByVal s As SqlString) As myPointType
        If s.IsNull Then
            Return Null
        End If
        Dim u As myPointType = New myPointType
        ' Введите сюда свой код
        Return u
    End Function
    ' Это метод символа-заполнителя
    Public Function Method1() As String
        ' Введите сюда свой код
        Return "Hello"
    End Function
    ' Это статический метод символа-заполнителя
    Public Shared Function Method2() As SqlString
        ' Введите сюда свой код
        Return New SqlString("Hello")
    End Function
    ' Это значение поля символа-заполнителя
    Public var1 As Integer
    ' Приватный член
    Private m_Null As Boolean
End Structure