1第9章图形图像应用.pptVIP

9.5.1 简单文本输出 程序运行启动后，当单击“开始”按钮后界面如图 9.9 所示。 9.5.1 简单文本输出 3 ．制表位 制表位的功能类似于键盘上的“ Tab” 键。 制表位可以用 StringFormat 对象的 SetTabStops 方法来设置，该方法 的语法格式如下： 语法： SetTabStops( 偏移量 , 制表位 ) 说明： （ 1 ） 偏移量是 Single 类型，指定文本行的开头与第一个制表位之间 的空格数。 （ 2 ）制表位是 Single 类型的数组，指定制表位之间的距离（即空格 数）。 例如，下面代码先定义一个 StringFormat 对象，然后用 SetTabStops 方法来设置制表位，代码如下： Dim MySF As New StringFormat() Dim tabs As Single() = {100 , 80 , 80 , 80} MySF.SetTabStops(0, tabs) 9.5.1 简单文本输出 ControlChars 模块成员 成员 CrLf Cr Lf NewLine NullChar 无 Tab 字符常量 vbCrLf vbCr vbLf vbNewLine vbNullChar vbNullString vbTab 等效字符 Chr(13) + Chr(10) Chr(13) Chr(10) Chr(13) + Chr(10) Chr(0) 值为 0 的字符串 Chr(9) 说明 回车 / 换行 回车符 换行符 新行符 值为 0 的字符 用于调用外部过程。 与 0 长度字符串不同 Tab 字符 Back Quote vbBack 无 Chr(8) Chr(34) 退格字符 单（或双）引号字符 9.5.1 简单文本输出 程序运行启动后，当单击“开始”按钮后界面如图 9.10 所示。 9.6.1 刷新图像 例如，定义一个 Bitmap 对象，将其赋给窗体的 BackgroundImage 属性： Dim bmp As Bitmap 声明一个 Bitmap 类型变量 bmp = New Bitmap(Me.Width , Me.Height) 设置图像的尺寸， 创建空的位图 Me.BackgroundImage = bmp 赋给窗体的 BackgroundImage 属性 然后，就要在 Bitmap 对象上画图，这还需要借助于 Graphics 对象提供的 丰富的画图方法。将从 Bitmap 对象创建一个 Graphics 对象，之后就可以在 Graphics 对象上画图，也就是在 Bitmap 对象上画图，代码如下： Dim g As Graphics g = Graphics.FromImage(bmp) 从 bmp 对象创建一个 Graphics 对 象 g.Clear(Me.BackColor) 设置位图的背景色并清除原来的图像 Dim BlackPen As New Pen (Color.Black , 2) 定义一个黑色画 笔 g.DrawLine(BlackPen, 20 , 20 , 20 , 100) 画一根线 使用上面的代码画出的图像，无论怎样切换窗口，图像始终不会消失， 永久显示。 9.6.2 图形变换 1 ．图形缩放 缩放图形是通过 Graphics 对象的 ScaleTransform 方法来实现的，语 法格式如下： 语法： Graphics 对象名 .ScaleTransform( 横向因子 , 纵向因子 ) 说明： （ 1 ） Graphics 对象名是已创建的 Graphics 对象名，可以是合法的 VB.NET 变量名。 （ 2 ） 横向因子是横向缩放系数， Single 类型值。如果值小于 1 ，则 图形在水平方向上被缩小，如果大于 1 ，则图形在水平方向上被放大。 （ 3 ） 纵向因子是纵向缩放系数， Single 类型值。如果值小于 1 ，则 图形在垂直方向上被缩小，如果大于 1 ，则图形在垂直方向上被放大。 例如， g