為啥莫 ff 會一值增加
呼叫第一次時假如為 10 第二次就會變 20
Dim ff
      ff = 0
      ff = (UBound(Extend_String) + 1)
      ff = ff - 2
      For vl = 1 To ff
      GTALK_Index = 0
Set imx = Form4.ListView2.ListItems.Add(, , Extend_String(vl))
       
         '建立 Form4.ListView1(index) 控制陣列
         If GTALK_Index = 0 Then
           GTALK_Index = GTALK_Index + 1
           Exit Sub
         End If
           Load Form4.ListView1(GTALK_Index)
           GTALK_Index = GTALK_Index + 1
        Next
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()