Visual Basic程序设计教程(下)ppt164.ppt

Visual Basic程序设计教程(下) 目录 第9章 图形操作 9.1.1 默认坐标系统 9.1.2 用户自定义坐标系统 9.2.1 CurrentX、CurrentY属性 9.2.2 线宽与线型 9.2.3 图形的填充 9.2.4 AutoRedraw属性 9.2.5 图形颜色 9.2.5 图形颜色 9.3.1 图片框（PictureBox）控件 9.3.1 图片框（PictureBox）控件 9.3.1 图片框（PictureBox）控件 9.3.2 图像框（Image）控件 9.3.2 图像框（Image）控件 9.3.3 形状控件Shape 9.3.3 形状控件Shape 9.3.4 直线控件Line 9.4.1 Pset方法 9.4.2 Line方法 9.4.3 Circle方法 9.4.3 Circle方法 9.4.3 Circle方法 9.4.3 Circle方法 9.4.3 Circle方法 9.4.3 Circle方法 　　步骤4 具体代码如下： Private Sub Timer1_Timer() For i = 0 To 4 Shape1(i).Visible = False Label1.Visible = False Next i End Sub Private Sub Timer2_Timer() For j = 0 To 4 Shape1(j).Visible = True Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label1.Visible = True Next j End Sub 思考 第10章 键盘与鼠标事件 10.1.1 鼠标事件过程 10.1.1 鼠标事件过程 10.1.1 鼠标事件过程 10.1.1 鼠标事件过程 10.1.1 鼠标事件过程 Private Sub Form_MouseMove(Button As Integer, Shift As Integer,_ X As Single, Y As Single) If PaintNow Then PSet (X, Y) End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X_ As Single, Y As Single) Print 鼠标松开了 PaintNow = False End Sub 10.1.2 拖放 10.1.2 拖放 10.1.2 拖放 10.1.2 拖放 10.1.2 拖放 10.1.3 OLE拖放 　　鼠标事件过程可用来处理与鼠标指针的移动和位置有关的操作 10.2.1 KeyPress事件 10.2.1 KeyPress事件 10.2.1 KeyPress事件 10.2.1 KeyPress事件 10.2.1 KeyPress事件 10.2.1 KeyPress事件 10.2.1 KeyPress事件 10.2.1 KeyPress事件 10.2.2 KeyDown事件 10.2.2 KeyDown事件 10.2.2 KeyDown事件 10.2.2 KeyDown事件 10.2.3 KeyUp事件 10.2.3 KeyUp事件 10.2.3 KeyUp事件 10.2.3 KeyUp事件 思考 1.常用的鼠标事件有哪些？如何应用？ 2.键盘事件中KeyPress和KeyDown有什么区别？ 第11章 文件 　　VB提供了3个文件系统控件用于文件搜索，分别是DriveListBox(驱动器列表框)、DirListBox(目录列表框)和FileListBox（文件列表框）。这3个控件是VB的内部控件，总是出现在工具箱中。 　　DriveListBox(驱动器列表框)是一个下拉式列表框，其用途是搜索驱动器。平时只显示一个驱动器（默认情况下，显示的是当前驱动器的名称）。用户可以从列表中选定某个驱动器。 　　驱动器列表框最重要的属性是Drive，该属性用来在运行时设置或返回所选择的驱动器，但在设计时不可用。例如，将Drive1.Drive = D添加到窗体的Load事件中，则程序启动后驱动器中显示的是指定的驱动器D，而不是当前驱动器. 　　另外，值得注意的是，以上操作只能显示驱动器，并不能自动地变更当前的工作驱动器。若改变当前驱动器，需要使用以下代码： ChDrive C:\ ’将C盘设置为当前工作驱动器 ChDrive Drive1.Drive ’将驱动器列表框所选盘设置为当前工作驱动器 11.2.2 DirListBox 　　DirListBox