タイトル : ListBox内での表示 投稿日 : 2005/09/21(Wed) 16:11 投稿者 : じゅん
[OSのVer]:WindowsXP [VBのVer]:VB.NET またまた投稿させていただきます。 以前の投稿の続きみたいなものですが。 SQLSevrからListBoxに条件を指定して表示させているのですが、ちょっと困ったことに・・・ txt商品とtxt数量に値を入れると商品と数量を表示するのですが、商品の文字数(?)によって商品名の 横に表示される数量がずれてしまいます。これをなんとか数量の縦の表示をそろえたいのですが。ど うしたらいいのでしょうか? <今の表示の際のコード> Private Sub txt数量_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt数量.TextChanged Try If Me.txt商品.Text = "" Then MessageBox.Show("商品コードが入力されていません") Exit Sub End If list商品.Items.Clear() Me.m_ShohinCodes.Clear() Me.SetSyohinMaster(Me.txt商品.Text, False) For i As Integer = 0 To Me.m_TestDt.Rows.Count - 1 Me.m_ShohinCodes.Add(CType(Me.m_TestDt.Rows(i)("商品コード"), Str ing)) list商品.Items.Add(CType(Me.m_TestDt.Rows(i)("商品名"), String) _ + StrDup(15, " ") _ + CType(Me.m_TestDt.Rows(i)("数量"), String)) Next Catch ex As Exception MessageBox.Show(ex.Message) End Try list商品.Enabled = True btn修正.Enabled = True btn削除.Enabled = True btn送信.Enabled = True Try If Me.txt商品.Text = "" Then MessageBox.Show("商品コードが入力されていません") Exit Sub End If If Me.txt数量.Text = "" Then MessageBox.Show("数量が入力されていません") Exit Sub End If list商品.Items.Clear() Me.m_ShohinCodes.Clear() Me.SetSyohinMaster(Me.txt商品.Text, True) For i As Integer = 0 To Me.m_TestDt.Rows.Count - 1 Me.m_ShohinCodes.Add(CType(Me.m_TestDt.Rows(i)("商品コード"), Str ing)) list商品.Items.Add(CType(Me.m_TestDt.Rows(i)("商品名"), String) _ + StrDup(15, " ") _ + CType(Me.m_TestDt.Rows(i)("数量"), String)) Next Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub <表示結果> ビビンバ---------3 ホルモン----------4 焼野菜----------4 骨付きカルビ-----5 のように数量がずれて表示される <これを> ビビンバ--------3 ホルモン--------4 焼野菜----------4 骨付きカルビ----5 -------は気にしないでください(スペースが使えなかったので(笑)) のように数量をそろえて表示させたいので。 よろしくお願いします。 |