Как выровнять элементы 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

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Как выровнять элементы ListBoxа вправо", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!