Public Sub AddItem(ByVal Item As String, ByVal Index As Variant)Combo1.AddItem Item, IndexEnd Sub
3 回答
茅侃侃
TA貢獻1842條經驗 獲得超21個贊
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 * bif not ismissing (third) then '判斷可選參數third是否有值傳入 n = n * thirdend ifmulti = nend function private sub command1_click()dim a as integer,b as integerdim x as integera = 2 : b = 3x = multi (a , b , 2)print xend sub |
猛跑小豬
TA貢獻1858條經驗 獲得超8個贊
定義的時候加上Optional關鍵字，就可以了
要注意的是，可選參數后面如果還有其他的參數，則必須都是可選參數。
另外，定義可選參數，需要定義默認值。如果調用時，沒有指定這個可選參數的值，則使用默認值
Public Sub AddItem(ByVal Item As String, Optional ByVal Index As integer=0)
Combo1.AddItem Item, Index
End Sub
月關寶盒
TA貢獻1772條經驗 獲得超5個贊
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
添加回答
舉報
0/150
提交
取消