以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助有关TopicLinkClick的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=44458)
--  作者：myzzip
--  发布时间：2013/12/31 19:04:00
--  求助有关TopicLinkClick的问题

第一步我先在窗口1中AfterLoad事件写入如下代码

Dim Page As WinForm.TopicPage
Page = Forms("窗口1").Controls("TopicBar1").Pages.Add("Project","所有分类")
For Each d As DataRow In DataTables("类别表").DataRows
    Page.Links.Add("Open",d("类别名称"))
Next

 

第二步我在TopicLinkClick事件中写入以下代码

Select Case e.Link.Name
    Case "液化气"
        \'在此加入相应的代码
        MessageBox.Show("ok")
End Select

 

为什么点击下拉的任务没有反应？？？
--  作者：有点甜
--  发布时间：2013/12/31 19:08:00
--  
  你试试这样改。

Dim Page As WinForm.TopicPage
Page = Forms("窗口1").Controls("TopicBar1").Pages.Add("Project","所有分类")
For Each d As DataRow In DataTables("类别表").DataRows
    Page.Links.Add(d("类别名称"),d("类别名称"))
Next
--  作者：有点甜
--  发布时间：2013/12/31 19:09:00
--  
 或者把这一段改成

Select Case e.Link.Text
    Case "液化气"
        \'在此加入相应的代码
        MessageBox.Show("ok")
End Select