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

Question

如题所述

Answer 1

在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

Answer 2

typedef void(*func)(void);
typedef struct hand
{
char *pname;
func handler;
}HAND_TO;

Answer 3

Private Sub Command1_Click()
Picture1.Picture = Nothing
End Sub本回答被提问者采纳