林卓然VB教程课件绘图菜单第10章教案.ppt

第
10
章







1.框架的用途
作为容器放置其他控件对象，将这些控件对象分成可标识的控件组；框架内的所有控件将随框架一起移动、显示和消失。
(框架示例：“幻灯片放映”→“设置放映方式”对话框)

例10.1控制文本的字体、字号及颜色
在窗体上设置3个框架Frame1、Frame2和Frame3
(2)编写程序代码PrivateSubCommand1_Click()‘“确定"按钮单击事件
IfOption1.ValueThen
Text1.FontName="宋体"
Else
Text1.FontName="幼圆"
EndIf
IfOption3.ValueThen
Text1.FontSize=16
Else
Text1.FontSize=20
EndIf
IfOption5.ValueThen
Text1.ForeColor=RGB(0,0,255)
Else
Text1.ForeColor=RGB(255,0,0)
EndIf
EndSub10.2滚动条3.事件
滚动条控件可以识别10个事件，其中最常用的是Scroll和Change事件
(1)Scroll事件：当用鼠标拖动滚动块时，即触发Scroll事件
(2)Change事件：当改变Value属性值时，即触发Change事件
当释放滚动块、单击滚动条内空白处或滚动箭头时，Change事件就会发生。例10.2设计一个调色板应用程序说明：根据调色原理，基本颜色有红、绿、蓝三种，选择这三种颜色的不同比例，可以合成所需要的任意颜色

(1)创建应用程序的用户界面和设置对象属性
三个水平滚动条名称从上至下分别为HScroll1、HScroll2、HScroll3
其Max属性均设置为255，Min属性均设置为0，
SmallChange属性设置为1，LargeChange属性设置为10，Value设置为0。
显示合成颜色的标签名为Label1(2)编写程序代码
功能要求：通过操作(单击或拖动)滚动条，直接修改RGB设置，从而得到标签背景所需的颜色
PrivateSubHScroll1_Change()
Label1.BackColor=RGB(HScroll1.Value,_
HScroll2.Value,HScroll3.Value)
EndSub
PrivateSubHScroll2_Change()
Label1.BackColor=RGB(HScroll1.Value,_
HScroll2.Value,HScroll3.Value)
EndSub
PrivateSubHScroll3_Change()
Label1.BackColor=RGB(HScroll1.Value,_
HScroll2.Value,HScroll3.Value)
EndSub4种图形控件：PictureBox控件、Image控件、Shape控件和Line控件；图形方法

10.3.1坐标系
每个对象都定位于存放它的容器内
每个容器都有一个坐标系，它包括坐标原点，x坐标轴和y坐标轴，默认的坐标原点(0,0)在容器对象的左上角
默认单位为Twip(缇)，还可以使用磅、像素、厘米等单位使用Pset(画点)、Line(画线)、Circle(画圆)等图形方法，可以在窗体和图片框上绘制简单的图形
1.Pset(画点)方法
格式：[对象名.]Pset[Step](x,y)[,颜色]
功能：在对象的指定位置(x,y)上按选定的颜色画点
示例：下列语句能在坐标位置(500，900)处画一个红点：
Pset(500,900)，RGB(255,0,0)
2.Line(画线)方法
格式：[对象名.]Line[(x1,y1)]-(x2,y2)[,颜色]
功能：在两个坐标点之间画一条线段。
例如，下列语句可在窗体上画一条斜线
Line(600,600)-(2000,3000)
3.Circle(画圆)方法
格式：[对象名.]Circle[Step](x,y)，半径[，颜色，起点，终点，纵横比]
功能：在对象上画圆、椭圆或圆弧图片框(PictureBox)和图像框(Image)都是用于显示图形。图片框可以作为其他控件的容器。
示例
PrivateSubForm_Load()
Show
Picture1.Print"在图片框内写字和画圆"
Picture1.Circle(1200,1000),600,RGB(0,0,255)
Picture1.PSet(1200,1000),RGB(255,0,0)
EndSub10.3.4图像框(Image)窗体和大多数控件都能响应键盘和鼠标事件

10.4.1键盘事件
有三种事件处理键盘操作
1.KeyPress事件
2