大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
1、先打开Visual basic6.0软件并新建一个工程并在图片中小框框处找到选项“Picture”。
成都创新互联公司专注于辽阳企业网站建设,自适应网站建设,成都商城网站开发。辽阳网站建设公司,为辽阳等地区提供建站服务。全流程专业公司,专业设计,全程项目跟踪,成都创新互联公司专业和态度为您提供的服务
2、再点击红色小框框里面有三个点的图标进入背景图片选择。
3、然后就会弹出背景图片选择窗口。
4、选择自己需要显示的图片后点击打开即可。
5、可以看到窗体里面出现了背景图片。
6、点击“启动”运行好的最后效果。由此设置完成。
可在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
方法一:
使用代码,执行代码如下:
Picture1.Picture = LoadPicture("")
或
picture1. cls
方法二:
选择图形框,在属性窗口中选择picture属性条,然后按Del键。