定义了一个结构
Public structure TaskControlStruct
Public Current As Integer
Public Total As Integer
Public FuncName As String
Public Stoped As String
Public suspend As String
Public Obj() As String
End structure
Public TaskDic As Dictionary(of String, TaskControlStruct)
Dim tasktmp As TaskControlStruct
Dim Objtmp(8) As String
tasktmp.FuncName = "sub1"
Objtmp(0) = "plan1" & cstr(plan1flag)
tasktmp.obj = Objtmp
messagebox.show(1)
TaskDic.add("plan1" & cstr(plan1flag),tasktmp) 添加提示未把实例引用到对象
[此贴子已经被作者于2015/10/5 22:32:24编辑过]
加好友 
发短信
Post By：2015/10/5 22:27:00 [只看该作者]
