共用方式為


HOW TO:定義轉換運算子

更新:2007 年 11 月

如果已定義類別或結構,則可定義類別或結構型別與其他資料型別 (例如 Integer、Double 或 String) 之間的型別轉換運算子。

將型別轉換定義成類別或結構內的 CType 函式程序。所有轉換程序都必須是 Public Shared,且每個程序都必須指定 WideningNarrowing

在類別或結構上定義運算子,也稱為「多載化」運算子。

範例

下列範例會定義名為 digit 之結構與 Byte 間的轉換運算子。

Public Structure digit
Private dig As Byte
    Public Sub New(ByVal b As Byte)
        If (b < 0 OrElse b > 9) Then Throw New _
            System.ArgumentException("Argument outside range for Byte")
        Me.dig = b
    End Sub
    Public Shared Widening Operator CType(ByVal d As digit) As Byte
        Return d.dig
    End Operator
    Public Shared Narrowing Operator CType(ByVal b As Byte) As digit
        Return New digit(b)
    End Operator
End Structure

您可以使用下列程式碼來測試結構 digit。

Public Sub consumeDigit()
    Dim d1 As New digit(4)
    Dim d2 As New digit(7)
    Dim d3 As digit = CType(CByte(3), digit)
    Dim s As String = "Initial 4 generates " & CStr(CType(d1, Byte)) _
        & vbCrLf & "Initial 7 generates " & CStr(CType(d2, Byte)) _
        & vbCrLf & "Converted 3 generates " & CStr(CType(d3, Byte))
    Try
        Dim d4 As digit
        d4 = CType(CType(d1, Byte) + CType(d2, Byte), digit)
    Catch e4 As System.Exception
        s &= vbCrLf & "4 + 7 generates " & """" & e4.Message & """"
    End Try
    Try
        Dim d5 As digit = CType(CByte(10), digit)
    Catch e5 As System.Exception
        s &= vbCrLf & "Initial 10 generates " & """" & e5.Message & """"
    End Try
    MsgBox(s)
End Sub

請參閱

工作

HOW TO:定義運算子

HOW TO:呼叫運算子程序

HOW TO:使用定義運算子的類別

HOW TO:宣告結構

概念

運算子程序

隱含和明確轉換

擴展和縮小轉換

參考

Operator 陳述式

Structure 陳述式