class - Visual Basic 6 クラス イメージ

Question

プログラムを実行するとエラーが発生します。画像を別の画像に変更したいのですが、画像が変わりません。調べるのを手伝ってください。

これは私のコードです:

Public Image1Color As String
Public Image1 As Image

Public Sub CheckIn()
If Image1Color = "Green" Then
    Image1.Picture = LoadPicture("Color\red1.jpg")
    Image1Color = "Red"
Else
    MsgBox ("This table is already occupied!")
End If
End Sub

Answer 1

これを試してみてください：

Set Image1.Picture = LoadPicture("Color\red1.jpg")

（注意してくださいSet）

Answer 2

使用できますstdpicture

Dim pic As New StdPicture
Set pic = LoadPicture("")
Set Me.Picture = pic

次のようなコードで：

Public Image1Color As String
Public Image1 As New StdPicture



Public Sub CheckIn()
If Image1Color = "Green" Then
   Set Image1 = LoadPicture("Color\red1.jpg")
    Image1Color = "Red"
Else
    MsgBox ("This table is already occupied!")
End If
End Sub

Answer 3

Image1Color = "Green"コードのどこかで初期化する必要があります。

Image1Color を初期化しない場合、空の文字列になり、常にElseステートメントの一部に移動します

[編集]

エラーメッセージに関するコメントを読みました。

コードで宣言する代わりに、イメージ コントロールをフォームに追加し、そのイメージ コントロールを使用する方が簡単です。