有哪些信誉好的足球投注网站- 1、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
SendMessage函数巧应用1
SendMessage函数巧应用（一） 作者：不详 来源于：中国VB网 发布时间：2005-5-21 ??? 在Windows编程中，向文本框控件、列表控件、按钮控件等是我们最常接触的控件了。但是在VB中这些控件有时 无法实现我们的需要。在这时，我们只要简单的利用Windows API函数就可以扩充这些控件的功能了。 ??? 顾名思义，SendMessage函数就是向窗口（这里的窗口指的是向按钮、列表框、编辑框等具有hWnd属性的控件） 发送消息的函数，该函数的定义如下: Declare Function SendMessage Lib user32 Alias SendMessageA _ ??????? (ByVal hwnd As Long, _ ??????? ByVal wMsg As Long, _ ??????? ByVal wParam As Long, _ ??????? lParam As Any) As Long 其中hwnd指定接受消息的窗口，参数wMsg指定消息值，参数wParam lParam分别定义传递到窗口的附加参数。而在Windows 系统的很多消息中，有一些不仅仅是提供一个窗口消息那么简单。它们可以控制窗口的动作和属性。下面我将分次向 向大家介绍SendMessage函数在扩充基本控件功能方面的应用。 一、列表（ListBox）控件 ??? 在Windows中，有一系列的以LB_开头的列表消息，这里介绍的就是利用LB消息控制的ListBox的应用 1、使列表中光标移动到不同的列表项上有不同的提示（ToolTip） ??? 在列表框控件中有一个ToolTipText属性，该属性决定了当光标在列表框上移动时出现的提示文字。但是如何使得 当光标在不同的列表项上移动时的提示文字也不同呢？问题的关键是要知道在光标移动时光标所在的列表项的索引，使 用SendMessage函数发送LB_ITEMFROMPOINT消息就可以获得。下面是程序范例： 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) + Samples in this list is + 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)) ??????????? 将ListBox的Tooltip设置为该标题行的文本 ??????????? If (lIndex = 0) And (lIndex = .ListCount) Then ??????????????? .ToolTipText = .List(lIndex) Return the text = .list(lIndex) ??????????? Else ??????????????? .ToolTipText = ??????????? End If ??????? End
文档评论（0）