7,763
社区成员
发帖
与我相关
我的任务
分享这是函数重载的问题吗？
我用VB做COM组件，想做一个这样的方法，就是调用aaa方法时，可以填一个参数，也可填两个参数，这在C++里面是不是叫函数重载啊？
Public Function aaa(ByVal str)
End Function
Public Function aaa(ByVal str, ByVal title)
End Function
我这样写，可是编译的时候提示“发现二义性的名称：aaa”
请问，我该怎么做呢？
Public Function aaa(ByVal str)
End Function
Public Function aaa(ByVal str, ByVal title)
End Function
我这样写，可是编译的时候提示“发现二义性的名称：aaa”
请问，我该怎么做呢？
...全文
请发表友善的回复…
发表回复
wwwhch2004 2005-09-05
- 打赏
- 举报
必须使用Optional关键字
xunua 2005-09-05
- 打赏
- 举报
是不是如果前面的参数用了Optional，后面的参数也必须用Optional？
否则会看到VB中有红色提示
否则会看到VB中有红色提示
igxk 2005-09-05
- 打赏
- 举报
可以使用 OPTIONAL 关键字来达到这个目的。
WuYunpeng 2005-09-05
- 打赏
- 举报
Public Function aaa(ByVal str As String, Optional ByVal title As String="") As String
可以加上默认值
可以加上默认值
xunua 2005-09-05
- 打赏
- 举报
谢谢。
不过，VB6是不是不支持函数重载啊？
不过，VB6是不是不支持函数重载啊？
wangtopcool 2005-09-05
- 打赏
- 举报
可以在第二个参数定义前加Optional,则第二个参数是可选的
Public Function aaa(ByVal str, Optional ByVal title)
End Function
Public Function aaa(ByVal str, Optional ByVal title)
End Function
northwolves 2005-09-05
- 打赏
- 举报
关键词:Optional
Public Function aaa(ByVal str As String, Optional ByVal title As String) As String
If title = "" Then
aaa = Replace(String(10, "x"), "x", str)
Else
aaa = str & vbCrLf & title
End If
End Function
Private Sub Command1_Click()
MsgBox aaa("abc", "123")
MsgBox aaa("abc")
End Sub
Public Function aaa(ByVal str As String, Optional ByVal title As String) As String
If title = "" Then
aaa = Replace(String(10, "x"), "x", str)
Else
aaa = str & vbCrLf & title
End If
End Function
Private Sub Command1_Click()
MsgBox aaa("abc", "123")
MsgBox aaa("abc")
End Sub
