以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助：给批量控件加提示信息  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104301)
--  作者：13968559581
--  发布时间：2017/7/27 9:12:00
--  求助：给批量控件加提示信息
请教大侠，这种情况怎么设计比较好：
     假如我有5个按钮（或LABEL）控件，分别代表5个房间号，命名分别为101，102，103，104，105
     当我鼠标移到相应按钮的时候，出现该房间号的住宿人员信息
    我不想用每个按钮的mousemov事件，因为我房间号很多
      谢谢
--  作者：有点甜
--  发布时间：2017/7/27 9:32:00
--  

写到窗口的mousemove事件，事件里面，根据名字查找对应的值显示。
--  作者：13968559581
--  发布时间：2017/7/27 9:59:00
--  再请教
大哥，我就是不晓得语句怎么写啊，能不能再指点一下
--  作者：有点甜
--  发布时间：2017/7/27 10:10:00
--  

mouseHover

 

If typeof e.sender Is winform.label Then
    Dim fdr As DataRow = DataTables("表A").find("第一列 = \'" & e.sender.name & "\'")
    If fdr IsNot Nothing Then
        e.Sender.ShowToolTip("姓名:" & fdr("第二列") & vbcrlf & "备注:" & fdr("第三列"))
    Else
        e.Sender.ShowToolTip("没找到,没有人")
    End If
End If

 

mouseLeave

 

e.sender.HideToolTip()
--  作者：13968559581
--  发布时间：2017/7/27 10:30:00
--  非常感谢
谢谢，让我又学习了一招，我自己再学习优化一下，谢谢