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

   
   
     

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

Страница: 1 |

 

  Вопрос: ListView HELPPPPPPPP Добавлено: 20.10.09 16:40  

Автор вопроса:  Mc.WOLF
Есть форма на ней ListView и textBox. Я выделяю строку в ListView как мне отобразить в textBox то, что я выделяю в ListView?

Ответить

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

Номер ответа: 1
Автор ответа:
 maza_____



ICQ: 9968842 

Вопросов: 40
Ответов: 337
  Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья))
 Профиль | | #1 		Добавлено: 20.10.09 16:49
  1.   For Each iteam As ListViewItem In ListView1.SelectedItems
  2.             MessageBox.Show(iteam.Text)
  3.         Next

Ответить

Номер ответа: 2
Автор ответа:
 Mc.WOLF



Вопросов: 26
Ответов: 84
  Профиль | | #2 Добавлено: 20.10.09 17:04
спс. нашол

Ответить

Номер ответа: 3
Автор ответа:
 Mc.WOLF



Вопросов: 26
Ответов: 84
  Профиль | | #3 Добавлено: 20.10.09 17:04
  1.  
  2. Private Declare Function SendMessage Lib _
  3. "user32" Alias "SendMessageA" (ByVal hWnd As _
  4. Long, ByVal wMsg As Long, ByVal wParam As _
  5. Long, lParam As Any) As Long
  6.  
  7. Private Const LVM_SUBITEMHITTEST As Long = 4153
  8.  
  9. Private Type POINTAPI
  10. X As Long
  11. Y As Long
  12. End Type
  13.  
  14. Private Type LVHITTESTINFO
  15. pt As POINTAPI
  16. lngFlags As Long
  17. lngItem As Long
  18. lngSubItem As Long
  19. End Type
  20.  
  21. Private Sub ListView1_MouseUp(Button As Integer, _
  22. Shift As Integer, X As Single, Y As Single)
  23. Dim hti As LVHITTESTINFO
  24. Dim lngRet As Long
  25. hti.pt.X = X / Screen.TwipsPerPixelX
  26. hti.pt.Y = Y / Screen.TwipsPerPixelY
  27. lngRet = SendMessage(ListView1.hWnd, _
  28. LVM_SUBITEMHITTEST, 0&, hti)
  29. Debug.Print "Row=" & hti.lngItem,
  30. Debug.Print "Col=" & hti.lngSubItem
  31. End Sub

Ответить

Номер ответа: 4
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #4 		Добавлено: 20.10.09 21:25
Mc.WOLF, ХитТест - это конечно полезная вещь, ноо разве нет чего-то в духе ListIndex?
Если нет, то юзай что-то типа этого
  1. Friend Property Get ListIndex() As Long
  2. ListIndex = SendMessage(hListView, LVM_GETNEXTITEM, -1, ByVal LVIS_FOCUSED)
  3. End Property

Ответить

Номер ответа: 5
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #5 		Добавлено: 20.10.09 21:26
а ну хотя да. если нужно еще и колонку отследить, то хиттест

Ответить

Страница: 1 |

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



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