ユーザーフォームの画像を消去するには？

Question

私はImageフィールドを使用するUserformを持っています。このフィールドには、2つの基準に基づいて画像が表示されます。 2つの新しい基準を入力するときに、このImageをUserformでクリアする方法がわかりません。

Answer 1

を介してユーザーフォームコントロール（例：Image1）を簡単に操作できます。下の例では、コマンドボタンをクリックしたときに、定義済みの画像の表示と空のコントロールの表示を切り替えることができます。 （空またはない）画像の状態を制御するためにあなたがIf Image1.Picture Is Nothing Thenを介して画像画像のプロパティを確認...ユーザーフォームモジュールで

コード例

Option Explicit 

Private Sub CommandButton1_Click() 
' Purpose: Change view between given image and no image 
Dim sImgName As String      ' picture name string 
sImgName = "C:\Temp\MyPicture.gif""  ' <<< choose your picture name" 
With Me.Image1 
    If .Picture Is Nothing Then    ' picture property has been cleared already 
    .Picture = LoadPicture(sImgName) 
    Else         ' a picture is already displayed 
    .Picture = LoadPicture(vbNullString) ' clear it now 
    End If 
End With 
End Sub