商店表單圖像元素在一個數組中

我需要一些幫助，將圖像表單元素存儲在數組中。我曾嘗試使用對象/變，我已經用完了邏輯選項嘗試商店表單圖像元素在一個數組中

正如你可以看到下面的圖片的名稱是I_Monday，I_Tuesday等

當前代碼：

Dim I_Day(0 To 4) As Image 
I_Day(0) = I_Monday 
I_Day(1) = I_Tuesday 
I_Day(2) = I_Wednesday 
I_Day(3) = I_Thursday 
I_Day(4) = I_Friday

在for循環中訪問的元素。

For i = 0 To 4 
    If sht.Cells(nameRow, weekNum + i).Value = "Pass" Then 
    I_Day(i).BackColor = RGB(0, 255, 0) 
    ElseIf sht.Cells(nameRow, weekNum + i).Value = "Fail" Then 
    I_Day(i).BackColor = RGB(255, 0, 0) 
    Else 
    I_Day(i).BackColor = RGB(0, 0, 255) 
    End If 
Next i

感謝您的任何幫助。

編輯：分配時，他們對象變量或與塊未設置

來源

2016-03-10 user45706

因爲它們是對象，你需要使用Set：

Dim I_Day(0 To 4) As Image 
Set I_Day(0) = I_Monday 
Set I_Day(1) = I_Tuesday 
Set I_Day(2) = I_Wednesday 
Set I_Day(3) = I_Thursday 
Set I_Day(4) = I_Friday

也許應該提到的錯誤消息：運行時錯誤91

來源

2016-03-10 09:11:56 Rory

謝謝！有時我忘了最簡單的東西.. – user45706

有點偏離主題，但不正確的格式是'IPicture'而不是'Ìmage'嗎？ –

如果您要存儲圖像**控件**，而不是它包含的圖片，則不適用。 – Rory

商店表單圖像元素在一個數組中

回答

相關問題