Visual Basic 2008のリストボックスで項目を選択した時にイベントを起こしたい

前へ 次へ
このQ&Aのポイント
  • Visual Basic 2008のリストボックスで項目を選択した時にイベントを起こす方法について教えてください。
  • リストボックス内の項目をクリックした時にイベントを起こすためのコードを教えてください。
  • リストボックスの項目を選択した際に動作する処理を実装する方法を教えてください。
回答を見る
  • ベストアンサー

Visual Basic 2008 のリストボックスで項目を選択した時にイベントを起こしたい。

VisualBasic2008のリストボックスで、リストボックス内の項目をクリックした時にイベントを起こしたいのですが、 Private Sub の後に何と書いたらいいか分かりません。 どなたかご存知の方がいらっしゃったらご解答お願いします。 どのように使いたいかというと、例えばリストボックスは １：リンゴ ２：みかん ３：すいか と入っていたとします。 その時に２行目の「２：みかん」の列をクリックしたとしたら、ちょっと文字列を操作(いらない部分を切ったり)してLabel2に「みかん」を表示、という感じに使いたいです。 違う列をクリックする度に再取得。 実行中に、削除ボタンを押してその列を削除したら(こちらのボタンは出来ています)、違う列を自分でクリックしない限りは何も取得しないのが望ましいです。

質問者が選んだベストアンサー

  • ベストアンサー
noname#187541
noname#187541
回答No.1

こんばんは。 VisualBasic2005ですが、イベントとしては「SelectedIndexChanged」で出来ます。 コードエディター(コードを記述する画面)の上部にコンボボックスが2つ並んでいるところがあると思います。 左側のクラス名で該当のListBoxを選び、右側のメソッド名でSelectedIndexChangedを選びます。 そうすれば自動的にイベントプロシージャ作られます。

harmonian
質問者

お礼

ありがとうございます、出来ましたm(_ _)m ListBox名_listIndex でも出来たんですが、何か違い等はあるんでしょうか？

その他の回答 (1)

noname#187541
noname#187541
回答No.2

ListIndexというイベントは無いはず(2005/2008で確認)なので？です。 ただ、SelectedIndexChangedイベントをListBox名_listIndexと言う名前にすることは可能です。 イベントとプロシージャを関連付ける http://homepage1.nifty.com/rucio/main/dotnet/Samples/SmpleCnt.htm こちらのような方法で出来ます。

harmonian
質問者

お礼

