从品牌网站建设到网络营销策划,从策略到执行的一站式服务
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键。
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图