• ベストアンサー

ComboBoxの値（Items）をＶＢコードで表したい

ComboBox1のプロパティのItemsのコレクションに １行目 ２行目 と入力すると。きちんと表示されます。 しかし都合上、コードで記載したいのですが、 Me.ComboBox1.Items = "１行目";"２行目" とすると、 エラー 1 プロパティ 'Items' は 'ReadOnly' です。 エラー 2 文字が有効ではありません。 となります。 コードで指定することはできないのでしょうか？

  • 1hdthd
  • お礼率97% (239/244)

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

  • ベストアンサー
  • OMEGAT
  • ベストアンサー率70% (455/642)
回答No.1

VB.NETでしょうか。 Me.ComboBox1.Items.Add("１行目") Me.ComboBox1.Items.Add("２行目") とすれば出来ます。 [参考] Windows フォームの ComboBox、ListBox、または CheckedListBox コントロールに項目を追加または削除する http://msdn.microsoft.com/ja-jp/library/19fc31ss.aspx

1hdthd
質問者

お礼

できました。 ありがとうございます。

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

関連するQ&A

  • ComboBoxのItem追加

    VB.NETでの開発初心者です。 ComboBoxのItem追加について、１行づつ追加していくのは理解できているのですが、HTMLでのListBox「OPTIONS設定」の様にArrayListにて一括追加する方法がわかりません。　ご存知の方、よろしくお願いします。　 ＜１行づつ追加＞ 　Me.ComboBox1.Items.Clear() 　Me.ComboBox1.Items.Add(New ComboItems(Key値, 表示値)) 　 　※ComboItemsクラスは、別途作成 ＜一括追加＞ 　Dim comboArray As New ArrayList 　comboArray.Add(New ComboItems(Key値, 表示値)) 　Me.ComboBox1.Items.???（comboArray）　←　ここがわからない 　

  • コンボボックスのクリアー

    VisualBasic2008です combobox１　の指定で　combobox２　にデータベースから datasourceで取り込んでいます。 この際に、combobox2をクリアーしてから取り込みたいのですが With ComboBox2.items .Clear() End With この方法では「データソース プロパティを設定したときに Items コレクションを変更することはできません。」とエラーになります。 色々他の方法で行いましたが、同じエラーになります。 どのようにすれば良いのかご指導お願いします。

  • ComboBoxについて

    ComboBoxのアイテムリストからアイテムを選んだら 選んだアイテムに対応した別の文字列 をComboboxに表示したいと思います。 動き的には Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 　ComboBox1.Text = "" 　ComboBox1.Items.Add("000") 　ComboBox1.Items.Add("001") 　ComboBox2.Text = "" 　ComboBox2.Items.Add("0個目") 　ComboBox2.Items.Add("1個目") 　ComboBox2.Visible = False End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged 　Select Case ComboBox1.SelectedIndex 　　Case 0 　　　ComboBox1.Visible = False 　　　ComboBox2.Visible = True 　　　ComboBox2.SelectedIndex = 0 　　Case 1 　　　ComboBox1.Visible = False 　　　ComboBox2.Visible = True 　　　ComboBox2.SelectedIndex = 1 　End Select End Sub Private Sub ComboBox2_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox2.GotFocus 　ComboBox1.Visible = True 　ComboBox1.DroppedDown = True 　ComboBox2.Visible = False End Sub こんな感じで、ComboBoxを二つ使えば実現できるのですが一つだけでも実現できる方法が ありましたら、教えてくださいませ。

  • DataGridViewのComboBoxについて

    お世話になります。 現在、VB2008にて、 csvファイルの内容をDataGridViewに書き込むという プログラムの作成をしているのですが、 csvの中身を書き込むという作業はできるのですが、 ComboBoxの列のみ、値が書き込まれません。 csvの値は、DataGridViewのComboBoxのリストと同じ値を 入力しており、リスト以外の値が入力されている ということはありません。 Dim Items() As String '一行を, (カンマ)で区切って項目ごとに分解 Items = Line.Split(",") For n = 0 To Items.Length - 1 If Items(n).Replace("""", "") = Nothing Then Items(n) = "0" End If Next n 上記のコードで、 Items()という変数に、csvの値を格納し、 DataGridVIew1.Rows(0).Cells(0).Value = Items(0) という形で値を格納していますが、 どうしてもComboBoxの列のみ変化がありません。 どなたか、解決策もしくはComboBox列などに関する 情報などをご教授願えないでしょうか、 よろしくお願いします。

  • ComboBoxでの一文字検索が上手くいきません

    ソフトはＥＸＣＥＬ2003です。 質問内容： ユーザーフォーム習い始めたところで、つまずいています。 やりたいことは、フォーム上に配置したComboBoxに別シート（選択一覧）で作成した「カタカナ１文字、会社名、会社コード」の３項目を表示可能にしておく。 ComboBoxへのカタカナ1文字入力により、該当する会社の上記３項目を表示し、会社選択後ComboBoxには会社名を表示、リストボックスには選択した会社コードを表示し、登録リストに会社名と会社コードを登録する。 フォームを作成してテストしましたが、一部のカタカナ（ヒなど）で該当する会社が選択されません。 何が問題なのか知識が足りませんので、困っています。 お分かりになる方に教えて頂きたくお願いします。 なお今回会社名をカタカナ１文字検索にしたのは、例えば社名の前に（株）等が付くものや、同じ漢字でも日本（ニホン）、日陰（ヒカゲ）等呼び名が異なるものがあるためです。 また、ComboBoxのプロパティは「MatchEntry」を「0-fmMatchEntryFirstLetter」としてあります。 ところで作成した命令は次の通りです。 Private Sub UserForm_Initialize() Dim MyVar1 As Variant Dim Ws1, Ws2 As Worksheet Dim LastRow As Long Set Ws1 = Worksheets("登録") Set Ws2 = Worksheets("選択一覧") Ws2.Select MyVar1 = Range("A3:C490") With ComboBox1 　 .ColumnCount = 3　　’カタカナ１文字、会社名、会社コード 　 .ColumnWidths = "20;230;10" 　 .List = MyVar1 End With ComboBox1.TextColumn = 2 　　Ws1.Select 　　ComboBox1.MatchEntry = fmMatchEntryFirstLetter End Sub Private Sub ComboBox1_Change() '会社名処理 Dim Ws1, Ws2 As Worksheet Dim NawRow As Long Set Ws1 = Worksheets("登録") Set Ws2 = Worksheets("選択一覧") ComboBox1.MatchEntry = fmMatchEntryFirstLetter 　　　'表示行数を確認 一番上が「0」なので＋１ 　　NawRow = Me.ComboBox1.ListIndex + 1 　　TextBox4.Text = Ws2.Cells(NawRow + 2, 3) '会社コード表示；選択一覧は3列3行目から開始 Ws2.Cells(1, 1) = NawRow + 3 　　　　　　'選択一覧1行目に選択行表示　デバック用 End Sub 　※登録リストへの会社名と会社コードを登録する部分は省略しました。 　以上よろしくお願いします。 その他、このような多くの会社名選択で、よい方法があれば教えてください。

  • dijit.form.ComboBoxについて

    こんにちは Dojo v1.7で開発を行っている者です。 開発しているモジュールで、dijit.form.ComboBoxを使用しているのですが、 ドロップダウンリストの項目を入力不可(選択は可能)にしたいと思っています。 プロパティで、readOnly:trueを設定してしまいますと、ドロップダウンリストも読取り専用になってしまい、選択出来なくなってしまいます。 どなたか、上記問題の解決をご存知の方おりますでしょうか？

  • vb2005のcomboboxについて

    <form name="frm1"> <select name="permit"> <option value="0">いいよ</option> <option value="3">駄目！</option> </select> <input type="button" value="OKv" onClick='alert(frm1.permit.value)'> <input type="button" value="OKt" onClick='alert(frm1.permit.text)'> </form> Web上でこういうセレクトボックスがあったとして、画面上では「駄目！」が選択されているとします。 ここで「OKv」ボタンをクリックすると、その セレクトボックスpermit のvalueである"3"が表示されます。 ここで「OKt」ボタンをクリックすると、その セレクトボックスpermit のtextである"駄目！"が表示されます。 ウェブ上ではたったこれだけのことなんですが。 が、これをvb.net（vb 2005）でやろうとするとどうするのかわかりません・・。 comboboxのどこのプロパティに何をどうセットするのでしょうか。 ちょっと調べてみるとDataSource をセットして、DisplayMember がどうとか出てきましたが、そういうことをしないといけないのでしょうか。 こちらはDataSource も何もなく、手動で（コード上で）valueとtextを設定・取得したいだけなんですけど・・。 何か凄い間違ってるような気もするのですが・・そうでしたらその旨ご指摘くださいますようお願いします。

  • VC# コンボボックスの大文字・小文字を区別する

    VC# 2005で、以下のようなコードを書くと、大文字・小文字の区別がなく、 1行目で追加したアイテムが選択された状態になってしまいます。 comboBox1.Items.Add("a"); comboBox1.Text = "A"; 大文字・小文字を別として扱うことはできますでしょうか？

  • vb .net Winアプリでコンボボックスに値を

    vb .net Winアプリでコンボボックスに値をセットする方法を教えて下さい。 table1 都道府県コード,都道府県名(カナ),都道府県名 01,ホッカイドウ,北海道 02,アオモリケン,青森県 03,イワテケン,岩手県 のテーブルがあり、既に読み込んでいます。 このデータをコンボボックスにセットしたいです。 Dim NpgsqlConnection1 As NpgsqlConnection Dim NpgsqlCommand1 As NpgsqlCommand Dim NpgsqlDataAdapter1 As NpgsqlDataAdapter Dim String1 As String Dim DataTable1 As DataTable NpgsqlConnection1 = New Npgsql.NpgsqlConnection NpgsqlConnection1.ConnectionString = gstrCnct NpgsqlConnection1.Open() String1 = "select * from table1;" NpgsqlCommand1 = New NpgsqlCommand NpgsqlCommand1.Connection = NpgsqlConnection1 NpgsqlCommand1.CommandText = String1 NpgsqlDataAdapter1 = New NpgsqlDataAdapter(String1, NpgsqlConnection1) DataTable1 = New System.Data.DataTable NpgsqlDataAdapter1.Fill(DataTable1) ' 一括の方法でもＯＫ ' Me.ComboBox1.？？？ = ？？？？ ' ぐるぐるしながらセットでもＯＫ ' Me.ComboBox1.？？？ = Space(0) ' Me.ComboBox1.？？？ = "ミセンタク" ' Me.ComboBox1.？？？ = "未選択" For Each DataRow1 As DataRow In DataTable1.Rows ' Me.ComboBox1.？？？ = DataRow1("都道府県コード") ' Me.ComboBox1.？？？ = DataRow1("都道府県名(カナ)") ' Me.ComboBox1.？？？ = DataRow1("都道府県名") Next DataRow1 ■要件 メインの情報は都道府県名ですが、 めくった時に 都道府県コード,都道府県名(カナ),都道府県名 を見せる形で作りたいです。 都道府県コードは取り出す必要があります。 データ １行目は空白,ミセンタク,未選択 ２行目以降はtable1から取り出した値。 以上、よろしくお願いします。

  • Excel VBA　ComboBox

    質問させて頂きます。 現在ユーザーフォーム内にComboBoxを配置しリストに、チヌ/チヌマン(魚名)を入れています。 問題は手入力でも指定出来る用にしたいのですが、「チヌ」と入力しEnterをしますと「チヌマン」と出てしまいます。 この２つの魚名は全く異なりますので入力した文字列で済む方法は無いでしょうか？ よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する