任何一门语言都提供了丰富的操作符，vb也不例外。操作符一般分为：算术运算符，赋值运算符，比较运算符，逻辑运算符，其它。本文只以几个小例子来介绍其中一些比较重要的应用。

在本文中将会用到一个自定义类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 = value

End Set

End Property

Public Property Color()Property Color() As Color

Get

Return s_color

End Get

Set(ByVal value As Color)

s_color = value

End Set

End Property

Public Property Age()Property Age() As Integer

Get

Return s_age

End Get

Set(ByVal value As Integer)

s_age = value

End Set

End Property

Public Shared Operator +(ByVal a As dog, ByVal b As dog)

Dim c As New dog

c.Name = a.Name + b.Name

c.Age = a.Age + b.Age

c.Color = Color.FromArgb((a.Color.ToArgb + b.Color.ToArgb) / 2)

Return c

End Operator

End Class

1、Is运算符

Is运算符比较两个“引用对象”是否引用了同一实例。 例子如下：

Dim a As New dog

Dim b As New dog()

If a Is b Then

MsgBox("True")

Else

MsgBox("False")

End If

b = a

b.Name = "NorthSnow"

If a Is b Then

MsgBox("True")

Else

MsgBox("false")

End If

'false

'true

2、操作符重载

我们可以根据需要对操作符进行重载，本文中的dog 类就对+ 操作符进行了重载操作。此时对两个dog 类进行相加时，会返回一个dog 类实例 ，他的Name是那两个dog 实例的名字相加，年龄也是dog 实例的年龄之和，颜色是两个颜色的平均值。例子如下：

Dim sb As New System.Text.StringBuilder

Dim m As New dog

Dim n As New dog

Dim c As dog

m.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操作符用于判断一个字符串与另外一个字符串是否匹配，大小写敏感。语法是：Result=String like Pattern。              

例子如下：

Dim a As String = "Northsnow,塞北的雪"

Dim b As String = "Northsnow,塞北的雪"

If a Like b Then

MsgBox("true")

Else

MsgBox("false")

End If

b = "northsnow,塞北的雪"

If a Like b Then

MsgBox("true")

Else

MsgBox("false")

End If

'true

'false

共2页: 1 [2] 下一页

频道声明：本频道的文章除部分特别声明禁止转载的专稿外，可以自由转载.但请务必注明出出处和原始作者 文章版权归本频道与文章作者所有.对于被频道转载文章的个人和网站,我们表示深深的谢意。 原始作者:佚名 录入时间:2007-1-7 17:59:27 信息来源:不详 投稿信箱:itqoo@126.com