投稿日 | : 2003/12/01(Mon) 21:49 |
投稿者 | : あき☆彡 |
Eメール | : |
URL | : |
タイトル | : Re^6: チェックボックスを使った計算 |
> 昨日はありがとうございました。
どういたしまして(/*'-'*)/
> それ以外はやってみたのですが、間違っているような気がして…。
> またコードを載せますので見ていただけますか?
良いですよ(●⌒∇⌒●)
まず、、、
> Private Sub Label1_Click()
>
> Alignment = 1
> BorderStyle = 1
> Caption = "0"
>
> End Sub
ラベルクリックで何をしたいのか分かりませんΣ(; ̄□ ̄A
Captionに0を設定していますが、これではフォームタイトルが0になるだけですよね?
> Private Sub Check1_Click()
>
> If Check1.Value = 1 Then
> Label1 = Val(Label1.Caption) + 2
> Else
> Label1 = Val(Label1.Caption) - 2
> End If
>
> End Sub
ここは前回より良くなってますね。
これで加算減算は正しく行われるようになっていると思います。
ただ前回書き忘れましたが、
> If Check1.Value = 1 Then
VBにはあらかじめ定数があって、
それを使った方がコードが見やすくなります。
1では何か分からないですよね?
で、こんな感じに書く事が出来ます。
Private Sub Check1_Click()
If Check1.Value = vbChecked Then
Label1.Caption = CStr(Val(Label1.Caption) + 2)
Else
Label1.Caption = CStr(Val(Label1.Caption) - 2)
End If
End Sub
次のステップは関数やコントロール配列を使った方法です。
また分からなかったら質問して下さい。