其他控件-精品·公开课件.ppt

【例10.1】使用Scale方法自定义坐标系。 程序代码如下： Private Sub Form_Paint() Form1.Scale (-2, 2)-(8, -2) 定义窗体坐标系 Line (-1.5, 0)-(7.5, 0) 画x轴 Line (7.5, 0)-(7.3, -0.1): Line (7.5, 0)-(7.3, 0.1) Line (0, 1.9)-(0, -1.4) 画y轴 Line (0, 1.9)-(0.1, 1.7): Line (0, 1.9)-(-0.1, 1.7) CurrentX = 7.3: CurrentY = 0.5: Print x CurrentX = 0.2: CurrentY = 2: Print y For i = -1 To 7 标记x轴的坐标刻度 Line (i, 0)-(i, 0.1) CurrentX = i - 0.2: CurrentY = -0.1: Print i Next i End Sub 10.1.2 VB的颜色设置 1．颜色常数 VB系统提供了一组颜色常数，可以在程序中直接使用他们。 2. QBColor颜色函数 QBColor颜色函数实际上是使用Quick Basic语言所提供的16种颜色，其格式为： QBColor(编码) 其中： 编码的值为0～15之间的整数，每个编码代表一种颜色: 3．RGB颜色函数 RGB颜色函数通过红、绿、蓝三基色混合生成某一种颜色，其格式为： RGB(红、绿、蓝) 其中： 红、绿、蓝每种颜色的取值为0～255之间 的整数。使用这种表示方式，可以产生256×256×256种颜色。 例如，RGB(255, 0, 0) 表示红色 RGB(255, 255, 255) 表示白色等。 上面介绍了设置颜色的三种方法，在程序中可以根据需要使用其中一种。 (2) BorderColor属性 指定线条的颜色 (3) BorderWidth属性 设置线条的宽度 (4) x1，x2，y1，y2属性 指定线条起点和终点的x坐标和Y坐标。可通过改变x1，x2，y1，y2的值来改变线段的起止位置。 4．ToolBar控件的事件过程 ToolBar控件的常用事件是ButtonClick事件，当用户单击工具栏内的任何一个按钮时都会产生ButtonClick事件。 在窗体界面上，双击工具栏，即可打开代码编辑器窗口，出现如下程序代码框架： Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) … ‘在此添加对每一按钮进行处理的代码 End Sub 10.6.2 键盘 VB中，能接受键盘输入的控件都能识别三种键盘事件： KeyPress事件：用户按下并且释放一个会产生ASCII码的键时被触发。 KeyDown事件：用户按下键盘上任意一个键时被触发。 KeyUp事件：用户释放键盘上任意一个键时被触发。 1．KeyPress事件 KeyPress事件只能识别产生ASCII码的按键，包括数字和标点符号、大小写字母、Enter、Esc、Tab、Backspace等键。 KeyPress事件的语法如下： Private Sub Form_KeyPress(KeyAscii As Integer) Private Sub object_ KeyPress([Index As Integer, ]KeyAscii As Integer) 其中：参数KeyAscii返回按键的ASCII码值，参数Index用来标识一个在控件数组中的控件。 2．KeyDown和KeyUp事件 这两个事件用于处理不被KeyPress事件识别的按键。在具有焦点的对象上按下键盘上的键时，KeyDown事件发生；释放所按的键时，KeyUp事件发生。 KeyDown和KeyUp事件的语法如下： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Intege