Visual Basic程序设计第5章顺序结构程序设计.pptVIP

5．清除方法Cls Cls方法可以清除Form或PictureBox中由Print方法所输出的文本，清除后的区域以背景色填充。 格式：[对象名称]．Cls 说明：“对象名称”可以是窗体(Form)或图片框(PictureBox)，如果省略“对象名称”，则清除窗体上由Print方法所生成的文本。 下面看一个使用Cls方法清除Print方法所输出的字符串的例子。 ①建立应用程序用户界面。 选择“新建工程”，进入窗体设计器。在窗体中添加命令按钮Command1和Command2。 ②设置对象属性。 设置对象Command1的Caption属性为“显示”，Command2的Caption属性为“清除”。 ③设计代码。 编写命令按钮Command1的Click事件代码如下： Private Sub Command1_Click() CurrentY = 700 Print Space(12), ****** Print Space(12), * * Print Space(12), * * Print Space(12), ****** End Sub 编写命令按钮Command2的Click事件代码如下： Private Sub Command2_Click() Cls End Sub 程序执行后，单击“显示”按钮，会在窗体中显示一个由“*”组成的矩形，如图5-13所示，单击“清除”按钮，会将该矩形清除，如图5-14所示。 图5-13单击“显示”按钮后显示矩形 图5-14单击“清除”按钮后清除该矩形。 5.2.2 使用标签输出文本 如果在程序运行时只需要显示某些信息，不需要输入信息，就可以使用标签控件，标签控件的内容只能通过属性来设置，不能由用户在程序运行时直接编辑。 1．标签的主要属性 (1)Caption属性：标签中显示的内容。 (2)Name属性：标签的名称。 (3)Alignment属性：指定在标签上显示的信息的对齐方式，0表示左对齐；1表示右对齐；2表示居中。 (4)AutoSize属性：指定标签是否能自动调整大小以显示所有内容。 (5)BorderStyle属性：指定标签有无边框，0表示无边框；1表示有边框。 (6)WordWrap属性：指定标签中文字是否能自动换行。 下面看一个使用标签的例子。 ①建立应用程序用户界面和设置对象属性。 选择“新建工程”，进入窗体设计器。在窗体中先添加一个标签 label1，设置label1的相关属性如下： Caption：红对 Autosize：true Fontsize：36 Backcolor: H0000FFFF 背景为黄色 Forecolor：H000000FF 前景为红色 我们还需要另一个类似的标签来代表蓝队，为减少重复劳动，节约工作量，我们可以复制label1，然后选择粘贴，粘贴时系统会给出如5-15所示对话框。 我们选择对话框中的“否”按钮即可粘贴得到和Label1一模一样的Label2。调整Label2的位置，使其和Label1在同一水平线上。 修改设置Label2的属性如下： Caption：蓝对 Forecolor：H00FF0000 前景为蓝色 另外，在窗体中再添加一个命令按钮Command1，设置Command1的Caption属性为“换位”，Fontsize为26。 图5-15 选择粘贴后弹出的对话框 ②设计代码。 编写命令按钮Command1的Click事件代码如下： Private Sub Command1_Click() Dim x As Integer x = Me.Label1.Left Me.Label1.Left = Me.Label2.Left Me.Label2.Left = x End Sub 执行程序后，界面如图5-16所示，单击“换位”按钮后如图5-17所示。 5-16 标签实例运行界面 图5-17单击“换位”按钮后标签换位 5.2.3 使用图片框显示图形图像 图片框(Pic