Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  Стандартные элементы >>> ListBox  
     
  Как выравнять элементы 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
 
     
  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 | Пишите нам