combobox 如何让text居中_自定义TextBox控件对齐方式为为垂直居中

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const EM_GETRECT = &HB2

Private Const EM_SETRECTNP = &HB4

Private Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

Private Function SetVCenterText(userdefineTextBox As TextBox)

Dim rc As RECT

Dim UserControlTop As Long

Dim UserControlBottom As Long

If userdefineTextBox.MultiLine = False Then Exit Function

Call SendMessage(userdefineTextBox.hwnd, EM_GETRECT, 0, rc)

UserControlTop = ((rc.Bottom - rc.Top) - (UserControl.Parent.TextHeight("H") \ Screen.TwipsPerPixelY)) \ 2

UserControlBottom = ((rc.Bottom - rc.Top) + (UserControl.Parent.TextHeight("H") \ Screen.Twips