tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

-------は気にしないでください(スペースが使えなかったので(笑))
のように数量をそろえて表示させたいので。
よろしくお願いします。


 

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。