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您的语句的一部分

[编辑]

我刚刚阅读了您对错误消息的评论。

将 Image 控件添加到表单并使用该 Image 控件比在代码中声明它更容易。