タイトル : 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関数はそのままです が、しかし、表示はずれます(涙) |