大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
可在VB的按钮事件中可对PictureBox图片框控件属性Picture赋值 LoadPicture(),清除装载在PictureBox图片框内的图片。
创新互联服务项目包括门源网站建设、门源网站制作、门源网页制作以及门源网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,门源网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到门源省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
LoadPicture 函数,将图形载入到窗体的 Picture 属性、PictureBox 控件或 Image 控件。
VB语言中LoadPicture函数用法示例:
本例使用 LoadPicture 函数将图片加载到窗体的 PictureBox 控件并从控件上清除掉该图片。要试用此例,将 PictureBox 控件添加入 Form 对象,然后将以下代码粘贴到 Form
的声明部分,然后运行此例,单击 Form 。
Private Sub Form_Click()
Dim Msg As String ' 声明变量。
On Error Resume Next ' 设置错误句柄。
Height = 3990
Width = 4890 ' 设置高度和宽度。
Picture1.Picture = LoadPicture("C:\Windows\Web\Wallpaper\Windows\img0.jpg", vbLPCustom, vbLPColor, 32, 32)
If Err Then
Msg = "Couldn't find the .cur file."
MsgBox Msg ' 显示错误消息。
Exit Sub ' 如果发生错误则退出。
End If
Msg = "Choose OK to clear the bitmap from the form."
MsgBox Msg
Picture1.Picture = LoadPicture() '清除 picturebox。
End Sub
具体操作步骤如下:
一、打开VB软件,在窗体上面添加一个列表框,如下图所示。
二、单击列表框,在属性窗口中,设置列表框的属性和内容,如下图所示。
三、在窗体上面,添加一个命令按钮,如下图所示。
四、设置,一个命令按钮的属性,名称别为“清除”,如下图所示。
五、双击“清除”命令按钮,编辑其代码,如下图所示。
六、运行程序,验证结果。选择“政治”,点击“清除”命令按钮。
七、则列表框中“政治”项目消失。如下图所示。
双击button,在代码窗中写入下面这句话:
this.pictureBox1.Image = null
就可以实现你说的功能啦