VB调用问题

显示全部楼层 · 2011-1-15 17:09:28

Public Type TyMap
C(5) As Double
End Type
private command1_click()
Dim cnt1 As TyMap
Dim cnt2 As TyMap
cnt1.C(1) = 1600
cnt1.C(2) = 0
cnt1.C(3) = 0
cnt1.C(4) = 0
cnt1.C(5) = 0
cnt2.C(1) = 0
cnt2.C(2) = 1600
cnt2.C(3) = 0
cnt2.C(4) = 0
cnt2.C(5) = 0
rtn = GT_MapAxis(1, cnt1)
rtn = GT_MapAxis(2, cnt2)
end sub
请问这样调用对吗？

千问 · 2011-1-15 17:09:28

Public Type TMapc(1 To 5) As DoubleEnd Type这样会好一点~

千问 · 2011-1-15 17:09:28

这个调用对的。Public Type TyMapC(5) As DoubleEnd Type==============这个如果要申明为 PUBLIC的话，必须放在标准模块中。如果放在窗体模块中必须申明为 PRIVATE。还有C(5) As Double，定义的数组是有6个成员的，C(0) 到 C(5)