vb.net - 如何在 VB.Net 组合框中水平对齐文本

Question

我找不到允许我在 vb.net 组合框中对齐文本的属性。文本框具有 TextAlign 属性，但组合框没有。组合框是否使用了另一个属性？还是有其他方法可以做到这一点？

谢谢

Answer 1

如果组合DropDownStyle设置为DropDownList您可以通过所有者绘制项目来完成。为此，请将其DrawMode属性设置为OwnerDrawFixed并在DrawItem事件中添加如下内容：

If e.Index >= 0 Then
    Using st As New StringFormat With {.Alignment = StringAlignment.Far}
        e.Graphics.DrawString(sender.Items(e.Index).ToString, e.Font, Brushes.Black, e.Bounds, st)
    End Using
End If