VB6

Question

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

Answer 1

Check_Date(ctl.text)传值让我查

Answer 2

您的函数必须是：

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

结束函数

您可以通过在不带“.text”的参数中传递控件名称来调用它，例如：

CHECK_DATE (Text1)

VB6 - 参数，类型，布尔

VB6 - parameters, TYPE OF, Boolean

boolean

procedure

function