![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.2ベストアンサー
- 回答日時:
1. MeasureItemイベントで文字数から必要な矩形を計算し、e.ItemWidthとe.ItemHeightに設定
2. DrawItemイベントで、e.Bounsに指定された矩形に文字列を描画
この2点がポイントになります。
回答の正誤確認のためコードを書いたのでそのまま載せておきます。各項目の高さが分かるように枠を描画しています。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListBox1.DrawMode = Windows.Forms.DrawMode.OwnerDrawVariable
ListBox1.Items.Add("aaa")
ListBox1.Items.Add("abcdefghijklmnopqrstuvwxyz")
ListBox1.Items.Add("あいうえおかきくけこさしすせそたちつてと")
ListBox1.Items.Add("012345678901234567890123456789")
ListBox1.Items.Add("aaa")
ListBox1.Items.Add("abcdefghijklmnopqrstuvwxyz")
ListBox1.Items.Add("あいうえおかきくけこさしすせそたちつてと")
ListBox1.Items.Add("012345678901234567890123456789")
End Sub
Private Sub ListBox1_MeasureItem(ByVal sender As Object, ByVal e As System.Windows.Forms.MeasureItemEventArgs) Handles ListBox1.MeasureItem
Dim size As System.Drawing.SizeF
e.Graphics.PageUnit = Drawing.GraphicsUnit.Pixel
' ListBoxの幅で固定して高さを計測
size = e.Graphics.MeasureString(ListBox1.Items(e.Index).ToString, ListBox1.Font, ListBox1.ClientSize.Width)
e.ItemWidth = Convert.ToInt32(size.Width)
e.ItemHeight = Convert.ToInt32(size.Height)
End Sub
Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
If CBool(e.State And Windows.Forms.DrawItemState.Selected) Then
e.Graphics.FillRectangle(Drawing.Brushes.Blue, e.Bounds)
e.Graphics.DrawString(ListBox1.Items(e.Index).ToString, ListBox1.Font, Drawing.Brushes.White, e.Bounds)
Else
e.Graphics.FillRectangle(Drawing.Brushes.White, e.Bounds)
e.Graphics.DrawRectangle(Drawing.Pens.Pink, e.Bounds)
e.Graphics.DrawString(ListBox1.Items(e.Index).ToString, ListBox1.Font, Drawing.Brushes.Black, e.Bounds)
End If
End Sub
![「ListBoxで改行したい」の回答画像2](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/e/1240612_5497e2f7dc254/M.jpg)
No.1
- 回答日時:
オーナードローを使う必要があると思います。
.NET系なら比較的簡単に出来ますが、VB6/VBAだとWinAPIと格闘することになります。
.NET系でのオーナードロー
http://dobon.net/vb/dotnet/control/lbownerdraw.h …
VB6については過去ログにありました。
http://okwave.jp/qa1637047.html
この回答への補足
回答ありがとうございます!
.NET系なのでオーナードローでできそうです。
ですが、、1行に収まらない場合の改行ができません・・・。
行高さを文字数で変えてみたのですが、行高さのみが変わり、
改行とならず、1行に表示されたままです。
どのようにすればいいのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- gooブログ 記事の下にスクロールバーが表示される 2 2022/08/19 20:42
- その他(プログラミング・Web制作) マウスオーバー→ホイール回転でスクロールできない 2 2022/10/31 10:06
- Visual Basic(VBA) 【Excel VBA】条件に合った行の表示・非表示を行う方法 3 2023/03/18 12:31
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/03/09 10:07
- Excel(エクセル) エクセルの数式で教えてください。 5 2023/02/10 15:11
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/04/21 08:59
- Word(ワード) Word2013 縦書き上下二段の表、改行を続けると次ページに情報が表示されるようにしたい 3 2022/06/16 09:24
- Excel(エクセル) セル内で自分の好きなところで改行したいのですが、数式が入って無理なんです。 「折り返して全体表示」し 4 2022/05/15 18:50
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 1 2022/06/18 21:20
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルVBAでフォームのListboxをスクロールするには?
その他(Microsoft Office)
-
コンボボックスの項目中に改行を
Visual Basic(VBA)
-
VBAのリストボックスで、横スクロールバーを表示するには?
Visual Basic(VBA)
-
-
4
EXCEL VBA リストボックスの列を指定してForeColorを変更する方法について
Excel(エクセル)
-
5
Excel VBA コンボボックスについて
Excel(エクセル)
-
6
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
7
EXCEL2013 VBA ListBox 未選択
Excel(エクセル)
-
8
VB6,リストボックスの特定行の色変更は可能?
Visual Basic(VBA)
-
9
VBAのリストボックスをマウスでスクロール
PowerPoint(パワーポイント)
-
10
ExcelVBAのユーザーフォームの中に線を引きたい
Visual Basic(VBA)
-
11
複数選択のListBoxでClickイベントが拾えません
Visual Basic(VBA)
-
12
ユーザーフォーム スクロールバー 非表示にしたい
Excel(エクセル)
-
13
【VBA】【ユーザーフォーム_ListBox】オートフィルタで絞りこんだ値だけを取り出したい
Visual Basic(VBA)
-
14
ListView 項目の選択/選択解除について
Visual Basic(VBA)
-
15
リストボックスの特定行の背景色
Visual Basic(VBA)
-
16
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
17
VBA ユーザーフォームのChangeイベントを停止したい
Access(アクセス)
-
18
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
19
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
20
ExcelVBAでユーザーフォーム内のリストボックスの設定について
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ListBoxで改行したい
-
for文の実行速度を遅くしたいの...
-
C#で壁の当たり判定と自キャラ...
-
Word:描画オブジェクト内の画...
-
C#でPictureBox内での図形移動...
-
フォームに描画して表示をスク...
-
C#を用いて描画する四角形の角...
-
c言語 ちらつき
-
CADとC言語のリンク
-
円の頂点の求め方を知りたいです。
-
COLORREF color の反転色
-
花火のアルゴリズム
-
水平線の描画
-
ビットマップに描画をしてピク...
-
パソコンへの「Dropbox...
-
worksheetFunctionクラスのVloo...
-
VBA シートのボタン名を変更し...
-
実行時エラー 438になった時の...
-
Excelにて、ユーザーフォームで...
-
マクロで、次のコードへ行く前...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ListBoxで改行したい
-
for文の実行速度を遅くしたいの...
-
給紙トレイをダイアログを使わ...
-
win32api複数のタイマーを同時...
-
VB.NETでグラフィックを描くと...
-
C#を用いて描画する四角形の角...
-
MFCでのコンボボックスについて
-
画面に絵を出す方法
-
Word 描画オブジェクトを削除...
-
PowerPoint の VBA
-
C#で壁の当たり判定と自キャラ...
-
VB.netで図形描画ができません^^;
-
図の削除直後の再描画
-
円の頂点の求め方を知りたいです。
-
VB.NETでphotoshopのレイヤーの...
-
C# DrawImage 物理サイズでな...
-
ビットマップに描画をしてピク...
-
Excel 2007で、フリーフォーム描画
-
COLORREF color の反転色
-
VC;;6.0のMFCで線を簡単に引け...
おすすめ情報