实现Choose函数(FB可变的参数数量用法例题)

  勇芳 2018-5-19 7127

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


因国家互联网安全管理要求,关闭回帖功能。大家需要留言,请使用【勇芳软件客服】即时联系勇芳点此打开->>勇芳软件客服
返回
联系勇芳
发新帖 搜索 反馈 回顶部