Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  Стандартные элементы >>> Command Button  
     
  Выравнивание надписи на кнопке  
  Добавьте на форму элемент 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
 
     
  VBNet online (всего: 51566)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам