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

投稿日： 2003/12/01(Mon) 17:32
投稿者： てん
Ｅメール：
ＵＲＬ：
タイトル： Re^5: チェックボックスを使った計算

昨日はありがとうございました。
いただいたアドバイスを元にコードを作ってみました。
気になった点を４つ挙げて下さりましたよね？
４番目の点は、本を片手に勉強しています。
それ以外はやってみたのですが、間違っているような気がして…。
またコードを載せますので見ていただけますか？
よろしくお願いしますm(_ _)m


Private Sub Label1_Click()

    Alignment = 1
    BorderStyle = 1
    Caption = "0"
    
End Sub

Private Sub Check1_Click()

    If Check1.Value = 1 Then
        Label1 = Val(Label1.Caption) + 2
    Else
        Label1 = Val(Label1.Caption) - 2
    End If
        
End Sub

Private Sub Check2_Click()

    If Check2.Value = 1 Then
        Label1 = Val(Label1.Caption) + 1
    Else
        Label1 = Val(Label1.Caption) - 1
    End If
        
End Sub

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

- Web Forum -