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

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

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

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 777 人关注过本帖

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

只看楼主加入收藏

appleuser

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

楼主

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

[求助]inputbox输入问题

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

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

期待各位高手的回复！

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

2007-05-19 07:06

lll930720

等　级：新手上路
帖　子：41
专家分：0
注　册：2006-11-14

第 2 楼

得分:0

用DTpicker控件

2007-05-19 07:48

ouzhiguang

来　自：湖南长沙
等　级：新手上路
威　望：1
帖　子：240
专家分：0
注　册：2007-5-18

第 3 楼

得分:0

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

2007-05-19 18:33

appleuser

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

第 4 楼

得分:0

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

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

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

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

请问可以做到吗？

VB刚入门

2007-05-20 16:19

心中有剑

等　级：新手上路
威　望：5
帖　子：611
专家分：0
注　册：2007-5-18

第 5 楼

得分:0

用isdate判断啊!

2007-05-20 16:30

ouzhiguang

来　自：湖南长沙
等　级：新手上路
威　望：1
帖　子：240
专家分：0
注　册：2007-5-18

第 6 楼

得分:0

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

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

2007-05-20 23:27

appleuser

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

第 7 楼

得分: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

rockschen

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

第 8 楼

得分:0

我感觉Inputbox真是一个非常不好的东东，一两个数据好说，数据一多输入麻烦，输错了还要从来

2007-05-22 10:12

快速回复：[求助]inputbox输入问题