すみません、どうやら仰るとおり、 『SelectedIndexChangedイベントをListBox名_listIndexと言う名前』にしてやっていたようです。 ありがとうございましたm(_ _)m

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • リストボックスから項目を選択してセルに入力したいのです

    EXcel2003でマクロ作成中です。エクセルシートのＮ列を右クリックすると、ユーザーォームが現れ、その中のリストボックスから項目を選択すると選択文字が白色に反転します。 ユーザーホームの下方に設置した「入力する」ボタンをクリックする、アクティブセルにテキスト文字列が挿入されます。 Option Explicit Private Sub CommandButton1_Click() With ListBox1 If .ListIndex = -1 Then MsgBox "項目を選択してくだい" Else ActiveCell.Value = ListBox1.list(ListBox1.ListIndex) End If End With Unload UserForm1 End Sub --------------------------- Private Sub CommandButton2_Click() Unload UserForm1 End Sub ------------------------------ これと同じものをＢ列につくりました。エクセルシートのＢ列を右クリックすると、リストボックスが表示されますが、その中の項目を選択しようとすると、一瞬にしてユーザーフォーム自体が消えてしまい項目を 選択できません。 Private Sub CommandButton1_Click() With ListBox2 If .ListIndex = -1 Then MsgBox "項目を選択してくだい" Else ActiveCell.Value = ListBox2.list(ListBox2.ListIndex) End If End With Unload UserForm2 End Sub ----------------------------- Private Sub CommandButton2_Click() Unload UserForm2 End Sub ------------------------------------------ まったく同じものを作って内容だけかえたのですが、できません。 どうしてでしょうか？ご教授おねがいします。

  • リストボックスで選択した項目を削除するには

    Excel2003を使用しています。 ユーザフォームのリストボックスには"Sheet1!A1:C10"が表示されるようになっています。 Private Sub UserForm_Initialize() 　UserForm1.ListBox1.ColumnCount = 3 　UserForm1.ListBox1.RowSource = "Sheet1!A1:C10" End Sub たとえばリストボックス上で3行目(A3:C3)を選択して、削除ボタンをクリックすれば選択された値が表示から消えて、セル上の値も削除されるようにしたいのです。 できれば削除されると同時に4行目(A4:C4)以降の値が上にスライドされるようにできればいいのですが、まだまだ理解できない部分が多くて自分では解決できませんでした。 ご存知の方がいらっしゃいましたらご教授頂けないでしょうか。 宜しくお願い致します。

  • Excel VBA　リストボックスの複数列表示の方法について

    すいません、エクセルVBAのユーザーフォームのリストボックスの表示方法について質問があります。 シートのセルに 　　 A列 　 D列　　　G列 1行 りんご　　赤　　　120円 2行　みかん　　黄　　　130円 3行　すいか　　緑 110円 4行　りんご　　赤 160円 . ・・・　　・　　　・・・ . と、50行まで値を入れます。 VBAでユーザーフォームを挿入し、 Private Sub UserForm_Initialize() With ComboBox1 .AddItem "りんご" .AddItem "みかん" .AddItem "すいか" End With End Sub でコンボボックスの値を設定し、次に Private Sub ComboBox1_Change() Dim i As Integer For i = 1 To 50 If Cells(i, 1).Value = ComboBox1.Value Then With ListBox1 .ColumnCount = 3 .AddItem Cells(i, 1) End With End If Next i End Sub このときコンボボックスと同じ値の行について、 リストボックスにA列、D列、G列を表示させるにはどうしたらいいのでしょうか。 例えばコンボボックスで「りんご」を選択したときに、 リストボックスを りんご　赤　120円 りんご　赤　160円 と表示させたいのですが、 .AddItem Cells(i, 1) では一列だけしか表示できません。 Rowsorceを使ってみたりしましたが、どうにもうまく出来ませんでした。 よろしくお願いいたします。

  • 複数選択可能なリストボックス

    Excel VBAの質問をさせてください。 シート(sheet1)のA列、セルA1から以下のデータがあるとします。 みかん りんご バナナ 苺 梨 バナナ バナナ みかん フォームのリストボックスで"みかん"と"バナナ"を選択した際、シート(sheet2)のセルA1にコピーしていきたいのですが機能しません。 単品、"みかん"だけを選択しても何もコピーされません。 どこがいけないでしょうか?? Private Sub UserForm_Initialize() 　　With ListBox1 　　　　.AddItem "みかん" 　　　　.AddItem "りんご" 　　　　.AddItem "バナナ" 　　　　.AddItem "苺" 　　　　.AddItem "梨" .MultiSelect = fmMultiSelectMulti 　　End With End Sub Private Sub CommandButton1_Click() Dim i As Long For i = 1 To 8 If Worksheets("Sheet1").Cells(i, "A").Value = Me.ListBox1.Value Then Worksheets("Sheet1").Cells(i, "A").Copy Worksheets("Sheet2").Cells(i, "A") End If End Sub

  • ＶＢ２００８リストボックスの値が取得できません

    リストボックスのITEMプロパティで文字列を追加後、コマンドボタン押下時にリストボックスの値を取得したいのですが、リストボックスの値が取得できません ソースは下記のようになっています Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox(ListBox2.SelectedItem) End Sub End Class アドバイスお願いします

  • リストボックスからリストボックスへ（複数列）

    データ読み込み済みのリストボックス１（4列）から空白のリストボックス（4列）へ、コマンドボタンをクリックしたらデータが追加されるコードを作成しました。 Private Sub CommandButton1_Click() Dim i As Long For i = 0 To 8 With ListBox1 ListBox2.AddItem .List(.ListIndex, i) End With Next i データは追加されましたが、縦方向にデータが追加され、 横方向に追加されませんでした。 どうすれば複数列のデータをそのまま複数列のリストボックスに追加できるでしょうか。 よろしくお願いします。 End Sub

  • リストボックスの複数選択について

    ACCESS2003を使っています。 入力用フォームにリストボックスを作って 複数選択するようプロパティで変更しました。 この情報をテーブル上に反映させることができません。 どうしたらいいのかお教えください。 具体的には 入力用フォームに りんご（＊） みかん かき（＊） スイカ　　　（＊）印は黒反転 この状態で入力するとテーブル上に りんご　かき というように表示するようにしたいのです。

  • 選択項目移動処理（リストボックス）

    表題の件で、ご質問があります。 excel2003で、VBAのユーザフォームを使っております。 リストボックスが二つあり、左の項目を選択したら右の項目にその選択した値が移動する処理をしたいのですがまったくできません。 ＜処理内容＞ ・リストボックス１の内容 りんご text メロン トマト 上記で、りんごをダブルクリックするとリストボックス１とリストボックス２の内容は以下になります。 ＜選択後結果＞ ・リストボックス1 text メロン トマト ・リストボックス２ りんご このようにダブルクリックしたらりんごは消えてリストボックス２に移動します。 また逆の処理もしたくたとえばこの状態でリストボックス２を選択したらりんごがリストボックス１に戻る。 ＜処理内容＞ ・リストボックス２ りんご ・リストボックス1 text メロン トマト リストボックス２をダブルクリックすると以下のようになります。 ・リストボックス２ ・リストボックス1 りんご text メロン トマト このようになります。 上記二点の処理がしたいと思います。 どなた様か御教授頂けないでしょうか？ お手数お掛けしますが宜しくお願いします。

  • リストボックスから選択したデーターの一つだけを取得する

    VB５．０を使っています。 WIN２０００です。 MDBとVBを使っています。 まず、顧客ID・顧客氏名・電話番号　　この３つが１つのデータとして横並びの文字列で、リストボックスに表示されてゆきます。 リストボックスに表示したデータを選択し、その選択したデータの”顧客ID”だけを取り出して同じフォーム内のテキストボックスにいったん出し、そこから別のフォームに飛んでその”顧客ID”を元にデータの詳細を出す、といったものを作っていますが、 今のわたしの書いてるコードだけでは、何番の顧客IDを出しても、 別のフォーム（契約入力）に行くときには同じ１番の人のデータ詳細しか出ません。 「リストボックスから選択したデーターの一つだけを取得する」 には、どのようなコードを書けばいいか、教えていただけないでしょうか・・。 リストボックス（List1）から選択してテキストボックス（Text5）に取得する際にはすでに”顧客ID”だけを取り出したいのです。 今のコードでは、顧客ID・顧客氏名・電話番号　とすべてテキストボックス（Text5）にでてきてしまいます。 Private Sub cmnd2_Click()’選択ボタンclickでリストボックスのデータを取得。 Dim ListIndex As Integer Dim SelectedIndex As Integer Text5.Text = List1.List(List1.ListIndex)'→ここでリストボックスからデータを取得しています。 End Sub

  • エクセル　VB：　フォーム内のリストボックスの項目

    エクセルVBなのですが、フォームをつくってその中にリストボックスを配置しました。 コマンドボタンで呼び出して、シート内にあるリストから項目を抽出し反復を省略したリストを フォーム内のリストボックスに作りたいのですが。 Private Sub CommandButton1_Click() UserForm1.Show (このあとリスト項目のコード) End Sub コマンドボタンをクリックすると、UserForm1が現れますが、リストの中身は空です。一度Unload meでフォームを終わらせて、２回目クリックするとリストの中身が現れます。 一回目のクリックでエラーは出ません。 一回目のクリックでリストを配置したいのですが、何が問題なんでしょうか？ Excel2003 Windows Xp です。 よろしくご教示下さい。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する