| |
Выравнивание надписи на кнопке |
|
| |
Добавьте на форму элемент Command Button. Изменяя константу fAlignment&, изменится местоположение надписи на кнопке.
Private Declare Function GetWindowLong& Lib
"user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As
Long)
Private Declare Function SetWindowLong& Lib "user32" Alias
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As
Long)
Const A_CENTER = &H300&
Const A_TOP = &H400&
Const A_TOPLEFT = &H500&
Const A_TOPRIGHT = &H600&
Const A_BOTTOM = &H800&
Const A_BOTTOMLEFT = &H900&
Const A_BOTTOMRIGHT = &HA00&
Const A_LEFT = &H100&
Const A_RIGHT = &H200&
Const GWL_STYLE& = (-16)
Private Sub Command1_Click()
Dim tmpValue&
Dim Align&
Dim ret&
'Данный пример расположит надпись на кнопке
вверху кнопки
'Для того, чтобы расположить надпись в другом
месте, используйте константы, начинающиеся с A_
fAlignment& = A_TOP
tmpValue& = GetWindowLong&(Command1.hwnd, GWL_STYLE) And Not BS_RIGHT
ret& = SetWindowLong&(Command1.hwnd, GWL_STYLE, tmpValue& Or fAlignment&)
Command1.Refresh
End Sub
|
|
| |
|
|
|
|