Foxtable(狐表)用户栏目专家坐堂 → 请教TopicLink 代码


  共有1852人关注过本帖平板打印复制链接

主题:请教TopicLink 代码

帅哥哟,离线,有人找我吗?
happy2010
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:230 积分:2271 威望:0 精华:0 注册:2016/10/9 16:10:00
请教TopicLink 代码  发帖心情 Post By:2018/5/2 10:01:00 [只看该作者]

使用TopicBar做了一个公告板,从公告通知中获取内容,如何在TopicLinkClick 中设置代码,根据TopicBar中的条目打开“详细内容”窗口?请老师指点

Dim Page As WinForm.TopicPage
Page = Forms("主窗口").Controls("TopicBar1").Pages("公告通知")
Dim Arys As List(Of String()) 
Arys = DataTables("公告通知").GetValues("编号|标题","发布状态 = true","编号 desc") '列名用符号|分割
For Each Ary As String() In Arys
Dim lnk As WinForm.TopicLink = page.links.add (ary(0),ary(0),"通知.png") 
lnk.Text = lnk.Text & " - " & ary(1)
Next

 回到顶部