VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/12/01(Mon) 21:49 |
| 投稿者 | ： あき☆彡 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^6: チェックボックスを使った計算 |
> 昨日はありがとうございました。
どういたしまして(/*'-'*)/
> それ以外はやってみたのですが、間違っているような気がして…。
> またコードを載せますので見ていただけますか？
良いですよ(●⌒∇⌒●)
まず、、、
> Private Sub Label1_Click()
>
> Alignment = 1
> BorderStyle = 1
> Caption = "0"
>
> End Sub
ラベルクリックで何をしたいのか分かりませんΣ(;￣□￣Ａ
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
次のステップは関数やコントロール配列を使った方法です。
また分からなかったら質問して下さい。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）