Re: [VB6 ] Sub中optional參數不可指定物件?

[fumizuki (小獅子)]

※ 引述《CKPILOT (新年快樂!)》之銘言：
: Public Sub ShowObjCaption(Optional myObj as Object = Form1)
:         msgbox myObj.Caption
: End Sub
: 編譯錯誤: 必須是常數運算式
: 請問我該如何傳遞物件?
: 感謝指教:)
Public Sub ShowObjCaption(Optional myObj)

    If IsMissing(myObj) Then Set myObj = Form1
    MsgBox myObj.Caption

End Sub

--
                                ▃▅▇▆▄                         ▆▂▃  `  
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃                ▇▃▂"  .
                                    █████████▃i              ▁▄▇ 
              更多悽悽慘慘的遭遇…………██▆▃                █▅▆▃ˍ▄* 
                                                 ◢           ▂█▄▇▅▂▌. 
我不知道，王～八～蛋～～！           ▂▆███    █▄▃  。fumizuki。Check。

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 61.222.155.162
推 CKPILOT:感謝板主^_^