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

タイトル Re^6: ListBox内での表示
投稿日: 2005/09/21(Wed) 18:42
投稿者じゅん
[OSのVer]:Windows    [VBのVer]:VB.NET  
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)("商品コード"), String))
                list商品.Items.Add(CType(Me.m_TestDt.Rows(i)("商品名"), String) _
                 + fStrCut(" ", 15) _
                 + CType(Me.m_TestDt.Rows(i)("数量"), String))
            Next
            list商品.Items.Add(fStrCut(" ", 15))
        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)("商品コード"), String))

                list商品.Items.Add(CType(Me.m_TestDt.Rows(i)("商品名"), String) _
                 + fStrCut(" ", 15) _
                 + CType(Me.m_TestDt.Rows(i)("数量"), String))
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try


        txt商品.Focus()
        txt商品.SelectAll()

        

    End Sub

fStrCut関数はそのままです
が、しかし、表示はずれます(涙)

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

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