LoadPicture函数用法示例

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

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