また質問です。
VBであらかじめ書いてあった三つの円を信号機のように青は2.5秒、黄色は0.5秒、赤は3秒で青→黄→赤→青 …と三十秒間動かしたいのですが、caseの後ろには何をいれればいいかわからず
Private Sub Timer1_Timer()
Timer.Tag = Timer1.Tag + 0.5
progressbar1.Value = progressbar1.Value + 0.5
Select Case Timer1.Tag
Case
Shape5.FillColor = vbGreen
Shape5.FillStyle = 0
Case
Shape6.FillColor = vbYellow
Shape6.FillStyle = 0
Case
Shape7.FillColor = vbRed
Shape7.FillStyle = 0
end select
End Sub
としたのですがまったく動きません。タイマーを設定したのに時間の表示もでません。あと、progressbarというのもでてこないんです。
どうかお詳しい方お願いします。 m(_ _)m
No.1ベストアンサー
- 回答日時:
下記を確認してください。
・Timer1のintervalは指定してますか?
・progressbar1のMaxは指定してますか?
・Timer1.Tagは文字列ですので「Timer1.Tag = Timer1.Tag + 0.5」のような指定はできません。「Timer1.Tag = CStr(Val(Timer1.Tag) + 0.5)」のように数値と文字列を使い分けてください。
・Caseに対する値がないため、Caseでの判断ができません。Tagに入っている値を入れる必要があるかと思います。
・色を塗る指定はありますが、消す指定がないので、このプログラムでは信号機のように消えることがありません。
以下は質問文の書き方を利用して私が作成するなら。。。ということで書いておきます。別な書き方もありますが、ひとまず下記だけでも動くかと思います。
【設定値】
「Timer1.Interval=500」
「progressbar1.Max = 60」
「Shape5.FillColor = &H0000FF00&」
「Shape6.FillColor = &H0000FFFF&」
「Shape7.FillColor = &H000000FF&」
【ソース】
Private Sub Timer1_Timer()
Timer1.Tag = CStr(Val(Timer1.Tag) + 1)
ProgressBar1.Value = ProgressBar1.Value + 1
Select Case Timer1.Tag
Case "1"
Shape5.FillStyle = 0
Case "5"
Shape5.FillStyle = 1
Shape6.FillStyle = 0
Case "6"
Shape6.FillStyle = 1
Shape7.FillStyle = 0
Case "12"
Shape7.FillStyle = 1
Shape5.FillStyle = 0
Timer1.Tag = "0"
End Select
If ProgressBar1.Value >= 60 Then
Shape5.FillStyle = 1
Timer1.Enabled = False
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
東芝のDynabookなのですがアン...
-
isnan・isnf関数が「識別子が見...
-
CPUの考え方を教えてください ...
-
ルート要素ノードが2個ある場合?
-
XMLで要素が記述された順番に意...
-
同じタグ名の項目取得
-
ノードとは
-
あるノードリストに、特定の名...
-
C#でTreeViewのCheckBoxのサイ...
-
バッチファイルでテキストファ...
-
4バイトを10進数に変換する方法
-
昔Winnyってありましたけど、あ...
-
XMLからデータを取得
-
HTTPステータス 404 - There is...
-
SNMP リンクダウンとノードダ...
-
縁切りするとき
-
VB.NETで最後フォのフォ...
-
DataSetのwriteXmlでのXML宣言
-
ツリービューの使い方が・・・
-
XMLファイル内のデータ(値)を変...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
東芝のDynabookなのですがアン...
-
特殊記号が勝手にエスケープさ...
-
Visual Basic .NET の識別子は...
-
使用できる文字の規約
-
isnan・isnf関数が「識別子が見...
-
MSXML3でerror: 'C2065 IID_IXM...
-
CPUの考え方を教えてください ...
-
XMLで要素が記述された順番に意...
-
ルート要素ノードが2個ある場合?
-
SNMP リンクダウンとノードダ...
-
バッチファイルでテキストファ...
-
昔Winnyってありましたけど、あ...
-
VBSでxmlの値を書き換えたい
-
XML、XSLTの適応エラー(IEから...
-
同じタグ名の項目取得
-
xmlファイルが上手にHTMLに変換...
-
4バイトを10進数に変換する方法
-
XPathで途中に名前空間が設定さ...
-
eclipseへのxmlファイル追加
-
TreeViewに重複する値をセット
おすすめ情報