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類圖片

回答

相關問題