自定义类型
模块中:
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
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
...全文
相关推荐
vba自定义类型返回函数vba自定义类型返回函数
vba自定义类型返回函数vba自定义类型返回函数vba自定义类型返回函数
vba用户自定义类型vba用户自定义类型vba用户自定义类型
vba用户自定义类型vba用户自定义类型vba用户自定义类型vba用户自定义类型
C++传递自定义类型作为参数到Qml
C++传递自定义类型作为参数到Qml 具体请访问https://www.jianshu.com/p/bc3ac5b4b528
qt文件操作读写自定义类型
该例程在qt creator2.4.1下调试成功,用重载的方法实现了QDataStream读写用户自定义的数据类型,使操作更加方便。
C#自定义类型强制转换实例分析
本文实例讲述了C#自定义类型强制转换的用法。分享给大家供大家参考。具体分析如下: 先来举一个小例子 类定义: public class MyCurrency { public uint Dollars; public ushort Cents; public MyCurrency(uint dollars, ushort cents) { this.Dollars = dollars; this.Cents = cents; } public override string ToString() { return string.Format


VB基础类
