VB基础教程第四章：VB程序设计

　　上面举了一个比较简单的例子，下面的例子稍微复杂些：

　　新建窗体，控件布局如图4－3所示，包括一个List控件，一个Text控件和两个按钮（Command1和Command2），（比较简单的程序我们都采用缺省名），对它们属性做如下修改：

List1	Caption＝“请输入你的名字”
Text1	Text＝“”（空字符串)
Button1	Caption＝“复原” Enabled＝False
Button2	Caption=“清除”

　　把使用Button1的Enabled属性设为False（假），是使程序在初始时，无法单击Command1。按F5，运行程序，图4－4，复原按钮成为灰色，不可选。

当然现在程序还什么也不能做，下面我们在程序中添加代码：

首先在General里声明全局变量：

Dim StoreString As String ’用来储存字符串

※注意：为什么用全局变量？

VB里每一个小过程都相当于一个程序，程序里的变量称为局部变量，是只能在程序内部使用的，而当程序调用结束后，由于从内存中被清除，所以变量储存的值也就消失了，这里的全局变量是用来在过程中传递字符串。

接着填写以下代码：

Private Sub Command1_Click()

Text1.Text = StoreString
Command1.Enabled = False

End Sub

Private Sub Command2_Click()

StoreString = Text1.Text
Text1.Text = "" ’清除
Command1.Enabled = True

End Sub

　　运行程序，如图4－5。按下“清除”，文本框被清除，按下“复原”，文本有被恢复，许多程序中的Undo/Redo就是利用这个原理实现的，现在知道为什么内存越多越好了吧。

　　我们在把程序修改一下，把Button2删除，Button1的Enabled属性改为True，Caption改为“清除”，填写代码：

Private Sub Command1_Click()

If Command1.Caption = "清除" Then

StoreString = Text1.Text
Text1.Text = "" ’清除
Command1.Caption = "复原"

Else

Text1.Text = StoreString
Command1.Caption = "清除"

End If

End Sub

　　同样可以上面的功能，但是却少用了一个控件，控件使用少的程序启动会快些。