Могу только перебором всех элементов этого листбокса, а если их больше 1000, как-то неохота. Посмотрю еще API сегодня, но может есть средства VB.
FileListBox определить количество выбранных файлов.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 3
• Страница 1 из 1
- MOV
- Постоялец
- Сообщения: 414
- Зарегистрирован: 13.03.2004 (Сб) 15:13
- Откуда: Санкт-Петербург
FileListBox определить количество выбранных файлов.
MOV » 15.09.2004 (Ср) 17:38
Могу только перебором всех элементов этого листбокса, а если их больше 1000, как-то неохота. Посмотрю еще API сегодня, но может есть средства VB.
- GSerg
- Шаман
- Сообщения: 14286
- Зарегистрирован: 14.12.2002 (Сб) 5:25
- Откуда: Магадан
GSerg » 15.09.2004 (Ср) 17:44
Option Explicit
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Private Const LB_GETSELCOUNT As Long = &H190
Private Sub Command1_Click()
MsgBox SendMessage(File1.hwnd, LB_GETSELCOUNT, 0, ByVal 0&)
End Sub
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Private Const LB_GETSELCOUNT As Long = &H190
Private Sub Command1_Click()
MsgBox SendMessage(File1.hwnd, LB_GETSELCOUNT, 0, ByVal 0&)
End Sub
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас
Сообщений: 3
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: Yandex-бот и гости: 24