Foxtable(狐表) → 用户栏目 → 专家坐堂 → 任务栏 页面展开时语句


  共有2636人关注过本帖树形打印复制链接

主题：任务栏 页面展开时语句
帅哥哟，离线，有人找我吗？
qinjinhong
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：11 积分：159 威望：0 精华：0 注册：2017/3/1 16:17:00 		任务栏 页面展开时语句  发帖心情 Post By：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
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：11 积分：159 威望：0 精华：0 注册：2017/3/1 16:17:00 		  发帖心情 Post By：2017/5/5 11:39:00 [只看该作者]

未将对象引用设置到对象的实例

 回到顶部
帅哥哟，离线，有人找我吗？
qinjinhong
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：11 积分：159 威望：0 精华：0 注册：2017/3/1 16:17:00 		  发帖心情 Post By：2017/5/5 11:42:00 [只看该作者]

要在页面打开时动态修改LINK.TEXT文本，如何处理

 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/5 11:44:00 [只看该作者]

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

 

你控件里面是不是还写了其它代码？做个具体例子上传上来看看
 回到顶部
帅哥哟，离线，有人找我吗？
qinjinhong
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：11 积分：159 威望：0 精华：0 注册：2017/3/1 16:17:00 		  发帖心情 Post By：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句
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：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
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：11 积分：159 威望：0 精华：0 注册：2017/3/1 16:17:00 		  发帖心情 Post By：2017/5/5 12:26:00 [只看该作者]

老师好！
什么对话框也不弹出，也不报错
怎么就进不了IF句子呢
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：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
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：11 积分：159 威望：0 精华：0 注册：2017/3/1 16:17:00 		  发帖心情 Post By：2017/5/5 12:47:00 [只看该作者]

老师你好！
对不起，我把页面名字写成页面标题了，修改后，已经正常了，太谢谢老师了。
If  e.Page.Name = "workflow"   Then

Dim link As WinForm.TopicLink = tpb.Pages("workflow").Links("我的审批")
 end if
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04590 秒, 4 次数据查询