VB.NET转换运算符代码示例解读
创始人
2024-06-21 10:41:34
0

VB.NET编程语言中的运算符操作对于一个程序开发来说起了非常重要的作用。我们在学习的过程中需要加强对这方面的注意,掌握好这些基础知识,才能更好的运用这门语言帮助我们实现程序的开发。#t#

如果已定义了类或结构,则可以定义类或结构的类型与其他数据类型(如 Integer、Double 或 String)之间的VB.NET转换运算符。

将类型转换定义为类型或结构中的 CType 函数过程。所有转换过程必须为 Public Shared,并且每个转换过程必须指定 Widening 或 Narrowing。

在类或结构上定义一个运算符也称为“重载”该运算符。

VB.NET转换运算符示例

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

 

  1. Visual Basic  
  2. Public Structure digit  
  3. Private dig As Byte  
  4. Public Sub New(ByVal b As Byte)  
  5. If (b < 0 OrElse b > 9) 
    Then Throw New _  
  6. System.ArgumentException
    ("Argument outside range for Byte")  
  7. Me.dig = b 
  8. End Sub  
  9. Public Shared Widening Operator 
    CType(ByVal d As digit) As Byte  
  10. Return d.dig  
  11. End Operator  
  12. Public Shared Narrowing Operator
     CType(ByVal b As Byte) As digit  
  13. Return New digit(b)  
  14. End Operator  
  15. End Structure 

 

可以使用下面的代码测试结构 digit。

 

  1. Visual Basic  
  2. Public Sub consumeDigit()  
  3. Dim d1 As New digit(4)  
  4. Dim d2 As New digit(7)  
  5. Dim d3 As digit = CType(CByte(3), digit)  
  6. Dim s As String = "Initial 4 generates "
     & CStr(CType(d1, Byte)) _  
  7. & vbCrLf & "Initial 7 generates "
     & CStr(CType(d2, Byte)) _  
  8. & vbCrLf & "Converted 3 generates " 
    & CStr(CType(d3, Byte))  
  9. Try  
  10. Dim d4 As digit  
  11. d4 = CType(CType(d1, Byte) + 
    CType(d2, Byte), digit)  
  12. Catch e4 As System.Exception  
  13. s &= vbCrLf & "4 + 7 generates " 
    & """" & e4.Message & """"  
  14. End Try  
  15. Try  
  16. Dim d5 As digit = CType(CByte(10), digit)  
  17. Catch e5 As System.Exception  
  18. s &= vbCrLf & "Initial 10 generates 
    " & """" & e5.Message & """"  
  19. End Try  
  20. MsgBox(s)  
  21. End Sub 

VB.NET转换运算符相关使用技巧就为大家介绍到这里。

相关内容

热门资讯

如何允许远程连接到MySQL数... [[277004]]【51CTO.com快译】默认情况下,MySQL服务器仅侦听来自localhos...
如何利用交换机和端口设置来管理... 在网络管理中,总是有些人让管理员头疼。下面我们就将介绍一下一个网管员利用交换机以及端口设置等来进行D...
施耐德电气数据中心整体解决方案... 近日,全球能效管理专家施耐德电气正式启动大型体验活动“能效中国行——2012卡车巡展”,作为该活动的...
Windows恶意软件20年“... 在Windows的早期年代,病毒游走于系统之间,偶尔删除文件(但被删除的文件几乎都是可恢复的),并弹...
20个非常棒的扁平设计免费资源 Apple设备的平面图标PSD免费平板UI 平板UI套件24平图标Freen平板UI套件PSD径向平...
德国电信门户网站可实时显示全球... 德国电信周三推出一个门户网站,直观地实时提供其安装在全球各地的传感器网络检测到的网络攻击状况。该网站...
着眼MAC地址,解救无法享受D... 在安装了DHCP服务器的局域网环境中,每一台工作站在上网之前,都要先从DHCP服务器那里享受到地址动...
为啥国人偏爱 Mybatis,... 关于 SQL 和 ORM 的争论,永远都不会终止,我也一直在思考这个问题。昨天又跟群里的小伙伴进行...