C# と VB.NET の質問掲示板

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

■90513 / 親階層)  textboxで文字を入れ、ComboBoxがおかしくなる
□投稿者/ aa (3回)-(2019/03/15(Fri) 23:13:16)

分類:[.NET 全般] 

2019/03/18(Mon) 00:05:52 編集(投稿者)
2019/03/16(Sat) 12:42:58 編集(投稿者)

<pre><pre>ご質問させていただきます。

ComboBox1.SelectedIndexとtextboxに文字をいれるとコンボボックスのアイテムがその文字(アイテム)が出るようにしています。

分からない事、やりたい事

テキストボックスに文字を(い)入れるとコンボボックスのアイテムは
いだけに表示され、何故か画像a00に表示されます。
い1選択されているはずなのに画像がa00となってます。

すいません、初心者ですか。
うまくいきませんでした。
教えてください。お願いします。

ソースコードVBです。
=========================================================
'Form1

Imports System.IO
Imports System
Imports System.Globalization
Imports System.Threading

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If ListBox1.SelectedIndex = 0 Then
'新しいフォームです。
_07_shouhin.Show()
Me.Hide()
End If
End Class

===========================================
'新しいフォーム
Imports System.ComponentModel
Imports System.Globalization
Public Class _07_shouhin

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

TextBox1.Text = ComboBox1.SelectedValue.ToString

End Sub


Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
Dim cca = New CultureInfo("ja-jp").CompareInfo
Dim opt As CompareOptions
opt = opt Or CompareOptions.IgnoreWidth '全角と半角を区別しない
opt = opt Or CompareOptions.IgnoreKanaType 'ひらがなとカタカナを区別しない
opt = opt Or CompareOptions.IgnoreCase '大文字と小文字を区別しない
opt = opt Or CompareOptions.IgnoreNonSpace '文字列比較で分音文字などの結合の分音文字を無視することを示します。
opt = opt Or CompareOptions.IgnoreSymbols '文字列の比較が空白文字が区切り記号、通貨記号、パーセント記号、数学記号、アンパサンド、やなどの記号を無視することを示します。

Dim txt As String = TextBox2.Text

ComboBox1.DataSource = list.Where(
Function(s)
Return 0 = cca.Compare(Strings.Left(s.Key, txt.Length), txt, opt)
End Function).ToArray()

End Sub

Private Sub _07_shouhin_Load(sender As Object, e As EventArgs) Handles MyBase.Load

TextBox1.Enabled = False
'アイテムはあ1x3とい1x3
list.Add("あ1",0)
list.Add("あ1",0)
list.Add("あ2",0)
list.Add("あ3",0)
list.Add("い1",0)
list.Add("い2",0)
list.Add("い3",0)
ComboBox1.DisplayMember = "key"
ComboBox1.ValueMember = "value"
ComboBox1.DataSource = New BindingSource(list, Nothing)

ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
end sub

'画像とselectindex

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'あ1、画像A00.jpgです。
If ComboBox1.SelectedIndex = 0 Then
PictureBox1.Image = My.Resources.A00
End If
'あ2、画像A01.jpgです。
If ComboBox1.SelectedIndex = 1 Then
PictureBox1.Image = My.Resources.A01
End If
'あ3、画像A02.jpgです。
If ComboBox1.SelectedIndex = 2 Then
PictureBox1.Image = My.Resources.A02
End If
'い1、画像A03.jpgです。
If ComboBox1.SelectedIndex = 3 Then
PictureBox1.Image = My.Resources.A03
End If
'い2、画像A04.jpgです。
If ComboBox1.SelectedIndex = 4 Then
PictureBox1.Image = My.Resources.A04
End If
'い3、画像A05.jpgです。
If ComboBox1.SelectedIndex = 5 Then
PictureBox1.Image = My.Resources.A05
End If
end sub
================================================

A00.jpg 〜A05.jpgはPictureboxのプロパティimageにいれました。
お助けお願いします。
Vistua lbasic
Frameworck4.7.2
OS windows10
Vistualstudio2019です。</pre></pre>
編集キー/

前の記事(元になった記事) 次の記事(この記事の返信)
親記事 →Re[1]: textboxで文字を入れ、ComboBoxがおかしくなる /Azulean
→Re[1]: textboxで文字を入れ、ComboBoxがおかしくなる /魔界の仮面弁士
 
上記関連ツリー

textboxで文字を入れ、ComboBoxがおかしくなる / aa (19/03/15(Fri) 23:13) #90513 ←Now
Re[1]: textboxで文字を入れ、ComboBoxがおかしくなる / Azulean (19/03/18(Mon) 06:06) #90522
Re[1]: textboxで文字を入れ、ComboBoxがおかしくなる / 魔界の仮面弁士 (19/03/18(Mon) 09:50) #90523
  └ Re[2]: textboxで文字を入れ、ComboBoxがおかしくなる / aa (19/03/18(Mon) 12:49) #90527
    ├ Re[3]: textboxで文字を入れ、ComboBoxがおかしくなる / aa (19/03/19(Tue) 13:34) #90539
    └ Re[3]: textboxで文字を入れ、ComboBoxがおかしくなる / 魔界の仮面弁士 (19/03/19(Tue) 14:08) #90540
      └ Re[4]: textboxで文字を入れ、ComboBoxがおかしくなる / aa (19/03/19(Tue) 14:50) #90541 解決済み

上記ツリーを一括表示 / 上記ツリーをトピック表示
 
上記の記事へ返信