タイトル : Re^6: ListBox内での表示 投稿日 : 2005/09/21(Wed) 18:54 投稿者 : 花ちゃん
No.2217 の回答をよく見て下さい。 fStrCut 関数を使って下記を試して見て下さい。(テスト用に新しく作って下さい) Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click With ListBox1 .Visible = False .Font = New Font("MS ゴシック", 12.0) .Items.Add(fStrCut("ビビンバ", 16) & "3") .Items.Add(fStrCut("ホルモン", 16) & "4") .Items.Add(fStrCut("焼野菜", 16) & "4") .Items.Add(fStrCut("骨付きカルビ", 16) & "5") .Visible = True End With End Sub 実行結果です。(これが最後のレスです) hhttp://bbs4.aimix-z.com/gbbs.cgi?room=hanafusa |