实现Choose函数（FreeBasic可变参数数量用法例题）【VFB源码】

VisualBasic6 里有个 Choose函数 ，而在 FreeBasic里没有，要用到这函数，需要自己写一个。

Choose 函数

从参数列表中选择并返回一个值。

语法

Choose(index, choice-1[, choice-2, ... [, choice-n]])

Choose 函数的语法具有以下几个部分：

index 必要参数，数值表达式或字段，它的运算结果是一个数值，且界于 1 和可选择的项目数之间。 

choice 必要参数，Variant 表达式，包含可选择项目的其中之一。 

VisualBasic6 的参数是Variant ，而我们只能 数字写一个，字符写一个。

顺便我们可以学习到FreeBasic可变的参数数量用法。

扫描二维码关注公众号，回复： 3500791 查看本文章

数字型例题：

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