日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
VB.NET轉(zhuǎn)換運算符代碼示例解讀

VB.NET編程語言中的運算符操作對于一個程序開發(fā)來說起了非常重要的作用。我們在學(xué)習的過程中需要加強對這方面的注意，掌握好這些基礎(chǔ)知識，才能更好的運用這門語言幫助我們實現(xiàn)程序的開發(fā)。#t#

如果已定義了類或結(jié)構(gòu)，則可以定義類或結(jié)構(gòu)的類型與其他數(shù)據(jù)類型（如 Integer、Double 或 String）之間的VB.NET轉(zhuǎn)換運算符。

將類型轉(zhuǎn)換定義為類型或結(jié)構(gòu)中的 CType 函數(shù)過程。所有轉(zhuǎn)換過程必須為 Public Shared，并且每個轉(zhuǎn)換過程必須指定 Widening 或 Narrowing。

在類或結(jié)構(gòu)上定義一個運算符也稱為“重載”該運算符。

VB.NET轉(zhuǎn)換運算符示例

下面的示例定義名稱為 digit 的結(jié)構(gòu)與 Byte 之間的轉(zhuǎn)換運算符。

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

可以使用下面的代碼測試結(jié)構(gòu) digit。

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

VB.NET轉(zhuǎn)換運算符相關(guān)使用技巧就為大家介紹到這里。


本文題目：VB.NET轉(zhuǎn)換運算符代碼示例解讀
網(wǎng)站地址：http://m.5511xx.com/article/dhpjogs.html