1,486
社区成员
发帖
与我相关
我的任务
分享如何给传递三维可变自定义类型数组的数据给过程或DLL？
我试着定义了这么个类型
private type customtype
a1 as integer
a2 as integer
a3 as integer
end type
private type TypeT
typss() as customtype
num as integer
end type
dim df() as typet
redim df (0) as typet
redim df(0).typss(0) as customtype
到这里都不报错
可是要用df(0).typss(0).a1=1
时就报错，
具体这样的一个数据怎么传递叻？
private type customtype
a1 as integer
a2 as integer
a3 as integer
end type
private type TypeT
typss() as customtype
num as integer
end type
dim df() as typet
redim df (0) as typet
redim df(0).typss(0) as customtype
到这里都不报错
可是要用df(0).typss(0).a1=1
时就报错，
具体这样的一个数据怎么传递叻？
...全文
请发表友善的回复…
发表回复
fishmans 2004-11-15
- 打赏
- 举报
那是碰到鬼了，我怎么写就有问题叻？
跟一楼那位老同志写得差不多啊！
算了，反正也自己解决了！
就当散分，还没这么豪爽过！！活活~~~~~~~~~
跟一楼那位老同志写得差不多啊！
算了，反正也自己解决了！
就当散分，还没这么豪爽过！！活活~~~~~~~~~
Tiger_Zhao 2004-11-11
- 打赏
- 举报
无错误
lyxhappy 2004-11-11
- 打赏
- 举报
UP
creazyfish 2004-11-11
- 打赏
- 举报
我也觉的没什么问题啊
Andy__Huang 2004-11-11
- 打赏
- 举报
給它賦值時象 northwolves(狼行天下) 寫的那種就可以了
tztz520 2004-11-11
- 打赏
- 举报
'没错呀.
Private Type customtype
a1 As Integer
a2 As Integer
a3 As Integer
End Type
Private Type TypeT
typss() As customtype
num As Integer
End Type
Private Sub Command1_Click()
Dim df() As TypeT
ReDim df(0) As TypeT
ReDim df(0).typss(0) As customtype
df(0).typss(0).a1 = 1
MsgBox df(0).typss(0).a1
End Sub
Private Type customtype
a1 As Integer
a2 As Integer
a3 As Integer
End Type
Private Type TypeT
typss() As customtype
num As Integer
End Type
Private Sub Command1_Click()
Dim df() As TypeT
ReDim df(0) As TypeT
ReDim df(0).typss(0) As customtype
df(0).typss(0).a1 = 1
MsgBox df(0).typss(0).a1
End Sub
Andy__Huang 2004-11-11
- 打赏
- 举报
private type customtype
a1 as integer
a2 as integer
a3 as integer
end type
private type TypeT
typss() as customtype
num as integer
end type
因為TypeT是有兩個屬性typss﹑num,而typss又有它的子屬性a1,a2,a3
所以你重新定義的時候只需要重新定義TypeT就夠了
這就相當于C里面講到的類的繼承問題
a1 as integer
a2 as integer
a3 as integer
end type
private type TypeT
typss() as customtype
num as integer
end type
因為TypeT是有兩個屬性typss﹑num,而typss又有它的子屬性a1,a2,a3
所以你重新定義的時候只需要重新定義TypeT就夠了
這就相當于C里面講到的類的繼承問題
Andy__Huang 2004-11-11
- 打赏
- 举报
這個語句出錯﹕ redim df(0).typss(0) as customtype
只用到這個語句就夠了 ﹕redim df (0) as typet
只用到這個語句就夠了 ﹕redim df (0) as typet
leolan 2004-11-11
- 打赏
- 举报
蹭分
northwolves 2004-11-10
- 打赏
- 举报
Private Type customtype
a1 As Integer
a2 As Integer
a3 As Integer
End Type
Private Type TypeT
typss() As customtype
num As Integer
End Type
Private Sub Command1_Click()
Dim df() As TypeT
ReDim df(0)
ReDim df(0).typss(0)
df(0).typss(0).a1 = 1
df(0).typss(0).a2 = 2
df(0).typss(0).a3 = 3
MsgBox df(0).typss(0).a2
End Sub
a1 As Integer
a2 As Integer
a3 As Integer
End Type
Private Type TypeT
typss() As customtype
num As Integer
End Type
Private Sub Command1_Click()
Dim df() As TypeT
ReDim df(0)
ReDim df(0).typss(0)
df(0).typss(0).a1 = 1
df(0).typss(0).a2 = 2
df(0).typss(0).a3 = 3
MsgBox df(0).typss(0).a2
End Sub
