以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何动态修改任务栏的名称  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153666)

--  作者:昱飞哥
--  发布时间:2020/8/18 23:42:00
--  如何动态修改任务栏的名称
“常用网址”窗口里有个任务栏控件“TopicBar1”,1个修改按钮控件“button1”,如下图所示:

图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

单击修改按钮,跳出来窗口1,单击窗口1的“将其修改成:”按钮,跳出窗口2,如下图所示:

图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看

我想实现的效果是:在窗口2中输入网站名称和网址之后,tables("常用网址表")里对应的数据也会随之修改,并且“常用网址”窗口中的任务栏控件“TopicBar1”里对应的链接的名称也随之改变。
于是,我在窗口2的textbox1的textchanged事件中写了如下代码:
Dim str As String = Tables("常用网址表").Current("网站名称")
Dim tl As WinForm.TopicLink = Forms("常用网址").Controls("TopicBar1").Pages(0).Links("\'& str &\'")
tl.name = e.Form.Controls("TextBox1").text

这个代码有问题,但我不知道怎么改。
项目贴出来,请老师指点!谢谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table



--  作者:有点蓝
--  发布时间:2020/8/19 8:52:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目14.zip


--  作者:昱飞哥
--  发布时间:2020/8/19 9:24:00
--  
谢谢老师图片点击可在新窗口打开查看