VB2008、クリアボタンでクリアさせたい…
いつもお世話になります。
VBでBMI測定プログラムを作っています。
身長と体重を入力
測定ボタンを押す
"あなたは標準体重です。"等の結果メッセージが出る。
のですが、「測定」ボタンの隣に「クリア」というボタンを設置することになっています。
「クリア」を押すと入力した[身長][体重][結果]がクリアされて初期状態?に戻るらしいのですが、
それぞれの値を0にしたりするわけではないですよね。
一瞬でパッとできたりする方法を探しているのですが、いかがでしょうか。
Public Class Form1
Dim sin As Double
Dim tai As Double
Dim m As Double = 0
Dim no As Integer
Dim abim As Double
Dim bmi As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sin = TextBox1.Text / 100
tai = TextBox2.Text
abim = tai / sin / sin
If abim < 18.5 Then
bmi = "低体重です。"
ElseIf 18.5 <= abim And abim < 25 Then
bmi = "標準重です。"
ElseIf 25 <= abim And abim < 30 Then
bmi = "肥満1度です。"
ElseIf 30 <= abim And abim < 35 Then
bmi = "肥満2度です。"
ElseIf 35 <= abim And abim < 40 Then
bmi = "肥満3度です。"
Else
bmi = "肥満4度です。"
End If
m = m + 1 'No
no = m Mod 5
If no = 1 Then
Label3.Text = m & " あなたの判定結果は"
Label9.Text = bmi
ElseIf no = 2 Then
Label4.Text = m & " あなたの判定結果は"
Label10.Text = bmi
ElseIf no = 3 Then
Label5.Text = m & " あなたの判定結果は"
Label11.Text = bmi
ElseIf no = 4 Then
Label6.Text = m & " あなたの判定結果は"
Label12.Text = bmi
ElseIf no = 0 Then
Label7.Text = m & " あなたの判定結果は"
Label13.Text = bmi
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
Label3.Text = ""
Label4.Text = ""
Label5.Text = ""
Label6.Text = ""
Label7.Text = ""
L
No.1ベストアンサー
- 回答日時:
For Each c As Control In Me.Controls
c.Text = ""
Next
このようにすればMeのコントロールのテキストをすべて初期化することができますが、
Textプロパティをもっていないコントロールやコンポーネントが配置されていたりする場合にはエラーになるので、コントロール毎に処理を変えなければなりませんし、
他のコンテナに属しているコントロールやコンポーネントは初期化できません
コントロール毎に処理を追加していくとかえって見づらくなる場合があるので、
今のまま初期化でもいいと思います
どちらかというと、Textbox1などに意味あるName値を設定したほうが、見やすくなると思いますよ
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaの計算 if elseと範囲について 6 2022/11/26 01:49
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) VBA 重複チェック後に値をワークシートに転記する方法を教えてください。 1 2023/03/19 12:43
- Visual Basic(VBA) エクセル マクロ(A1:A10)までの中で一番多く出た数字をB10に表示 6 2023/04/25 17:01
- Visual Basic(VBA) 配列にしたセル範囲でのコメントがあるかどうかを取得するコードの書き方 2 2022/09/17 05:09
- Visual Basic(VBA) 九九の答えの計算 3 2022/12/20 22:13
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
パワポで曲がった両矢印の簡単...
-
パワーポイントの表
-
パワーポイントで説明しながら...
-
officeのプロダクトキーを紛失
-
音声マークを一括非表示にしたい。
-
PowerPointVBAでスライドマスタ...
-
パワーポイントをプロンプター...
-
パワーポイント2019 図の透...
-
office2019プロダクトキー紛失
-
パワーポイントMacBookにて、 ...
-
エクセルのマクロについて教え...
-
PowerPointでスライドマスタの...
-
パワーポイント「スライドショ...
-
【パワーポイントのフォントが...
-
PowerPointで、線を点滅した感...
-
パワーポイントで資料を作る時 ...
-
PowerPointで曲線矢印を描きた...
-
PowerPointで、作成されたファ...
-
パワーポイントで、全てのスラ...
-
パワーポイントのアニメーショ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パワポで曲がった両矢印の簡単...
-
音声マークを一括非表示にしたい。
-
パワーポイント「スライドショ...
-
パワーポイントの表
-
PowerPointでスライドマスタの...
-
エクセル・パワーポイントなど...
-
PowerPointVBAでスライドマスタ...
-
PowerPointのアニメーションで...
-
PowerPointで、作成されたファ...
-
エクセルでA3の大きさに資料...
-
ExcelのグラフをPowerPointに貼...
-
パワーポイントで資料を作る時 ...
-
パワーポイントのアニメーショ...
-
【パワーポイントのフォントが...
-
プレゼン時のポインター
-
PowerPoint2010、2021のスライ...
-
パワーポイントで、全てのスラ...
-
パワーポイントで説明しながら...
-
PowerPointのオプションの設定...
-
PowerPointの背景について
おすすめ情報