vb自定义函数可选参数如何设置
PublicSubAddItem(ByValItemAsString,ByValIndexAsVariant)Combo1.AddItemItem,IndexEndSub...
Public Sub AddItem(ByVal Item As String, ByVal Index As Variant)
Combo1.AddItem Item, Index
End Sub
这个函数,如何让index成为可选参数? 展开
Combo1.AddItem Item, Index
End Sub
这个函数,如何让index成为可选参数? 展开
3个回答
推荐于2016-07-07 · 知道合伙人数码行家
huanglenzhi
知道合伙人数码行家
向TA提问 私信TA
知道合伙人数码行家
采纳数:117538
获赞数:517164
长期从事计算机组装,维护,网络组建及管理。对计算机硬件、操作系统安装、典型网络设备具有详细认知。
向TA提问 私信TA
关注
展开全部
vb自定义函数可选参数的设置方法及注意事项:
1、可选参数可用Optional关键字标示;
2、可选参数需赋予默认值;
3、如未赋予默认值,那么需要在函数里可以通过ismissing(b)来判断该参数时候有值传入 ;
4、Optional参数(可选参数)必须放在后面,即先必选参数再可选参数。
范例如下:
function multi(a as integer,b as integer,optional third)
rem 定义multi函数,参数a、b为整形,参数third可可选参数
dim n as integer
n = a * b
if not ismissing (third) then '判断可选参数third是否有值传入
n = n * third
end if
multi = n
end function
private sub command1_click()
dim a as integer,b as integer
dim x as integer
a = 2 : b = 3
x = multi (a , b , 2)
print x
end sub
展开全部
定义的时候加上Optional关键字,就可以了
要注意的是,可选参数后面如果还有其他的参数,则必须都是可选参数。
另外,定义可选参数,需要定义默认值。如果调用时,没有指定这个可选参数的值,则使用默认值
Public Sub AddItem(ByVal Item As String, Optional ByVal Index As integer=0)
Combo1.AddItem Item, Index
End Sub
要注意的是,可选参数后面如果还有其他的参数,则必须都是可选参数。
另外,定义可选参数,需要定义默认值。如果调用时,没有指定这个可选参数的值,则使用默认值
Public Sub AddItem(ByVal Item As String, Optional ByVal Index As integer=0)
Combo1.AddItem Item, Index
End Sub
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Public Sub AddItem(ByVal Item As String,optional ByVal Index As Variant)
if IsMissing(index) then
Combo1.AddItem Item
else
Combo1.AddItem Item, Index
end if
end sub
if IsMissing(index) then
Combo1.AddItem Item
else
Combo1.AddItem Item, Index
end if
end sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询