VB程序设计课件以及作业4章节幻灯片.pptVIP

* 4.3.4 用标签(Label)输出数据 1. 标签的属性 (1) Caption: 标签的标题。 (2) Alignment: 确定标签标题的对齐方式。 (3) AutoSize: 确定标签是否随标题自动调整大小。 (4) BorderStyle: 确定标签的边框。 0 —无边框；1— 有边框。 (5) BackStyle: 指定背景是透明或不透明。 1—不透明；0—透明。 (6) WordWrap: 指示是否随标题沿垂直方向自动扩展。 True—标签将随标题在垂直方向变化。 (此时AutoSize属性值应设置为True) False—标签不能在垂直方向上扩展。 * 【例4-5】测试标签的边框样式和透明样式。 在窗体上放置一标签，显示“Visual Basic程序设计教程”，放置四个命令按钮，Command1放在Command2上，Command3放在Command4上。运行时，单击相应按钮，界面发生相应变化。 Label1 Command2 Command1 Command3 Command4 * Private Sub Command2_Click() Label1.BorderStyle = 0 Command1.Visible = True Command2.Visible = False End Sub Private Sub Command1_Click() Label1.BorderStyle = 1 Command1.Visible = False Command2.Visible = True End Sub * Private Sub Command3_Click() Label1.BackStyle = 1 Command3.Visible = False Command4.Visible = True End Sub Private Sub Command4_Click() Label1.BackStyle = 0 Command3.Visible = True Command4.Visible = False End Sub * 2. 标签的事件: Click、DblClick... 例: Private Sub Label1_DblClick() Label1.FontSize = Label1.FontSize + 10 End Sub 3. 标签的方法:Move 格式: [对象名.]Move Left[,[top][,[width][,height]]] left: 指示对象左边的水平坐标(x-轴)。 top: 指示对象顶边的垂直坐标(y-轴)。 width: 指示对象新的宽度。 height: 指示对象新的高度。 例: Private Sub Label1_Click() Label1.Move Label1.Left + 50 End Sub * 4.4 注释、暂停与程序结束语句 1. 注释语句 格式: | Rem 注释内容 功能: 给语句或程序段加上注释，以提高可读性。 说明: Rem与 注释内容之间至少空一个空格。 例: Private Sub Form_Activate() Rem 本程序用于计算圆的面积 Dim R As String, AREA As Single R为半径 R=InputBox(请输入半径, , 1) :Rem 输入半径 AREA = 3.14 * Val(R) ^ 2 以下将半径和面积输出到窗体上 Print Val(R), AREA End Sub * 2. 暂停语句 格式: Stop 功能: 暂停程序的执行。 用于程序调试。类似于执行“运行”菜单中的“中断”命令 3. 结束语句 格式: End 功能: 结束程序的执行。 * 4.5 应用举例 【例4-6】 P64 例4-9 【例4-7】 P65 例4-10 【例4-8】 P66 例4-11 【例4-9】 P66 例4-12 【例4-10】 P66 例4-13 * 本章小结: 输入 计算 输出