10.1.2多媒体控件.ppt

（1）新建目录。e:\vb\program\ex10_4。 （2）新建工程。 窗体属性：Caption=“秒表程序”，Name=Form_ex104。 （3）编写事件过程代码 Dim arlph As Single Const pi = 3.1415926 Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 1000 Picture1.Scale (-2, 2)-(2, -2) 10.2.3绘图控件 Line1.X1 = 0 : Line1.Y1 = 0 Line1.X2 = 0 : Line1.Y2 = 0 arlph = pi / 2 设置起始角90度图10.6 秒表程序设计 End Sub Private Sub Command1_Click() Line1.X2 = 0 : Line1.Y2 = 1 arlph = pi / 2 Timer1.Enabled = True End Sub 10.2.3绘图控件 Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Command3_Click() End End Sub Private Sub Timer1_Timer() arlph = arlph - 360 / 60 * pi / 180 Line1.X2 = 1.2 * Cos(arlph) Line1.Y2 = 1.2 * Sin(arlph) End Sub 10.2.3绘图控件 （4）保存工程与窗体文件。工程名为ex10_4.vbp。窗体文件名称为Form_ex104.frm。 10.2.3绘图控件 除了图形控件之外，Visual Basic还提供了创建图形的一些方法。表10.10中的这些图形方法，适用于窗体和图片框。 10.2.4 绘图方法 画圆、椭圆或者圆弧 Circle 画点 Pset 画线、矩形或者填充框 Line 清除所有图形和Print输出 Cls 描述 方法 描述 方法 1.画点方法Pset 画点就是将对象点设置为指定的颜色值。 画点方法的一般形式如下： （1）格式：Object. Pset [Step] (x,y) ,[Color] 说明： Object ：绘图板容器名，在当前对象上画图时可省略。 Step：指相对于 CurrentX 和 CurrentY 属性提供当前图形位置的坐标。 10.2.4 绘图方法 x、y：这两个参数为必需的，分别是绘制点在容器坐标中的水平坐标值和垂直坐标值，类型为单精度浮点数。 Color：用于指定绘制点的色彩。如果它被省略，则使用当前ForeColor属性值。 （2）DrawWidth属性：画点的宽度。 缺省时值为1，Pset就将一个像素的点设置为指定的颜色。当DrawWidth属性大于1时，点的尺寸就变大，其中心位于指定坐标。 10.2.4 绘图方法 【例10.5】画彩色点程序，程序界面如图10.7所示。 （1）在窗体内放置一个图片框控件； （2）程序执行后向图片框中填充90000个彩色点； （3）点的位置与颜色随机生成，给人一种如同“天女散花”的感觉。 10.2.4 绘图方法 图10.7 画彩色点程序 Checkbox1 Name Checkbox 文件长度 Caption Label6 Picture1 Name PictureBox 文件路径 Caption Label5 200 UpdataInterval 输入文件类型 Caption Label4 Mci1 Name MMControl1 选择文件 Caption Label3 空 Text Text4 选择路径 Caption Label2 空 Text Text3 选择驱动器 Caption Label1 空 Text Text2 File1 Name FileListBox 空 Text Text1 Dir1 Name DirListBox 当前位置 Caption Label7 Drive1 Name DriveListBox 属性值 属性 控件名称 属性值 属性 控件名称 10.1.4 设计媒体播放器 （4）编写下列要求事件过程 ①设置窗体大小 Private Sub Form_Load() Height = 7500 Width = 10260 Top = 0 Left