VB.NET中转换运算符如何使用

这篇文章给大家介绍VB.NET中转换运算符如何使用，内容非常详细，感兴趣的小伙伴们可以参考借鉴，希望对大家能有所帮助。

在夏河等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供成都网站设计、成都网站制作 网站设计制作按需定制,公司网站建设,企业网站建设,品牌网站建设,成都营销网站建设,外贸营销网站建设,夏河网站建设费用合理。

VB.NET转换运算符示例

下面的示例定义名称为 digit 的结构与 Byte 之间的转换运算符。

Visual Basic  
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。

Visual Basic  
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 

关于VB.NET中转换运算符如何使用就分享到这里了，希望以上内容可以对大家有一定的帮助，可以学到更多知识。如果觉得文章不错，可以把它分享出去让更多的人看到。