VB教程第5章教案.ppt

3.粗体字 粗体字通过FontBold属性设置。 格式：FontBold[=Boolean] 4. 斜体字 斜体字通过FontItalic属性设置。 格式：FontItalic[=Boolean] 5. 4 字形 5. 加删除线 加删除线通过FontStrikethru属性设置。 格式：FontStrikethru[=Boolean] 6. 加下划线 加下划线通过FontUnderline属性设置。 格式：FontUnderline[=Boolean] 5. 4 字形 7. 重叠显示 加删除线通过FontTransParent属性设置。 格式：FontTransParent[=Boolean] (1) 重叠属性显示只适用于窗体和图片框 (2) 设置一种属性后，该属性即开始起作用，不会自动撤消。只有重新设置后才能改变该属性的值。 (3) 可用窗体或控件中字体属性还可通过属性中的Font设置。 5. 4 字形 1. 直接输出 格式：Printer.Print [表达式表] 2. Page属性 Page属性设置页号。 格式：Printer.Page 例： Printer.Print “Page:”;Printer1.Page 5. 5 打印机输出 3. NewPage方法 NewPage方法用来实现换页操作。 格式：Printer.NewPage 4. EndDoc方法 EndDoc方法用来结束文件打印。 格式：Printer.EndDoc 5. 5 打印机输出 5. 窗体输出 通过窗体来打印信息。 格式：[窗体]PrintForm (1) 窗体输出比直接输出更实用，可先在屏幕上修改输出的内容和格式，满意后再在打印机上打印出来。 (2) 设置AutoRedraw属性为True，才能实现窗体输出。 (3) PrintForm方法不仅可打印窗体上的文本，还可打印窗体上任何可见控件和图形。 5. 5 打印机输出 (1)创建应用程序的用户界面和设置对象属性 (2)编写程序代码 Private Sub Command1_Click() Dim r As Single, k As Single, s As Single r = Val(InputBox(请输入圆的半径, 计算圆的周长和面积)) k = 2 * 3.14159 * r s = 3.14159 * r * r Text1.Text = k Text2.Text = s MsgBox 计算已完成, , 例5.12 End Sub Private Sub Command2_Click() End End Sub 例5.11 从输入框中输入圆的半径，计算圆的周长和面积 例5.11 当输入的圆半径为65时，运行结果 例5.12 控制窗体“变大”和“变小” 在窗体上设置三个命令按钮(下图)，程序进入运行状态后，当单击“窗体变大”命令按钮时，窗体变大，单击“窗体变小”按钮时，窗体变小。单击“退出”按钮时，则退出。 5.13 程序举例 例5.12 (1)建立应用程序的用户界面和设置对象属性 (2)编写程序代码 Private Sub Form_Load() Form1.Height = 4000 Height为窗体的高度，P55 Form1.Width = 4000 Width为窗体的宽度 Form1.Top = 1000 设置窗体的初始位置(y) Form1.Left = 1000 设置窗体的初始位置(x) End Sub Private Sub Command1_Click() “窗体变大”按钮 Form1.Height = Form1.Height + 200 每次增加200点 Form1.Width = Form1.Width + 200