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ランキング
-
パワポで曲がった両矢印の簡単...
-
パワーポイント「スライドショ...
-
パワーポイントの表
-
Power pointって、スクリーンに...
-
音声マークを一括非表示にしたい。
-
パワーポイント2019 図の透...
-
パワーポイントで、プレゼン用...
-
画面写真でコピーペーストする...
-
Powerpointを用いた論文の発表...
-
【パワーポイントのフォントが...
-
パワーポイントにページ番号を...
-
COUNTIFのやり方を教えてくださ...
-
パワーポイント、四角い枠の中...
-
プレゼン時のポインター
-
PowerPoint2007を使用していま...
-
教えてgooのスマホアプリ
-
【パワポ初心者の大学生におす...
-
canvaでつくったプレゼン資料を...
-
ホワイトボード 油性マジックの...
-
Power point で、アニメって作...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
プログラミングのC言語につい...
-
好きな人の胸が小さかったら?
-
身長で親を恨んでいます 27歳、...
-
身長172ってやっぱりチビなんで...
-
身体測定を受けたのですが身長...
-
男の身長175cmは高身長?大学で...
-
日本の成人男性で164cmって次の...
-
「エロい体」ってどういうこと?
-
日本の成人男性の身長の割合は1...
-
大学男で160〜163センチの人は...
-
日本で身長180cm以上の人ってそ...
-
女性に質問手の大きさは何センチ?
-
低身長が原因でフラれた男性、...
-
身長163.5センチの男です。 身...
-
男性の身長176cmは低身長・普通...
-
身長160cmのこれ以上痩せてはい...
-
179cmは日本でかなりの高身長で...
-
チビ女が嫌いな理由を教えてく...
-
身長は多くの人が1、2センチ程...
-
高校生です。身長は167くらいで...
おすすめ情報