VB初心者質問スレ Part6
■ このスレッドは過去ログ倉庫に格納されています
0267デフォルトの名無しさん
NGNGPrivate Sub Command1_Click()
'変数の宣言
Dim Labeltext As Stringt
Dim FirstTime As Integer
Labeltext = Label1.Caption 'label1の文字の取得
If FirstTime <> 0 Then
Labeltext = ""
Label1.Caption = Labeltext & Text1.Text
Text1.Text = ""
FirstTime = 0
Else
Label1.Caption = Labeltext & Text1.Text
Text1.Text = ""
End If
End Sub
テキストボックスに文字をいれ、コマンド1ボタンを押すと、ラベル1に文字が出力されます。
その時にテキストボックスを空にします。
問題は、ラベル1には最初に「テキストボックスに文字を入力してください」との注意書きを入れてあることです。
ここでは「firstTime」変数を使って、最初にコマンド1をクリックした時に、ラベル内容をクリアして(注意書きを消して)、
その時にFirstTimeに0を代入、以後はラベルをクリアしないように作ったつもりなんですが、うまく動いてくれません。
(注意書きがクリアされずに、その後ろに文章が追加されていきます)
別のラベルを作って、そこに注意書きを書けば解決するんですが、変数とIF構文の練習をしようと思ったので・・・・
■ このスレッドは過去ログ倉庫に格納されています