[求助]inputbox输入问题 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → [求助]inputbox输入问题

标题：[求助]inputbox输入问题

取消只看楼主

appleuser

等　级：新手上路
帖　子：81
专家分：0
注　册：2007-5-1

问题点数：0 回复次数：2

[求助]inputbox输入问题

请教：如何设定Inputbox里只能输入时间？

如果输入的不是时间格式，就会报错？

期待各位高手的回复！

搜索更多相关主题的帖子: inputbox　输入　 Inputbox　会报　

2007-05-19 07:06

appleuser

等　级：新手上路
帖　子：81
专家分：0
注　册：2007-5-1

得分:0

以下是引用ouzhiguang在2007-5-19 18:33:43的发言：

请问是什么样子的时间格式?知道格式才好做啊!

如：只可以输入12:20类似这样的时间格式（当然其它的时间也可以，最小单位为分钟。）

如果输入12：20这样的话就会报错（注意12:20与12：20中间的两点是不同的）

请问可以做到吗？

VB刚入门

2007-05-20 16:19

appleuser

等　级：新手上路
帖　子：81
专家分：0
注　册：2007-5-1

得分:0

以下是引用ouzhiguang在2007-5-20 23:27:00的发言：

Private Sub Command1_Click()
If IsDate(Text1.Text) Then
Text2.Text = Mid(CDate(Text1.Text), 1, 5)
End If

End Sub
你看看吧,不过时间不多了!要停电了,明天接着弄!

我的意思是用inputbox可以做到这个效果吗？

VB刚入门

2007-05-21 23:43