【VFB】实现Choose函数（FreeBasic可变参数数量用法例题）
VisualBasic6 里有个 Choose函数 ，而在 FreeBasic里没有，要用到这函数，需要自己写一个。Choose 函数
从参数列表中选择并返回一个值。
语法
Choose(index, choice-1[, choice-2, ... [, choice-n]])
Choose 函数的语法具有以下几个部分：
index 必要参数，数值表达式或字段，它的运算结果是一个数值，且界于 1 和可选择的项目数之间。
choice 必要参数，Variant 表达式，包含可选择项目的其中之一。
VisualBasic6 的参数是Variant ，而我们只能 数字写一个，字符写一个。
顺便我们可以学习到FreeBasic可变的参数数量用法。
数字型例题：
Function ChooseLong cdecl(Index As Long, ...) As Long
Dim arg As Any Ptr
Dim i As Integer
arg = va_first()
If Index = 1 Then
Function = va_arg(arg, Long)
Else
For i = 1 To Index -1
arg = va_next(arg, Long)
Next
Function = va_arg(arg, Long)
End If
End Function
注意：此为特殊函数，因为里面有 cdecl ，需要把此函数放在 VisualFreeBasic 的 FF_AppStart 模块里才可以编译。
或者在VFB函数库里新建一个才可以。
字符型例题：
Function ChooseStr cdecl(Index As Long, ...) As String
Dim arg As Any Ptr
Dim i As Integer
arg = va_first()
If Index = 1 Then
Function = *va_arg(arg, ZString Ptr)
Else
For i = 1 To Index -1
arg = va_next(arg, ZString Ptr)
Next
Function = *va_arg(arg, ZString Ptr)
End If
End Function
珍惜生命，果断回帖。
页:
[1]