為啥莫 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
呼叫第一次時假如為 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
全站熱搜
留言列表