自定义类型

[jimmy1866]

模块中：
Public Type WordRateStruct
pstrWordName As String
pdouRate As Double
End Type

‘传自定义类型，返回自定义类型
Public Function ArraySort(ByRef ptempWordNameAndRate() As WordRateStruct) As WordRateStruct

‘ptempWordNameAndRate操作

ArraySort = ptempWordNameAndRate

End Function

窗体中：
Private Sub Form_Load()

Dim Str(1 To 5) As WordRateStruct
Dim pWordNameAndRate(1 To 5) As WordRateStruct
' ArraySort(pWordNameAndRate)
Str = ArraySort(pWordNameAndRate) 'ERROR 数组不能赋值
end Sub

[jimmy1866]

自已顶下。。。。

[jy497759649]

路过.....

[jy497759649]

楼主，这样不是更简单、高效，省去了调用函数时的开销
Option Explicit
Private Type WordRateStruct
pstrWordName As String
pdouRate As Double
End Type

Private Sub Form_Load()
Dim Str() As WordRateStruct
Dim pWordNameAndRate(1 To 5) As WordRateStruct
Str = pWordNameAndRate
End Sub

[vbman2003]

[Quote=引用 4 楼 jimmy1866 的回复:]
自已顶下。。。。
[/Quote]

代码给你改过了，说白了就是在你模块中的函数后面加上（）号，表示返回的是数组。还有窗口代码中str要是动态数组你的写法才正确...
顶下还有什么问题吗？

[PIBOT]

Str 要改为动态数组

[Sandrer]

我想不明白楼主这个函数究竟有什么作用？

[vbman2003]

'模块中： 
Public Type WordRateStruct 
    pstrWordName As String 
    pdouRate As Double 
End Type 

‘传自定义类型，返回自定义类型 
Public Function ArraySort(ByRef ptempWordNameAndRate() As WordRateStruct) As WordRateStruct() '＜－－你传入的是数组，返回也要是数组 
    'ptempWordNameAndRate操作 
    ArraySort = ptempWordNameAndRate 
End Function 

窗体中： 
Private Sub Form_Load() 

    Dim Str() As WordRateStruct 
    Dim pWordNameAndRate(1 To 5) As WordRateStruct 
    'ArraySort(pWordNameAndRate) 
    Str = ArraySort(pWordNameAndRate)    'ERROR 数组不能赋值 
end Sub 

[jimmy1866]

要怎样接受 返回的自定义数组？？

[jimmy1866]

vbman2003: 理解完全正确!!!

[xizh3276]

顶一下！

[jimmy1866]

jy497759649 不可以 提示 不能给数组赋值。。
我的目的 是按自定义类型里的某个字段值来排序的，函数返回排序过后的自定义类型数组

解决了，

传给函数的参数 用 引用传递 就可以了。。。谢谢大家的回答

[casalina]

原来是这样，自定义过程用作参数传递必须是引用传递，不能使用值传递

[jimmy1866]

To casalina 不知道是不是必需的，但是用引用传递 解决了我的问题。。。

[guyehanxinlei]

UP

[liguicd]

顶顶

[jimmy1866]

[Quote=引用 7 楼 vbman2003 的回复:]
引用 4 楼 jimmy1866 的回复:
自已顶下。。。。


代码给你改过了，说白了就是在你模块中的函数后面加上（）号，表示返回的是数组。还有窗口代码中str要是动态数组你的写法才正确...
顶下还有什么问题吗？
[/Quote]

谢谢 刚开始没太注意看。。。不好意思。。十分感谢。。。