以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  中国地图求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142380)
--  作者：cd_tdh
--  发布时间：2019/10/25 11:28:00
--  中国地图求助

老师，示例中中国地图，怎么让简介采用浮动窗口显示？

原来代码：

If TypeOf e.Sender Is WinForm.Label Then \'如果单击的是标签
    If e.Sender.Name.ToLower.StartsWith("sh") Then \'而且名称是以sh开头
        Dim sh As String = e.Sender.Name.SubString(2) \'获取省份
        Dim ps As Integer = Tables("中国地图").FindRow("省份 = \'" & sh & "\'") \'找出此省份所在行的位置
        If ps >= 0 Then \'如果找到
            Tables("中国地图").Position = ps \'定位到此行
        End If
    End If
End If

 

看了帮助语法是这样：

ShowToolTip(ToolTip, Duration)

[此贴子已经被作者于2019/10/25 11:31:42编辑过]
--  作者：有点蓝
--  发布时间：2019/10/25 11:41:00
--  
If TypeOf e.Sender Is WinForm.Label Then \'如果单击的是标签
    If e.Sender.Name.ToLower.StartsWith("sh") Then \'而且名称是以sh开头
        If vars("sh") IsNot Nothing Then vars("sh").HideToolTip()
        vars("sh") = e.Sender
        Dim sh As String = e.Sender.Name.SubString(2) \'获取省份
        Dim ps As Integer = Tables("中国地图").FindRow("省份 = \'" & sh & "\'") \'找出此省份所在行的位置
        If ps >= 0 Then \'如果找到
            e.Sender.ShowToolTip(Tables("中国地图").Rows(ps)("简介"))
            Tables("中国地图").Position = ps \'定位到此行
        End If
    End If
End If
--  作者：cd_tdh
--  发布时间：2019/10/25 12:01:00
--  
老师这样，浮动窗口一直不关闭。
--  作者：有点蓝
--  发布时间：2019/10/25 12:01:00
--  

语法：

ShowToolTip(ToolTip, Duration)

ToolTip:  要显示的提示信息
Duration：可选参数，显示持续的时间，单位为毫秒，如果省略，则一直显示，直到执行HideToolTip方法。