visual basic程序设计(第二版)第三章课件.ppt

当输入的圆半径为65时，运行结果 图片框控件（PictureBox）和图像框控件（Image）都可进行图形数据（包括位图、图标、图元文件、JPEG或GIF文件格式的图像）的输入输出，本节主要学习图片框控件，图像框控件将在第9章中介绍。 图片框可以作为其他控件的容器，像框架（Frame）一样，可以在图片框上放置其他控件，这些控件可随图片框的移动而移动。 ⒈ 图片框属性 除Name、Left、Top、Height、Width、Enabled、Visible、FontBold、FontItalic、FontName、FontSize、FontUnderline、AutoRedraw等通用属性外，还有Picture、AutoSize 、CurrentX和CurrentY 、Align等属性 3.3 图形数据输入输出控件 2. 图片框事件和方法 图片框控件与窗体一样，支持Click和DblClick等事件。支持图形方法和Print方法。图形方法有Circle（画圆）、Line（画直线）和Point（画点）等。 图形文件的装入 ⒈ 在设计阶段装入图形文件 2. 在运行期间装入图形文件 3.3 图形数据输入输出控件 设计步骤如下： ⑴ 建立应用程序用户界面与设置对象属性。 在窗体上添加2个图片框Picture1、Picture2，将Picture2的AutoSize属性设置为True，添加2个命令按钮Command1、Command2，其Caption属性分别为“装载”和“清除”。 ⑵ 编写程序代码。 例3-7 图片框的应用 Private Sub Command1_Click() Picture1.Print 在图片框中画圆 Picture1.Circle (800, 800), 500, RGB(0, 0, 255) 以(800,800)为圆心，500为半径，在Picture1中绘制一个蓝色边框的圆 Picture2.Picture = LoadPicture(App.Path + \p2.jpg) 也可以在Picture2的Picture属性中设置，App.Path表示图片文件和应用程序在同一个文件夹中，系统默认当前路径为C:\Program Files\ Microsoft Visual Studio\VB98，如果该图片不在此文件夹下，可通过修改路径实现 End Sub Private Sub Command2_Click() Picture1.Cls 清除Picture1中显示的文字 Picture2.Picture = LoadPicture() 删除图片 End Sub (1)在窗体上建立一个标签（Label1）和三个命令按钮(Command1、Command2和Command3) 三个命令按钮分别使用访问键Alt+C、Alt+H和Alt+D 应用举例 实现标签的显示和隐藏, 以及改变文字的颜色 示例3.8 (2)编写程序代码 Private Sub Form_Load() Randomize Label1.BackColor = QBColor(15) 背景色 Label1.ForeColor = QBColor(0) 文字颜色 Label1.FontSize = 18 字体大小 End Sub Private Sub Command1_Click() “改变文字颜色”按钮 Clr = Int(15 * Rnd) 产生随机颜色码 Label1.ForeColor = QBColor(Clr) End Sub Private Sub Command2_Click() “隐藏标签”按钮 Label1.Visible = False 隐藏