VB6 - 参数、类型、布尔值答案

【问题标题】：VB6 - parameters, TYPE OF, BooleanVB6 - 参数、类型、布尔值
【发布时间】：2016-03-23 20:51:24
【问题描述】：

我有一个名为CHECK_DATE 的函数——它允许一个参数。 CHECK_DATE 函数将参数作为字符串并验证它是否为有效日期。我正在尝试做的是，在 Xing out 表单时，我询问用户是否要保存更改 - 如果他们单击是 - 然后我保存他们的更改。我正在做的是使用前缀，如果它是 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 结束时，参数是字符串。但我不知道如何传递它。当我将鼠标悬停在 typeof CTL 上时，它会显示一个日期，但我不知道如何将它作为参数传递给函数？

【问题讨论】：

TypeOf Ctl 总是布尔值——你刚才说的是上面那行。否则，将 TextBox.Text 传递给函数

标签： function vb6 boolean procedure

【解决方案1】：

你的函数必须是：

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

结束函数

您可以通过在参数中传递控件的名称来调用它，而无需像“.text”一样：

CHECK_DATE (Text1)

【讨论】：

【解决方案2】：

Check_Date(ctl.text) 传递值让我检查一下

【讨论】：