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