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控件，而不是在代码中声明它。

visual basic 6类图像

3 个答案: