PictureBox控件应用实例.doc

PictureBox控件应用方案知识讲解1功能PictureBox控件提供了更多的功能和绘图的方法。可以利用PictureBox控件提供的方法在其上面绘制图形，还可以把PictureBox控件作为容器，将其他控件放在其中，从而实现分组的效果。2属性PictureBox控件的常用属性如表1所示。表1 PictureBox控件的属性编号属性描述1Appearance返回或设置MDIForm或Form对象上的控件在设计时的绘图风格。在运行时是只读的。2BackColor返回或设置对象的背景颜色3ForeColor返回或设置在对象里显示图片和文本的前景颜色4DataChanged返回或设置一个值，它指出被绑定的控件中的数据已被某进程改变，这个进程不是从当前记录中检索数据的进程。该在设计时不可用5DataField返回或设置数据使用者将被绑定到的字段名6DataFormat设置或返回StdDataFormat对象，一个绑定对象将附加到它。在设计时或运行时都可读写7DataMember从数据供应程序提供的几个数据成员中返回或设置一个特定的数据成员8DragIcon返回或设置图标，它将在拖放操作中作为指针显示9DragMode回或设置一个值，确定在拖放操作中所用的是手动还是自动拖动方式10Enabled返回或设置一个值，该值用来确定一个窗体或控件是否能够对用户产生的事件作出反应11Font返回一个Font对象12FontBold按Bold格式设置字体样式13FontItalic按Italic格式设置返回或设置字体样式14FontStrikethru按Strikethru格式返回或设置字体样式15FontUnderline按Underline格式返回或设置字体样式16FontName返回或设置在控件中或在运行时画图或打印操作中，显示文本所用的字体17FontSize返回或设置在控件中或在运行时画图或打印操作中，显示文本所用的字体的大小18Height、Width返回或设置对象的维数、或DataGrid控件Columns 对象的宽度19HelpContextID为一个对象返回或设置一个相关联上下文的编号。它被用来为应用程序提供上下文有关的帮助20hWnd返回窗体或控件的句柄。21Index返回或设置唯一标识控件数组中某一控件的数。只有当控件是控件数组的一部分时，才可用该属性22Left返回或设置对象内部的左边与它的容器的左边之间的距离23Top返回或设置对象的内顶部和它的容器的顶边之间的距离24MouseIcon返回或设置自定义的鼠标图标25MousePointer返回或设置一个值，该值指示在运行时当鼠标移动到对象的一个特定部分时，被显示的鼠标指针的类型26Name返回在代码中用于标识控件、或数据访问对象的名字。在运行时是只读的27OLEDropMode返回或设置目标部件如何处理放操作28Parent返回包含控件、或其它对象或者集合的窗体、对象、或集合29RightToLeft返回布尔值，它指示双向系统上的文本显示方向和控件可见的外观30ScaleHeight当使用图形方法或调整控件位置时，返回或设置对象内部的垂直(ScaleHeight)度量单位31ScaleWidth当使用图形方法或调整控件位置时，返回或设置对象内部的水平(ScaleWidth)度量单位32ScaleLeft当使用图形方法或调整控件位置时，返回或设置一个对象左边(ScaleLeft)的坐标33ScaleTop当使用图形方法或调整控件位置时，返回或设置一个对象上边垂直(ScaleTop)的坐标34ScaleMode当使用图形方法或调整控件位置时，返回或设置一个值，该值指示对象坐标的度量单位35TabIndex返回或设置父窗体中大部分对象的Tab键次序36TabStop返回或设置一个值，该值用来指示是否能够使用Tab键来将焦点从一个对象移动到另一个对象37Tag返回或设置一个表达式用来存储程序中需要的额外数据。与其它属性不同，Tag属性值不被VB使用；可以用该属性来标识对象38ToolTipText返回或设置一个工具提示39Visible返回或设置一指示对象为可见或隐藏的值40WhatsThisHelpID返回或设置一个与对象关联的上下文编号。用以为应用程序提供使用Windows 95 Help中的“这是什么”弹出式窗口的上下文敏感的Help41Align返回或设置一个值，确定对象是否可在窗体上以任意大小、在任意位置上显示，或是显示在窗体的顶端、底端、左边或右边，而且自动改变大小以适合窗体的宽度42AutoRedraw返回或设置从图形方法到持久图形的输出43AutoSize返回或设置一个值，以决定控件是否自动改变大小以显示其全部内容44BorderStyle返回或设置对象的边框样式。对Form对象和Textbox控件在运行时是只读的45ClipControls返回或设置一个值，决定Paint事件中的图形方法是重绘整个对象，还是只绘刚刚露出的区域。它还决定MicrosoftWindows运行环境是否创建一个不包括该对象的非图形控件的剪裁区。在运行时为只读46Container返回或设置Form上控件的容器。在设计时不能使用47CurrentX返回或设置下一次打印或绘图方法的水平(CurrentX)坐标。设计时不可用48CurrentY返回或设置下一次打印或绘图方法的垂直(CurrentY)坐标。设计时不可用49DataSource返回或设置一个数据源，通过该数据源，数据使用者被绑定到一个数据库50DrawStyle返回或设置一个值，以决定图形方法输出的线型的样式51DrawWidth返回或设置图形方法输出的线宽52FillColor返回或设置用于填充形状的颜色：FillColor也可以用来填充由Circle和Line图形方法生成的圆和方框53FillStyle返回或设置用来填充Shape控件、以及由Circle和Line图形方法生成的圆和方框的模式54FontTransparent返回或设置一个值，该值用来决定PictureBox控件上的背景文本和图形被显示在字符周围的空区55hDC返回一个句柄，该句柄是由Microsoft Windows运行环境提供给一个对象的设备描述体56HasDC返回或设置一个值，以决定唯一显示上下文（或hDC）是否被分配给控件57Image返回持久图形的句柄，该句柄由Microsoft Windows运行环境提供58IMEMode该属性返回或者设置的数值用来确定被选定的对象的IME（Input Method Editor，输入方法编辑器）状态59LinkItem DDE与另一个应用程序会话时，返回或设置传给接收端的数据60LinkMode返回或设置用于DDE会话的链接类型并同时激活下面的连接：允许Visual Basic窗体上的接收端控件启动会话，它由控件的LinkTopic和LinkItem属性确定。61LinkTimeout返回或设置等待DDE响应消息的时间62LinkTopic返回或设置发送端应用程序和主题（使用于该应用程序中的基本数据的分组）。为了指定完整的数据链，应当与LinkItem属性一起使用LinkTopic63Negotiate设置一个值，当窗体上活动对象显示一个或多个工具栏时，决定是否显示一个可以对齐的控件。运行时无效64OLEDragMode返回或设置是由部件还是由程序员来处理OLE拖放操作65Picture返回或设置控件中要显示的图片。对于OLE容器控件，在设计时不可用在运行时为只读下面对PictrueBox控件比较重要的属性进行详细介绍。（1）AutoSize属性AutoSize属性用于返回或设置一个值，以决定PictrueBox控件是否自动改变大小以显示其全部内容。语法：object.AutoSize = boolean图1所示演示的是PictureBox控件的AutoSize属性。当AutoSize属性设置为True时，PictureBox控件的大小随图片的大小改变；当AutoSize属性设置为False时，PictureBox控件不随图片大小改变。图1 AutoSize属性演示（2）Picture属性Picture属性是PictureBox控件最重要的属性之一。在PictureBox控件中显示图片是由Picture属性决定的，有两种方法可以实现图片的添加。l在设计时加载在“属性”窗口中找到Picture属性，单击其右边的按钮，打开文件对话框，选择要添加的图片。l在运行时加载在运行时可以通过LoadPicture函数来设置Picture属性，也可以将其他控件的Picture值赋给PictureBox控件的Picture属性。语法：object.Picture = pictureobject：对象表达式。picture：字符串表达式，指定一个包含图片的文件，可以设置为bitmap、icon、metafile、GIF、JPEG型的图片。利用下面的代码向PictureBox控件中添加图片：Picture1.Picture = LoadPicture(D:图片素材明日企标.jpg )应用一：保存Picture控件中的图形要保存Picture控件中的图形，可以使用SavePicture语句，其可以从对象或控件（如果有一个与其相关）的Picture或Image属性中将图形保存到文件中。语法如下：SavePicture picture, stringexpression参数说明：picture：产生图形文件的PictureBox控件或Image控件。 stringexpression：要保存的图形文件名。 无论在设计时还是运行时图形从文件加载到对象的Picture属性，而且它是位图、图标、元文件或增强元文件，则图形将以原始文件同样的格式保存。如果它是GIF或JPEG文件，则将保存为位图文件。代码如下：SavePicture Picture1.Image, c:01.bmp应用二：Picture控件设置图形或清除图形PictureBox控件可以显示来自位图、图标或者元文件，以及来自增强的元文件、JPEG或GIF文件的图形。下面是为Picture控件设置图形或清除图形的几个小技巧。1、使用代码为控件设置图形。如果已知路径和图片名，可使用如下代码：Picture1.Picture = LoadPicture(c:01.bmp)如果在应用程序目录下（非根目录），且知道图片名，可使用如下代码：Picture1.Picture = LoadPicture(app.path & 01.bmp)如果在应用程序目录下（根目录），且知道图片名，可使用如下代码：Picture1.Picture = LoadPicture(app.path & 01.bmp)如果不知道目录和图片名，需要用户选择，则须和CommonDialog控件配合，代码如下：CommonDialog1.Filter = *.bmp|*.jpg|*.gifCommonDialog1.ShowOpenPicture1.Picture = LoadPicture(CommonDialog1.FileName)2、清除PictureBox控件的图形。下面使用代码清除图片：Picture1.Picture = LoadPicture()也可以手工清除，把鼠标移到Picture控件的Picture属性值输入处，按键盘上的“Del”键。应用三：PictureBox显示动态运行进度要实现利用PictureBox控件显示动态运行进度，可通过利用PictureBox控件绘制并填充矩形来实现。随着执行进度的不断变化，绘制矩形的宽度也跟着不断的变化，这时用指定的颜色填充由Line函数绘制成的矩形。最终效果如图2所示。图2 利用PictureBox控件实现进度条功能程序代码如下： Form1 单击开始按钮，用PictureBox显示动态运行进度Private Sub Command1_Click() 开始执行 Dim i As Integer Dim t As Long Dim per As String Dim cx, cy As Single For i = 0 To Picture1.ScaleWidth Picture1.DrawMode = vbCopyPen Picture1.Line (0, 0)-(Picture1.ScaleWidth, Picture1.ScaleHeight), QBColor(7), BF per = Format(i / Picture1.ScaleWidth, 0.00%) cx = (Picture1.ScaleWidth - Picture1.TextWidth(per) / 2 cy = (Picture1.ScaleHeight - Picture1.TextHeight(per) / 2 Picture1.CurrentX = cx Picture1.CurrentY = cy Picture1.Print per Picture1.DrawMode = vbXorPen Picture1.Line (0, 0)-(i, Picture1.ScaleHeight), QBColor(11), BF For t = 0 To 5000 DoEvents Next t Next i MsgBox 完成!, , 明日图书End SubPrivate Sub Command2_Click() 退出 EndEnd Sub窗体启动并进行初始化Private Sub Form_Load() Picture1.ForeColor = vbBlack Picture1.DrawStyle = vbSolid Picture1.FontSize = 14End Sub应用四：Picture控件在警区分布图中的应用Picture控件可以显示来自位图、图标以及来自增强的元文件、JPEG或GIF文件的图形。如果控件不足以显示整幅图像，则裁剪图像以适应控件的大小。PictureBox控件还可以作为容器，将其他控件放在它里面使用。Picture控件还是一个数据绑定控件，在开发程序过程中，可以通过数据绑定的方法显示数据库中的图片。另外，Picture控件的LoadPicture方法也可以显示数据库中的图片。在下面的警区分布图中，灵活运用了Picture控件的以上特点，实现了查看数据库中各警区分布图的功能，其中使用Shape控件标记各警区的位置，如图3所示。图3 Picture控件在长春市警区分布图中的应用设计思路如下：使用Picture控件的LoadPicture方法浏览数据中的区域图。根据不同的区域和数据库中存储的各区域内警区的位置，动态加载并显示各警区标记。警区标记由Shape控件完成，动态加载警区标记主要通过Load方法动态加载Shape控件实现。其中，位置由数据库中存储的警区的位置和所在区域决定。程序完整代码如下：Dim Rs As New ADODB.RecordsetDim Cn As New ADODB.ConnectionDim i As Integer启动窗体连接数据库并进行初始化Private Sub Form_Load() Cn.Open DRIVER=Microsoft Access Driver (*.mdb);DBQ= & App.Path & bjgl.mdb Rs.Open select 所属区域 from 警区表 group by 所属区域, Cn, adOpenKeyset, adLockOptimistic If Rs.RecordCount 0 Then Do While Rs.EOF = False Combo2.AddItem Rs.Fields(所属区域) Rs.MoveNext Loop End If Rs.Close i = 1End Sub单击ComboBox控件1的项目并初始化Private Sub Combo1_Click() Rs.Open select * from 警区表 where 名称= + Combo1.Text + , Cn, adOpenKeyset, adLockOptimistic If Rs.RecordCount 0 Then Text1.Text = Rs.Fields(地址) Text2.Text = Rs.Fields(电话) Text3.Text = Rs.Fields(位置1) & , & Rs.Fields(位置2) For i = 1 To Shape1.Count - 1 If Shape1(i).Left = Rs.Fields(位置1) And Shape1(i).Top = Rs.Fields(位置2) And Shape1(i).Visible = True Then Timer1.Enabled = True Exit For Else Shape1(i).BackColor = &HFF& Timer1.Enabled = False End If Next i End If Rs.CloseEnd Sub单击ComboBox控件2的项目并初始化Private Sub Combo2_Click() Label4.Caption = Combo2.Text & 警务区 Combo1.Clear Rs.Open select * from 警区表 where 所属区域= + Combo2.Text + order by 编号, Cn, adOpenKeyset, adLockOptimistic If Rs.RecordCount 0 Then Rs.MoveFirst Do While Rs.EOF = False Combo1.AddItem Rs.Fields(名称) Rs.MoveNext Loop End If Rs.Close If Shape1.Count 1 Then For Index = 1 To Shape1.Count - 1 Shape1(Index).Visible = False Next Index End If Rs.Open select 所属区域,图,位置1,位置2 from 警区表 where 所属区域= + Combo2.Text + group by 所属区域,图,位置1,位置2 , Cn, adOpenKeyset, adLockOptimistic If Rs.RecordCount 0 Then Picture1.Picture = LoadPicture(App.Path & Rs.Fields(图) Do While Rs.EOF = False i = Shape1.ubound + 1 Load Shape1(i) Shape1(i).Left = Rs.Fields(位置1) Shape1(i).Top = Rs.Fields(位置2) Shape1(i).Visible = True Rs.MoveNext Loop End If Rs.CloseEnd SubPrivate Sub Timer1_Timer() If Shape1(i).BackColor = &HFF& Then Shape1(i).BackColor = &HFF00& Else Shape1(i).BackColor = &HFF& End IfEnd Sub单击退出按钮，退出程序Private Sub Command1_Click() If Shape1.Count 1 Then For i = 1 To Shape1.Count - 1 Shape1(i).Visible = False Next i End If Unload MeEnd Sub应用五：利用PictureBox控件浏览大幅图片一些大幅BMP图片在有限的区域中很难全部显示，运用水平滚动轴控件HScrollBar和垂直滚动轴控件VScrollBar并配合PictureBox控件就可以实现浏览大幅图片。运行程序，首先选择要浏览的BMP图片所在的路径，窗体右侧的列表框中将显示此路径下的所有BMP文件，如图4所示。在图片文件列表中用鼠标双击要浏览的BMP文件的名称即可进入“浏览大幅BMP图片-浏览”窗口，在该窗口中拖动滚动条即可看到BMP图片的其他部分；单击“上一张”或“下一张”按钮可以浏览此路径下的其他的BMP图片，效果如图5所示。图4 运行结果若文件列表中的文件很多，可在“图片检索”文本框中输入图片文件名称的关键字，系统将自动执行模糊查询，并将查询结果显示在图片文件列表中。如图5所示。图5 浏览大幅BMP图片完整主要程序代码：（1）Form1窗体完整代码：启动窗体并进行初始化Private Sub Form_Load() Dir1.Path = App.Path Drive1.Drive = Dir1.Path File1.Pattern = *.bmp 设置文件列表框显示文件格式End SubPrivate Sub Dir1_Change() 选择文件夹 File1.Path = Dir1.Path If File1.ListCount 0 Then Label2.Caption = 共 & File1.ListCount & 个文件 获取bmp图片个数 File1.Pattern = Text1.Text Else form2.Pview.Picture = LoadPicture() Label2.Caption = End IfEnd SubPrivate Sub Drive1_Change() 选择驱动器 Dir1.Path = Drive1.DriveEnd Sub单击图片名称，在窗体2中显示图片Private Sub File1_DblClick() Load form2 form2.Show Form1.Enabled = False form2.Label1.Caption = Label2.Caption & & 第 & File1.ListIndex + 1 & 个文件 Dim sfilename As String Dim l As Long Dim dwidth As Long, dheight As Long If File1.ListCount = 0 Then 文件列表框如果没有图片，取消操作 Exit Sub End If If Right(File1.Path, 1) Then 判断选定文件 sfilename = File1.Path & & File1.FileName Else sfilename = File1.Path & File1.FileName End If form2.Pscroll.Picture = LoadPicture() form2.Pscroll.Picture = LoadPicture(sfilename) 导入选定图片显示 If form2.Pscroll.Width form2.Pview.ScaleWidth Then 判断是否给图片加水平滚动条 form2.Pscroll.Left = (form2.Pview.ScaleWidth - form2.Pscroll.Width) 2 form2.HScpic.Visible = False Else form2.Pscroll.Left = 0 form2.HScpic.Visible = True form2.HScpic.Value = 0 On Error Resume Next form2.HScpic.Max = form2.Pscroll.Width - form2.Pview.ScaleWidth form2.HScpic.SmallChange = form2.Pscroll.Width 20 form2.HScpic.LargeChange = form2.Pscroll.Width 10 End If If form2.Pscroll.Height 0 Then On Error Resume Next Form1.File1.ListIndex = Form1.File1.ListIndex - 1 Label1.Caption = Form1.Label2.Caption & & 第 & Form1.File1.ListIndex + 1 & 个文件 Dim sfilename As String Dim dwidth As Long, dheight As Long If Right(Form1.File1.Path, 1) Then 判断文件路径 sfilename = Form1.File1.Path & & Form1.File1.FileName Else sfilename = Form1.File1.Path & Form1.File1.FileName End If Pscroll.Picture = LoadPicture() On Error Resume Next Pscroll.Picture = LoadPicture(sfilename) 导入图片 If Pscroll.Width Pview.ScaleWidth Then 设置水平滚动条 Pscroll.Left = (Pview.ScaleWidth - Pscroll.Width) 2 HScpic.Visible = False Else Pscroll.Left = 0 HScpic.Visible = True HScpic.Value = 0 On Error Resume Next HScpic.Max = Pscroll.Width - Pview.ScaleWidth HScpic.SmallChange = Pscroll.Width 20 HScpic.LargeChange = Pscroll.Width 10 End If If Pscroll.Height Form1.File1.ListIndex + 1 Then On Error Resume Next Form1.File1.ListIndex = Form1.File1.ListIndex + 1 Label1.Caption = Form1.Label2.Caption & & 第 & Form1.File1.ListIndex + 1 & 个文件 Dim sfilename As String Dim dwidth As Long, dheight As Long If Right(Form1.File1.Path, 1) Then 判断图片路径 sfilename = Form1.File1.Path & & Form1.File1.FileName Else sfilename = Form1.File1.Path & Form1.File1.FileName End If Pscroll.Picture = LoadPicture() On Error Resume Next Pscroll.Picture = LoadPicture(sfilename) If Pscroll.Width Pview.ScaleWidth Then 设置水平滚动条 Pscroll.Left = (Pview.ScaleWidth - Pscroll.Width) 2 HScpic.Visible = False Else Pscroll.Left = 0 HScpic.Visible = True HScpic.Value = 0 On Error Resume Next HScpic.Max = Pscroll.Width - Pview.ScaleWidth HScpic.SmallChange = Pscroll.Width 20 HScpic.LargeChange = Pscroll.Width 10 End If If Pscroll.Height Pview.Height Then 设置垂直滚动条 Pscroll.Top = (Pview.ScaleHeight - Pscroll.Height) 2 VScpic.Visible = True Else Pscroll.Top = 0 VScpic.Visible = True VScpic.Value = 0 VScpic.Max = Pscroll.Height - Pview.ScaleHeight VScpic.SmallChange = Pscroll.Height 20 VScpic.LargeChange = Pscroll.Height 10 End If Else Exit Sub End IfEnd SubPrivate Sub Command3_Click() 返回主窗体 Form1.Enabled = True Unload MeEnd Sub退出窗体Private Sub Form_Unload(Cancel As Integer) Form1.Enabled = TrueEnd Sub应用六：如何获得PictureBox控件中的颜色利用PictureBox控件的Point方法，可以获得PictureBox中任意一点的颜色。Point方法可以返回一个Long类型的值，它即为表示颜色的RGB值。为了这个值能够更有效的使用，可以通过下面的公式获得颜色的R、G、B分量：red = rgb Mod &H100green = (rgb &H100) Mod &H100blue = (rgb &H10000) Mod &H100最终效果如图6所示。图6 获得PictureBox控件中的颜色值程序代码如下： Form1 获得PictureBox控件中的颜色Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim color As Long Dim r As String, g As String, b As String color = Picture1.Point(X, Y) r = CStr(color Mod &H100) g = CStr(color &H100) Mod &H100) b = CStr(color &H10000) Mod &H100) Text1.Text = R & r & , G & g & , B & b Shape1.BackColor = colorEnd Sub应用七：用PictureBox控件实现马赛克效果在电视中经常可以看到马赛克效果。本实例介绍如何对图片进行马赛克效果处理。单击“网格”按钮，窗体中的图片将被一些网格所分割，呈现马赛克效果，如图所示。通过PictureBox控件的PaintPicture属性来实现在窗体的Picture控件中显示图片马赛克的效果。最终效果如图7所示。图7 图片马赛克效果程序代码如下： Form1 Private Declare Sub Sleep Lib kernel32 (ByVal dwMilliseconds As Long)Dim stepheight, i, j, countx, county As Long窗体启动加载图片并初始化Private Sub Form_Load() Picture1.Picture = LoadPicture(App.Path & QT221.jpg) Picture2.Width = Picture1.Width Picture2.Height = Picture1.Height countx = Picture1.ScaleHeight / 5 county = Picture1.ScaleWidth / 5 Picture2.Top = 20 Picture2.Left = (Me.Width - Picture2.Width) / 2End Sub单击网格按钮实现马赛克效果Private Sub Command3_Click() 网格 Picture1.Visible = False Set Picture2.Picture = Nothing For i = 0 To county - 1 Step 4 Picture2.PaintPictu