VB6 - パラメータのTYPE、ブール

Question

私はCHECK_DATEと呼ばれる機能がある - パラメータが可能になります。 CHECK_DATE関数は、パラメータを文字列として受け取り、有効な日付であることを確認します。私がしようとしているのは、フォームを書き出す際に、変更を保存するかどうかをユーザーに尋ねます。ユーザーが「はい」をクリックすると、変更を保存します。私がやっていることは、PREFIXに行き、そのtxtが次にtxtの型であるかどうかを調べます。それは、maskedTextboxのテキストボックスかどうかです。それがマスクされたと日付だならば、CHECK_DATE(date)

Dim CTL as Boolean 
If TypeOf CTL Is TextBox Then 
     'do nothing 
ElseIf TypeOf CTL Is MaskEdBox Then 
    if check_Date(ctl???) = true then<-- not sure what to put here. 
     msgbox "goodDate" 
    Else 
     msgbox "Bad date" 
    End 

Public Function CHECK_DATE(CTL as string) as Boolean 
    'I do my checking here 
End Function 

に送って、私は関数に値を渡す方法が分からないので、基本的に私は動けなくなります。 CHECK_Dateの最後では、パラメータは文字列です。しかし、私はそれをどのように伝えるのか手がかりがありません。私がCTL型の上でフーバーすると、それは私に日付を示していますが、私はそれを関数のパラメータとして渡すことを知らないのですか？

Answer 1

あなたの機能がなければなりません：

Public Function CHECK_DATE(clt As Control) As Boolean 
'I do my checking here 

エンド機能

そして、あなたはの名前を渡すことで、それを呼び出すことができます".text"のないパラメータでの制御：

CHECK_DATE (Text1) 

Answer 2

Check_Date（ctl.text）が値を渡し、私はチェックしてみましょうそれ