visual basic 6类图片

当我运行我的程序时出现错误。我想将图像更改为其他图像，但图像不会更改。请帮我找出答案。visual basic 6类图片

这是我的代码：

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

来源

2012-07-16 Ignatius Nathan

至少指定你得到的确切错误。我最好的猜测是：你的路径不正确。 – RobIII 2012-07-16 16:56:55

@RobIII当我运行该程序时，出现错误消息...消息说对象变量或块变量未设置 – 2012-07-16 16:58:55

使用调试器或确保您没有使用“On error resume next”某处。除此之外：我们并不清楚。我们需要一个确切的错误信息来帮助你。 – RobIII 2012-07-16 17:00:39

试试这个：

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

（注意Set）

来源

2012-07-16 17:33:03 rskar

您可以使用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

来源

2012-07-16 18:02:39 F0G

您必须在您的代码的某处初始化Image1Color = "Green"。

如果你不初始化Image1Color那么这将是一个空字符串，并经常去你的发言

[编辑]

我刚刚看了你有关错误消息的评论的Else一部分。

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

来源

2014-12-17 10:14:02 Hrqls

visual basic 6类图片

回答

相关问题