如何使用命名参数

调用子过程或函数过程时,可以按其在过程定义中出现的确切顺序提供参数,也可以按名称在任意位置提供参数。 为了说明这一点,我将使用一个名为fCalculateInterest()的虚拟函数,该函数接受3个参数(货币,单身和长整数)并返回类型为Currency的值。


Public Function fCalculateInterest(curPrincipal As Currency, sngRate As Single, lngTermInMonths As Long) As Currency
  fCalculateInterest = curPrincipal * sngRate * lngTermInMonths
End Function 
对该函数的简单调用为:

Dim curInterest As Currency
curInterest = fCalculateInterest(100000,.0725, 240) 
通过在正确的位置提供其参数(每个位置由逗号分隔)来调用上述函数。 如果参数的位置发生变化,则可能会出现“数据类型不匹配错误”或错误的结果。 通过使用命名参数,您可以按名称提供参数,而无需考虑位置。 命名参数由参数名称,后跟冒号和等号(:=)组成。 我们现在将调用相同的函数,但是这次将参数的位置颠倒了:

Dim curInterest As Curremcy
curInterest = fCalculateInterest(lngTermInMonths:=240, sngRate:=.0725, curPrincipal:=100000) 
当您调用具有可选参数的过程时,命名参数非常有用。 如果使用命名参数,则不必包括逗号来表示缺少的位置参数,如果不使用它们,则必须使用逗号。 下面的子过程将说明我的观点,它接受4个参数,其中3个是可选的(字符串,长整数,布尔值)。

Private Sub TestArgs(Arg1 As Integer, Optional Arg2 As String, Optional Arg3 As Long, Optional Arg4 As Boolean)
End Sub 
对该子过程的典型调用如下:

Call TestArgs(1234, "Argument2", 999999, False) 
如果要在不传递第二和第三可选参数且不使用命名参数的情况下调用TestArgs,则语法为:
Call TestArgs(1234,,,False)
如果要在不传递第二和第三可选参数的情况下调用TestArgs,并使用命名参数,而不考虑参数的位置,则语法为:
Call TestArgs(Arg4:=False, Arg1:=1234)
注意:作为一个更现实和实际的示例,并且正如玛丽建议的那样,我提供了一个使用流行的SendObject()方法的示例。 使用此方法的所有参数,但[TemplateFile]除外,并且修改了它们在该方法中的标准位置。 这只能通过使用本周技巧“命名参数”来实现:

DoCmd.SendObject OutputFormat:=acFormatXLS, ObjectName:="tblEmployeePFD", _
ObjectType:=acSendTable, Subject:="Named Arguments", Bcc:="Joe Dunn", _ 
To:="Tom Jones", CC:="Chris Myers", EditMessage:=False, _ MessageText:="Demonstration of the Usage of Named Arguments" 
故事的士气是:使用命名参数非常有优势,尤其是在使用可选参数时。

From: https://bytes.com/topic/access/insights/732414-how-use-named-arguments

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值