
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

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も見ています
-
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
VB6,リストボックスの特定行の色変更は可能?
Visual Basic(VBA)
-
ExcelVBAのユーザーフォームの中に線を引きたい
Visual Basic(VBA)
-
-
4
UserForm1.Showでエラーになります。
工学
-
5
リストボックスの特定行の背景色
Visual Basic(VBA)
-
6
エクセルVBAでフォームのListboxをスクロールするには?
その他(Microsoft Office)
-
7
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
8
コンボボックスの項目中に改行を
Visual Basic(VBA)
-
9
VBA フォームのテキストボックスにセルの値を表示させたいが改行していたら改行もあわせて表示させたい
Excel(エクセル)
-
10
ExcelVBA でリストリストボックスに列見出しをコーディングでつける
Excel(エクセル)
-
11
エクセルVBAでマルチページの切り替え方法の件で
Excel(エクセル)
-
12
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
13
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
14
Excel VBA コンボボックスについて
Excel(エクセル)
-
15
Excelの入力規則で2列表示したい
Excel(エクセル)
-
16
ユーザーフォームをホイールでスクロールする方法(Excel2000VBA)
Excel(エクセル)
-
17
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
18
VBAのリストボックスで、横スクロールバーを表示するには?
Visual Basic(VBA)
-
19
アクセスのフィールド表示を2段にする方法・抽出の方法
Access(アクセス)
-
20
複数選択のListBoxでClickイベントが拾えません
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ListBoxで改行したい
-
円の頂点の求め方を知りたいです。
-
PictureBoxのダブルバッファリ...
-
excel2007 ではマクロの記録で...
-
C#(.net) ドロー系ソフト作成 ...
-
WindowsAPIの、ウインドウの表...
-
画面に絵を出す方法
-
線の描画速度
-
ポリゴン 球体を三角形パッチ...
-
CADとC言語のリンク
-
delphi 画面のちらつき
-
ビットマップに描画をしてピク...
-
VC++2010 MFC EDIT に格子
-
フォームに描画して表示をスク...
-
VC;;6.0のMFCで線を簡単に引け...
-
Word:描画オブジェクト内の画...
-
立方体をくるくる回転させるプ...
-
角が丸い長方形の描画
-
for文の実行速度を遅くしたいの...
-
C#で壁の当たり判定と自キャラ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ListBoxで改行したい
-
C#を用いて描画する四角形の角...
-
for文の実行速度を遅くしたいの...
-
給紙トレイをダイアログを使わ...
-
PowerPoint の VBA
-
VB.NETでグラフィックを描くと...
-
MFCでのコンボボックスについて
-
PictureBoxのダブルバッファリ...
-
Word:描画オブジェクト内の画...
-
VB PictureBoxの描画範囲
-
VC++ MFCチェックボックスの色...
-
Word 描画オブジェクトを削除...
-
Visual C++ MaskedTextBoxの右...
-
C++/CLIを用いて画像をクリップ...
-
VB.netで図形描画ができません^^;
-
VC;;6.0のMFCで線を簡単に引け...
-
VB.NETでphotoshopのレイヤーの...
-
角が丸い長方形の描画
-
図の削除直後の再描画
-
vb6のTEXTBOX
おすすめ情報