| |
Как выравнять элементы ListBox'а вправо |
|
| |
Как вы знаете, по умолчанию элементы ListBox'а выравнены по левой кромке. Следующий пример покажет, как можно выравнять элементы ListBox'а по правой кромке. Элементы ListBox'а выраниваются в зависимости от ширины ListBox'а.
Private Const LB_SETTABSTOPS = &H192
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
Dim i
Private Sub Command1_Click()
List1.Clear
List1.AddItem "Азбука Visual Basic"
List1.AddItem "Ресурс AVB"
List1.AddItem "www.azbuakvb.narod.ru"
End Sub
Private Sub Command2_Click()
Dim mTabs(0) As Long
mTabs(0) = -List1.Width * 44 / 1000 + 2
SendMessage List1.hwnd, LB_SETTABSTOPS, 1, mTabs(0)
List1.Clear
List1.AddItem vbTab & "Азбука Visual Basic"
List1.AddItem vbTab & "Ресурс AVB"
List1.AddItem vbTab & "www.azbuakvb.narod.ru"
'List1.Refresh
End Sub
Private Sub Form_Load()
Command1_Click
End Sub
|
|
| |
|
|
|
|