ComboBoxの表示について

質問

ＶＢ入門者ですがよろしくお願いします。
２００５を使用しているのですが、

ComboBoxのtextの内容を中央に表示したいのですが、
どうしたらよいのでしょうか？
（TextBoxの.TextAlignのようなもの）
教えてください。

回答No.1

unamana19 · ベストアンサー

プロパティの設定だけでは実現できません。

ComboBoxのDrawModeプロパティをOwnerDrawFixedまたは、OwnerDrawVariableに設定して、
ComboBoxのDrawItemイベント内で描画の処理を行ってやります。

Private Sub ComboBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ComboBox1.DrawItem

　　Dim cmb As ComboBox = CType(sender, ComboBox)
　　Dim txt As String = cmb.Items(e.Index).ToString
　　Dim sf As SizeF = e.Graphics.MeasureString(txt, e.Font)

　　Dim rf As RectangleF
　　With rf
　　　　.X = (e.Bounds.Width - CInt(sf.Width)) \ 2
　　　　.Y = e.Bounds.Y
　　　　.Width = e.Bounds.Width
　　　　.Height = e.Bounds.Height
　　End With
　　e.DrawBackground()
　　e.Graphics.DrawString(txt, e.Font, Brushes.Black, rf)
　　e.DrawFocusRectangle()

End Sub

このような感じ・・・
フォントの色などは手抜きなので・・・

（注意！表示の関係上、ソースのスペースは全角にしています）

お礼

早速のご回答ありがとうございました。

すみません。ｖｂ入門者なので・・・
うまく動作しませんでした。

ComboBoxのDrawModeプロパティをOwnerDrawFixedに設定して、
以下のプログラムをそのままコピーしたのですが、
それではダメなのでしょうか？
drawitemはいつ、発生するイベントなのですか？
よろしければ、教えてください。

回答No.2

imogasi

Additems するアイテム文字列について、
所定の長さのスペース文字列を用意し、
（所定の長さー当アイテム文字列長さ）/２を整数化した位置から
当文字列を貼り付た文字列を
アイテムとして設定してはどうでしょう。

お礼

ありがとうございました。