65536在这里是什么?

2008-03-09 09:14:17 692 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Mendix 开发实践指南｜Mendix平台概览低代码开发是一种将编码从文本形式转变为视觉形式的应用开发方法。它提供了一个模型驱动的、拖放式的界面，而不是传统的编码环境，使得各种技能水平的开发者——包括专业开发人员、新手、主题专家、业务利益相关者和决策者——都能使用低代码工具来构建驱动价值的企业业务应用。低代码的核心在于提高开发的可访问性和效率，让更多人能够参与到应用开发中来。Mendix适用于多种应用场景，包括企业级应用、移动应用、物联网(IoT)应用和微服务架构等。阅读详情

Option Explicit
Const LB_ITEMFROMPOINT = &H1A9
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 Sub Form_Load()
Dim i
For i = 1 To 200
List1.AddItem Str(i) + " ÕâÊÇµÚ¶àÉÙÐÐ " + Str(i)
Next i
End Sub
Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lXPoint As Long
Dim lYPoint As Long
Dim lIndex As Long
If Button = 0 Then 'È·¶¨ÔÚÒÆ¶¯Êó±êµÄÍ¬Ê±Ã»ÓÐ°´ÏÂ¹¦ÄÜ¼ü»òÕßÊó±ê¼ü
'»ñµÃ¹â±êµÄÎ»ÖÃ£¬ÒÔÏñËØÎªµ¥Î»
lXPoint = CLng(X / Screen.TwipsPerPixelX)
lYPoint = CLng(Y / Screen.TwipsPerPixelY)
'
With List1
'»ñµÃ ¹â±êËùÔÚµÄ±êÌâÐÐµÄË÷Òý
lIndex = SendMessage(.hwnd, LB_ITEMFROMPOINT, 0, ByVal ((lYPoint * 65536) + lXPoint))
Debug.Print lIndex
'½«ListBoxµÄTooltipÉèÖÃÎª¸Ã±êÌâÐÐµÄÎÄ±¾
If (lIndex >= 0) And (lIndex <= .ListCount) Then
.ToolTipText = .List(lIndex) 'Return the text = .list(lIndex)
Else
.ToolTipText = ""
End If
End With
End If
End Sub

...全文