5.2 按钮控件

　　在应用程序中，按钮控件常常被用来启动、中断或结束一个进程，用户可以通过简单的单击按钮来执行操作。只要用户单击按钮，就会触发它的Click事件过程，通过编写按钮的Click事件过程，就可以指定它的功能了。

　　按钮控件的常用属性如表5.3所示。

　　5.2.1按钮的有效性在某些应用程序界面中，按钮会根据用户的操作情况呈现两种不同的状态，一种是"有效",一种是"无效".在"无效"状态时，按钮通常以浅灰色显示，不能响应用户的任何操作。Windows系统自带的录音机程序界面，其中的【停止】与【后退】按钮无效(以浅灰色显示).按下【播放】按钮后，【播放】按钮变为无效，而【停止】按钮变为有效。按下【停止】按钮后，【停止】按钮变为无效，【播放】按钮恢复有效。

　　通过按钮的有效性可以看出当前程序的状态，从而避免一些不需要的或重复的操作。如在录音机处于停止状态时(【停止】按钮无效),用户就不需要再去单击【停止】按钮来停止播放了。这里给出一个实例，来模拟录音机的停止与播放按钮。

　　实例5.2按钮的有效性

　　在窗体中放置一个标签控件和两个按钮控件，如图5.5所示，其中各控件的属性设置如表5.4所示。

　　注意：按钮控件添加到窗体上后，在默认情况下，它们的Enabled属性为Ture,在运行程序前，请在【属性】窗口中确认两个按钮的Enabled属性均为Ture,以防止用户在操作中谋改变了这个属性。

　　双击第一个按钮，打开【代码】窗口，将下列代码添加到ComPlay_Click事件过程中：

　　Private Sub ComPlay_Click()

　　Labell.Caption="正在播放歌曲"

　　Complay.Enabled=False

　　ComStop.Enabled=Ture

　　End Sub

　　当用户单击【播放】按钮时，触发ComPlay_Click事件，该事件过程中的第一行代码是在标签中显示文本，第二行代码是将【播放】按钮变为无效，第三行代码是将【停止】按钮变为有效。

　　与此类似，将下列代码添加到Comstop_Click事件过程中：

　　Private Sub Comstop_Click()

　　Labell.Caption="歌曲播放停止"

　　ComPlay.Enabled=Fasle

　　ComPlay.Enabled=Ture

　　End Sub

　　运行该程序，单击【播放】按钮，则在标签中显示"正在播放歌曲",并且【播放】按钮变为无效，如图5.6所示。单击【停止】按钮，则在标签中显示"歌曲播放停止",【停止】按钮变为无效，同时，【播放】按钮又恢复有效，如图。5.7所示。