我們大家都知道對(duì)于任何一門(mén)語(yǔ)言都提供了多種多樣化的操作符，VB.NET也不例外。VB.NET操作符一般分為：算術(shù)運(yùn)算符，賦值運(yùn)算符，比較運(yùn)算符，邏輯運(yùn)算符，其它。本文只以幾個(gè)小例子來(lái)介紹其中一些比較重要的應(yīng)用。大家來(lái)看看吧。

在本文中將會(huì)用到一個(gè)自定義類(lèi)dog ，代碼如下：

Public Class dogClass dog  
Private s_name As String  
Private s_color As Color  
Private s_age As Integer  
Public Sub New()Sub New()  
s_name = "塞北的雪" 
s_age = 22 
s_color = System.Drawing.Color.Red  
End Sub  
Public Property Name()Property Name() As String  
Get  
Return s_name  
End Get  
Set(ByVal value As String)  
s_name = valueEnd SetEnd Property  
Public Property Color()Property Color() As Color  
Get  
Return s_color  
End Get  
Set(ByVal value As Color)s_color = valueEnd Set  
End PropertyPublic Property Age()Property Age() As IntegerGetReturn s_age  
End GetSet(ByVal value As Integer)s_age = valueEnd Set  
End PropertyPublic Shared Operator +(ByVal a As dog, ByVal b As dog)  
Dim c As New dogc.Name = a.Name + b.Namec.Age = a.Age + b.Agec.Color = Color.FromArgb((a.Color.ToArgb + b.Color.ToArgb) / 2)  
Return cEnd OperatorEnd Class  

1、Is運(yùn)算符

Is運(yùn)算符比較兩個(gè)“引用對(duì)象”是否引用了同一實(shí)例。 例子如下：

Dim a As New dog  
Dim b As New dog()If a Is b Then  
MsgBox("True")Else  
MsgBox("False")  
End Ifb = ab.Name = "North  
Snow"If a Is b Then  
MsgBox("True")Else  
MsgBox("false")  
End If'false'true   

2、VB.NET操作符重載

我們可以根據(jù)需要對(duì)操作符進(jìn)行重載，本文中的dog 類(lèi)就對(duì)+ 操作符進(jìn)行了重載操作。此時(shí)對(duì)兩個(gè)dog 類(lèi)進(jìn)行相加時(shí)，會(huì)返回一個(gè)dog 類(lèi)實(shí)例 ，他的Name是那兩個(gè)dog 實(shí)例的名字相加，年齡也是dog 實(shí)例的年齡之和，顏色是兩個(gè)顏色的平均值。例子如下：

Dim sb As New System.Text.StringBuilder  
Dim m As New dogDim n As New dog  
Dim c As dogm.Name = "NorthSnow"c = m + n  
sb.AppendLine()  
sb.Append(m.Name)  
sb.Append("--")  
sb.Append(m.Age)  
sb.Append("--")  
sb.Append(m.Color.ToArgb)  
sb.AppendLine()  
sb.Append(n.Name)  
sb.Append("--")  
sb.Append(n.Age)  
sb.Append("--")  
sb.Append(n.Color.ToArgb)  
sb.AppendLine()  
sb.Append(c.Name)  
sb.Append("--")  
sb.Append(c.Age)  
sb.Append("--")  
sb.Append(c.Color.ToArgb)  
MsgBox(sb.ToString)'  
NorthSnow--22---65536'塞北的雪--22---65536'NorthSnow塞北的雪--44---65536   

3、like操作符
like操作符用于判斷一個(gè)字符串與另外一個(gè)字符串是否匹配，大小寫(xiě)敏感。語(yǔ)法是：Result=String like Pattern。             

例子如下：

Dim a As String = "Northsnow,塞北的雪" 
Dim b As String = "Northsnow,塞北的雪" 
If a Like b ThenMsgBox("true")ElseMsgBox("false")  
End Ifb = "northsnow,塞北的雪" 
If a Like b ThenMsgBox("true")ElseMsgBox("false")  
End If'true'false   

另外，Pattern支持通配符。這一點(diǎn)肯定讓我們想起了正則表達(dá)式(Regular Expression)。不過(guò)我們千萬(wàn)不要搞混了，雖然有些地方相近，但是有些通配符與正則表達(dá)式不太一樣，功能也有區(qū)別。like操作符支持的通配符共有5種：

◆?   表示一個(gè)任意字符(1個(gè))
◆*   任意個(gè)任意字符(0-n個(gè))
◆#   表示一個(gè)數(shù)字
◆[charlist]  表示 charlist 中的任意一個(gè)字符
◆[!charlist]  表示 不在charlist 中的任意一個(gè)字符

用過(guò)正則的朋友一定會(huì)很容易的理解的，有幾個(gè)核心的規(guī)則一定要記牢，那就是：
（1） * 可以匹配任何字符串
（2） ?可以匹配任何一個(gè)字符
（3） 而# 相當(dāng)于[0-9] 只能匹配一個(gè)數(shù)字 如果要匹配兩個(gè)數(shù)字需要寫(xiě)成 ##
（4） 字符列表中的字符可以用-提供一個(gè)區(qū)間，以簡(jiǎn)化書(shū)寫(xiě)。
（5） 大小寫(xiě)敏感

下面就舉幾個(gè)例子說(shuō)明一下：

Dim a As String = "Northsnow.123" 
Dim b As String = "*.###"MsgBox(a Like b)  
'Truea  = "Northsnow.123"b  = "[A-Z][a-z]*#"MsgBox(a Like b)  
'Truea  = "Northsnow.123"b  = "[A-Z][a-z]*[a-z]"MsgBox(a Like b)  
'Falsea = "Northsnow.123"b = "[A-Z][a-z]*[0-9]"MsgBox(a Like b)  
'True   

4、其它的一些特殊VB.NET操作符
AndAlse，OrElse與and 和or 差不多，只是他們比后者更智能，當(dāng)前面的判斷已經(jīng)確定了返回值的時(shí)候，后面的表達(dá)式的值就不再計(jì)算了。
TypeOf  返回當(dāng)前對(duì)象的類(lèi)型，每一個(gè)類(lèi)都有一個(gè)getType方法與它很相似，舉一個(gè)小例子如下：

Dim a As New dogDim b As New dogDim c As Typec = a.GetTypeMsgBox(c.ToString)  
If TypeOf (a) Is vb1.Form7.dog ThenMsgBox(True)  
End If'vb1.Form7+dog'True   

就說(shuō)這么多吧！已有在應(yīng)用中如果在總結(jié)出什么好的經(jīng)驗(yàn)，再慢慢補(bǔ)充。

【編輯推薦】

1. 實(shí)例講述VB.NET使用Log4Net
2. 三分鐘學(xué)會(huì)VB.NET轉(zhuǎn)換形態(tài)
3. VB.NET獲取硬盤(pán)信息四大法寶
4. 講述VB.NET調(diào)用Excel的好處
5. 簡(jiǎn)單例子概述VB.NET新窗體