快上网专注成都网站设计 成都网站制作 成都网站建设
成都网站建设公司服务热线:028-86922220

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

vb.net让图片消失的简单介绍

怎么设置VB清除按钮,清除PictureBox里的图片

可在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

Private Sub Command1_Click()

Picture1.Picture = LoadPicture("")

End Sub

Private Sub Command2_Click()

Picture1.Picture = LoadPicture("e:\IMG_0361.jpg")

End Sub

让图像框中的图片消失怎样编写命令按钮在vb中

在VB中可使用 LoadPicture 函数将图片加载到窗体的 PictureBox

控件并从控件上清除掉该图片。

Private Sub Command1_Click()

Picture1.Picture = LoadPicture()   '清除 picturebox。

End Sub

LoadPicture 函数,将图形载入到窗体的 Picture 属性、PictureBox 控件或 Image 控件。

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("PAPER.CUR", 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.net让图片消失的简单介绍
文章URL:http://6mz.cn/article/hodioj.html

其他资讯