[已解决]修改计时器的几个问题

爱疯

这是挖雷的计时器（如下）： 1FnvBcez.rar (11.11 KB, 下载次数: 7)

2010-2-20 20:20 上传

点击文件名下载附件
修改计时器的几个问题

我想学，结果发现存在几个问题，请问：

1. 怎样将2个控制按钮，改成1个。即一个按钮，同时控制开始和停止？
2. 挖雷计时器里的字体，很象“电子手表”，系统有这样字体么？
3. 除了调整控件高宽和字体大小以外，有直接将内如居正中的属性么？

谢谢！

最佳答案

月排行榜 / 总排行榜

amulee

2010-2-21 08:40

Private Sub CommandButton1_Click()
    If CommandButton1.Caption = "开始计时" Then
        CommandButton1.Caption = "停止计时"
        UserForm1.Label1.Caption = "000"
        Call js
    Else
        CommandButton1.Caption = "开始计时"
    End If
End Sub



Sub 按钮1_Click()
    UserForm1.Show
End Sub
Sub js()
    If UserForm1.CommandButton1.Caption = "停止计时" Then
        Application.OnTime Now + TimeValue("00:00:01"), "js"
        UserForm1.Label1.Caption = Format(UserForm1.Label1.Caption + 1, "000")
    End If
End Sub

跳转到最佳答案楼层

爱疯

OMZX3Wnl.rar (10.93 KB, 下载次数: 10)

2010-2-20 20:47 上传

点击文件名下载附件
修改计时器的几个问题

好像可以了。总觉得2个public变量开销大，能更简洁些就好了。

爱疯

奇怪，2楼附件结束后：

有时不再循环js；

有时还在循环。

为什么会这样呢[em11]

amulee

Private Sub CommandButton1_Click()
    If CommandButton1.Caption = "开始计时" Then
        CommandButton1.Caption = "停止计时"
        UserForm1.Label1.Caption = "000"
        Call js
    Else
        CommandButton1.Caption = "开始计时"
    End If
End Sub



Sub 按钮1_Click()
    UserForm1.Show
End Sub
Sub js()
    If UserForm1.CommandButton1.Caption = "停止计时" Then
        Application.OnTime Now + TimeValue("00:00:01"), "js"
        UserForm1.Label1.Caption = Format(UserForm1.Label1.Caption + 1, "000")
    End If
End Sub

吕?布

2. 系统没有这种字体吧

3. 水平是TextAlign,垂直方向没有。另外我想可不可以改用CommandButton呢，这个自动对中

一直感觉ontime用的不顺，也许真的要用API函数

爱疯

谢谢阿木，吕布！

 

[em27][em27][em27]