text与command的使用问题

ivy999 2010-02-19 11:12:33

在text1输入一个数字，按一下command1,在text2输出另一个数字。
如时间输入24小时，变成12小时。
请把代码写出来，最好详细一点！谢谢！

...全文

155 22 打赏收藏转发到动态举报

写回复

用AI写文章

22 条回复

切换为时间正序

请发表友善的回复…

发表回复

yachong 2010-03-10

打赏
举报

偶然发现楼主结贴了
不过分数给的莫名其妙
13楼明显是灌水的嘛

wzytiger 2010-03-04

打赏
举报

没看明白问题啊
是24时制和12时制转换吗

无·法 2010-03-02

打赏
举报

好痛苦啊，好多人痛苦啊

gooore 2010-03-02

打赏
举报

痛苦啊，我也没有搞清楚

fzx4936 2010-02-20

打赏
举报

引用 16 楼 patrickkong 的回复:

这还烦，14楼。
你问题我还没搞清楚。

同感啊 lz自己的弄好了我还没懂他要干嘛

xslslx 2010-02-20

打赏
举报

由于时间格式的限制，所以文本1中只能是0-24的数字，这里如果要严谨的话必须要限制数字大小。
另外不需要太麻烦，对于初学来讲代码的简练不如详细的流程来的实在。
第一步要做的是限制时间格式，如果时间是1-12那么正常显示，如果是13-24那么就自动转换格式：
方法1：if a >= 12 then a=a-12；a就是转换后的结果。
方法2：a=a mod 12;这里用的是求余数的函数，a就是结果

希望对你有帮助

chinaboyzyq 2010-02-20

打赏
举报



Private Sub Command1_Click()

    Text2 = Text1 +20

End Sub



Private Sub Form_Load()

    Text1 = ""

    Text2 = ""

End Sub

king06 2010-02-20

打赏
举报

引用楼主 ivy999 的回复:

在text1输入一个数字，按一下command1,在text2输出另一个数字。
如时间输入24小时，变成12小时。
请把代码写出来，最好详细一点！谢谢！

...Command1_Click 里面写代码控制.就是不知道要如何变

mrevolutionary007 2010-02-20

打赏
举报

Private Sub Command1_Click()
If Text1.Text > 12 Then
Text2.Text = Text1.Text - 12
ElseIf Text1 <= 12 Then
Text2.Text = Text1.Text
End If
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub