Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: ListBox выбор элемента Добавлено: 02.12.03 11:28  

Автор вопроса:  Grayich | Web-сайт: grayich.narod.ru | ICQ: 208280504 

Приветы

Вопрос такой.  Есть ListBox  размером в один элемент(одна строка), как собственно узнать какой элемент является видимым не выделен а именно видно в ListBox.

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 NeForm@t



ICQ: 252999255 

Вопросов: 36
Ответов: 247
  Web-сайт: g--k.newmail.ru
 Профиль | Цитата | #1 		Добавлено: 02.12.03 17:04

Добавь на форму listbox толщиной в 1 строку и баттон1.

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const LB_GETTOPINDEX As Long = &H18E
Private Sub Command1_Click()
MsgBox List1.List(getindex(List1.hwnd))
End Sub
Private Sub Form_Load()
List1.AddItem "1fdhyfjg"
List1.AddItem "2fdhyfjg"
List1.AddItem "3fdhyfjg"
End Sub
Function getindex(hwndList As Long)
getindex = SendMessage(hwndList, LB_GETTOPINDEX, 0, 0)
End Function

'Govnuk

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам