今天接着翻译上次要讲的内容。

二、访问窗体

你可以不通过创建变量就访问vb6的窗体子句（member），下面的例子显示了如何改变窗体的颜色。

要改变窗体1的颜色，需要：

1、确保你的项目（project）和system.drawing命名空间（namespace）关联。这是进行查窗体颜色设置的必要条件。

2、直接在窗体1上改变颜色。

3、直接在窗体1上调用show方法。

Public Sub ChangeForm1Colors()
    Form1.ForeColor = System.Drawing.Color.Coral
    Form1.BackColor = System.Drawing.Color.Cyan
    Form1.Show()
End Sub

如果窗体1不存在，vb会自动创建，你不必为此声明一个变量。

三、IsNot运算符（Operator）

vb2005现在提供了IsNot运算符，可以让你避免麻烦的使用Is和Not运算符。

比较两个对象基准变量（compare two object reference viarables)的代码如下：

result=object1 IsNot object2

其中：result是布尔值；object1和2是对象变量或表达式。

IsNot运算符可判断两个对象是否属于同一类型，但是它不能对数值进行比较。如果两个对象是同一类的，则result的值为false，反之，result的值为true。IsNot运算符和Is运算符恰恰相反，它的优点是避免了Not和is共同组成的苯拙难懂的语句。

下面的代码，分别利用Is运算符和IsNot运算符进行相同的比较，可以看出他们的不同之处：

Dim o1, o2 As Object
If Not o1 Is o2 Then MsgBox("o1 and o2 do not refer to the same instance.")
If o1 IsNot o2 Then MsgBox("o1 and o2 do not refer to the same instance.")

如果你有两个对象变量，你可以用Is或者IsNot或者同时使用两者来判断他们是否同属一种实例（instance）

Public Sub processControl(ByVal f As System.Windows.Forms.Form, _
    ByVal c As System.Windows.Forms.Control)
    Dim active As System.Windows.Forms.Control = f.ActiveControl
    If (active Is Nothing) OrElse (c IsNot active) Then
        Return
    End If
End Sub

这段代码将控件c和活动窗体f上的活动空间进行比较，如果没有活动控件，或者活动控件和控件c不是同一种实例，那么就结束if声明返回。

其实，用IsNot或是用Is完全可以根据个人喜好，二者并无一定的优劣，只要语句意思清晰用哪个都行。

今天就翻译到这里，我真诚期待你的意见和建议。谢谢你访问我的blog。

评论