如何查看文本框中输入的时间格式？

Question

我正在使用VB 6，我的表单有一个TextBox控件。我希望用户能够在文本框中输入时间，但我必须验证输入时间是否正确。

示例：

Textbox1.Text = 236161  '(User Input)

236161 = HHMMSS

上述输入时间错误，因为分钟和秒数大于60。

我可以使用哪些代码检查文本框中输入的时间格式？

Answer 1

使用.Net，你有正则表达式。使用VB 6，您必须使用COM或ActiveX库并将它们添加为项目的引用（http://www.regexlib.com/DisplayPatterns.aspx?cattabindex=4&categoryId=5或http://support.microsoft.com/kb/818802）

要查看正则表达式的样本，请参阅：http://www.regexlib.com/DisplayPatterns.aspx?cattabindex=4&categoryId=5

Answer 2

我建议您使用DTPicker控件。这是可用于VB 6应用程序的日期/时间选择器，它实际上会强制用户（但更多轻轻地发出声音）以适当的格式输入有效时间。尝试自己做这个验证是后方的巨大痛苦，并且不值得努力，因为使用内置控件使它变得如此简单。

您可以按照以下步骤在项目中开始使用它：

1. 在VB 6 IDE中，打开“项目”菜单，然后单击“组件”（或按 Ctrl + T ）。

2. 向下滚动到列表底部并选择“Microsoft Windows Common Controls-2”（最好是版本6.0，如果可用，而不是版本5.0）。

3. 单击“确定”后，您会发现工具箱中添加了一些新控件。找到并单击名为DTPicker的那个。它看起来像这样：

   

4. 将DTPicker控件拖到表单中。

5. 确保选中刚添加的控件，然后在“属性”窗口中，向下滚动到“格式”属性并将其设置为“2 - dtpTime”。这指定您要接受DTPicker控件中的时间值，而不是日期。

Answer 3

实际上，你可以使用这样的格式函数：

TestStr = Format(TestDateTime, "HH:mm:ss")