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

结束功能

你可以通过在没有＆＃34; .text＆＃34;的参数中传递控件的名称来调用它。喜欢：

CHECK_DATE (Text1)

Answer 2

Check_Date（ctl.text）传递值并让我检查它

VB6 - 参数，TYPE OF，布尔值

2 个答案: