掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
リスト選択時ラベルの表示を正しくするには？ (ID:140313)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
初めまして。 VB6で初歩的なプログラムを練習しているのですが、 詰まってしまったので質問させて頂きます。 リストボックス1とラベル1使ってます。 --------------------------------------- Option Explicit Dim kudamono As String Private Sub Form_Load() List1.AddItem "青森" List1.AddItem "愛媛" List1.AddItem "山梨" End Sub Private Sub List1_Click() Select Case List1.ListIndex Case 0 kudamono = "りんご" Case 1 kudamono = "みかん" Case 2 kudamono = "ぶどう" End Select Label1.Caption = List1.Text & "の名産は" & kudamono & "です。" End Sub ------------------------------------------ リストをクリックすると『○○の名産は××です。』と表示されます。 問題はこれに追加と削除のコマンドボタンを追加するというプログラムです。 追加のプログラムは出来たのですが、リスト1をクリックすると 『○○』は問題なく表示されるのですが『××』が表示しません。 ヒントとして果物をリストボックスに入れて都道府県名と同じ場所を見れば良いと 聞いたのですが、どうしても上手くいきません。 どの様にすれば宜しいでしょうか。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.