以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  任务栏 页面展开时语句  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100135)
--  作者：qinjinhong
--  发布时间：2017/5/5 11:34:00
--  任务栏 页面展开时语句
Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each page As WinForm.TopicPage In tpb.Pages
    If page.Name <> e.Page.Name Then
        page.Collapsed = True
    End If
    If e.page.name = "工作流"  Then
        MessageBox.Show(123)
    End If
Next


出现错误，不知道错在什么地方，请老师指导！谢过！
--  作者：qinjinhong
--  发布时间：2017/5/5 11:39:00
--  
未将对象引用设置到对象的实例
--  作者：qinjinhong
--  发布时间：2017/5/5 11:42:00
--  
要在页面打开时动态修改LINK.TEXT文本，如何处理
--  作者：有点色
--  发布时间：2017/5/5 11:44:00
--  

1楼的代码不会报2楼的错误。

 

你控件里面是不是还写了其它代码？做个具体例子上传上来看看
--  作者：qinjinhong
--  发布时间：2017/5/5 11:58:00
--  
Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each page As WinForm.TopicPage In tpb.Pages
    If page.Name <> e.Page.Name Then
        page.Collapsed = True   
    End If
Next
If  e.Page.Name = "工作流"   Then
Dim link As WinForm.TopicLink = tpb.Pages("工作流").Links("我的审批")
link.Text = link.text & "123"
MessageBox.Show(222)
End If


想在页面展开时动态修改LINK.TEXT，结果进不了 IF句
--  作者：有点色
--  发布时间：2017/5/5 12:20:00
--  

执行下面代码，看弹出什么

 

Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each page As WinForm.TopicPage In tpb.Pages
    If page.Name <> e.Page.Name Then
        page.Collapsed = True   
    End If
Next
If  e.Page.Name = "工作流"   Then

msgbox(1)
Dim link As WinForm.TopicLink = tpb.Pages("工作流").Links("我的审批")

msgbox(2)
link.Text = link.text & "123"
MessageBox.Show(222)
End If
--  作者：qinjinhong
--  发布时间：2017/5/5 12:26:00
--  
老师好！
什么对话框也不弹出，也不报错
怎么就进不了IF句子呢
--  作者：有点色
--  发布时间：2017/5/5 12:34:00
--  

测试，看弹出什么

 

Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each page As WinForm.TopicPage In tpb.Pages
    If page.Name <> e.Page.Name Then
        page.Collapsed = True   
    End If
Next

msgbox(e.page.name)
If  e.Page.Name = "工作流"   Then

msgbox(1)
Dim link As WinForm.TopicLink = tpb.Pages("工作流").Links("我的审批")

msgbox(2)
link.Text = link.text & "123"
MessageBox.Show(222)
End If

[此贴子已经被作者于2017/5/5 12:34:11编辑过]
--  作者：qinjinhong
--  发布时间：2017/5/5 12:47:00
--  
老师你好！
对不起，我把页面名字写成页面标题了，修改后，已经正常了，太谢谢老师了。
If  e.Page.Name = "workflow"   Then

Dim link As WinForm.TopicLink = tpb.Pages("workflow").Links("我的审批")
 end if