VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2007/07/24(Tue) 17:58
投稿者： ふく
Ｅメール：
ＵＲＬ：
タイトル： Re^3: 前回の投稿では解決していませんでした・・・。

こんなかんじかな？
これくらい判ってる！って怒られそうですが…
常連の皆様厳しい突っ込みはご勘弁を。

さて、
フォームにコマンドボタン３こ、ラベル、タイマーコントロール
をおいてください。

コマンドボタン１：時計スタート
コマンドボタン２：ファール有
コマンドボタン３：次のクウォターへ

Option Explicit
Private CntDown As Single
Private CntBase As Single

Private Sub Command1_Click()
    Command1.Enabled = False
    Timer1.Enabled = True  
End Sub

Private Sub Command2_Click()
    Label1.Caption = "1.0"
    CntDown = 0
    CntBase = 1
    Command1.Enabled = True
    Command2.Enabled = False
    Command3.Enabled = False
End Sub

Private Sub Command3_Click()
    Call CntIni
End Sub

Private Sub Form_Load()
    Timer1.Enabled = False
    Timer1.Interval = 500
    Call CntIni

End Sub
Private Sub CntIni()
    Command1.Enabled = True
    Command2.Enabled = False
    Command3.Enabled = False
    CntBase = 10
    Label1.Caption = "10.0"
End Sub

Private Sub Timer1_Timer()
Dim tmp As Single

    Timer1.Enabled = False
    CntDown = CntDown + 1
    tmp = CntBase - CntDown * 0.5
    Label1.Caption = Format$(tmp, "#0.0")

    If tmp <= 0 Then
        Command2.Enabled = True
        Command3.Enabled = True
        Exit Sub
    End If
    
    Timer1.Enabled = True
End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -