运行时错误＆＃39; 340＆＃39; vb 6.0，控制阵列元素＆＃39; 3＆＃39;不存在

Question

Dim nPicture As Integer
For n = 1 To 4
    If p_strInstrument(n, 0) = "A" Then
        nPicture = (n * 4) + 1
    Else
        nPicture = (n * 4) + 4
    End If
    'How Can i edit the line below?
    frm_Experiment.picInstrument(n).Picture = frm_Experiment.ImageListInstrument.ListImages(nPicture).Picture
Next n

p_blnInstReady = True
'Unload Me
frm_SearchInstrument.WindowState = vbMinimized
frm_SearchInstrument.Visible = False

Answer 1

您收到错误是因为您有一个名为picInstrument的控件数组，其中没有一个具有Index属性，其值为3.检查每个控件的Index属性在你的数组中，并确保它们从{1}}循环中的1到4。

最好从0开始，然后在For循环中从0开始到3。