Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  Стандартные элементы >>> ListBox  
     
  Определить над каким элементом находится курсор мыши  
  Добавьте на форму элемент ListBox.
Option Explicit
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
Private Const LB_ITEMFROMPOINT = &H1A9

Private Sub Form_Load()
With List1
.AddItem "Hello World"
.AddItem "Hello Again"
.AddItem "Just Example "
End With
End Sub

Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim xPosition As Long
Dim yPosition As Long
Dim i As Long
If Button = 0 Then ' если никакие кнопки не нажаты
xPosition = CLng(X / Screen.TwipsPerPixelX)
yPosition = CLng(Y / Screen.TwipsPerPixelY)
With List1
' взять выбранный элемент из листа
i = SendMessage(.hwnd, LB_ITEMFROMPOINT, 0, ByVal ((yPosition * 65536) + xPosition))
'подсветить подсказку к элементу
If (i >= 0) And (i <= .ListCount) Then
.ToolTipText = .List(i)
Text1.Text = .List(i)
Else
.ToolTipText = ""
End If
End With
End If
End Sub
 
     
  VBNet online (всего: 51216)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  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 | Пишите нам