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

勇芳软件

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

Choose 函数

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

语法

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

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

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

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



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

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

数字型例题：

1. Function ChooseLong cdecl(Index As Long, ...) As Long  
   
2.   Dim arg As Any Ptr  
   
3.   Dim i As Integer  
   
4.    
   
5.   arg = va_first()  
   
6.   If Index = 1 Then  
   
7.       Function = va_arg(arg, Long)  
   
8.   Else  
   
9.       For i = 1 To Index -1  
   
10.           arg = va_next(arg, Long)  
    
11.       Next  
    
12.       Function = va_arg(arg, Long)  
    
13.   End If  
    
14.    
    
15. End Function  

复制代码

注意：此为特殊函数，因为里面有 cdecl ，需要把此函数放在 VisualFreeBasic 的 FF_AppStart 模块里才可以编译。

或者在VFB函数库里新建一个才可以。

字符型例题：

1. Function ChooseStr cdecl(Index As Long, ...) As String   
   
2.   Dim arg As Any Ptr  
   
3.   Dim i As Integer  
   
4.    
   
5.   arg = va_first()  
   
6.   If Index = 1 Then  
   
7.       Function = *va_arg(arg, ZString Ptr)  
   
8.   Else  
   
9.       For i = 1 To Index -1  
   
10.           arg = va_next(arg, ZString Ptr)  
    
11.       Next  
    
12.       Function = *va_arg(arg, ZString Ptr)  
    
13.   End If  
    
14.    
    
15. End Function  

复制代码

xiawan

珍惜生命，果断回帖。