找回密码
 立即注册

QQ登录

只需一步,快速开始

mylj123

注册会员

13

主题

36

帖子

111

积分

注册会员

积分
111

活字格认证

mylj123
注册会员   /  发表于:2015-9-14 14:28  /   查看:4922  /  回复:4
TX ACTIVEX 19.0
我需要动态修改SectionBreakKind ,但每次执行都抛出错误提示,但作用却生效了。我的功能是最初section都是连续排列的(新行),最后我要动态修改有的sectionbreakind类型为新页。
修改的脚本是
sectioncurrent = 2
sectionbreakkind = 512

4 个回复

倒序浏览
iceman
社区贡献组   /  发表于:2015-9-14 18:26:00
沙发
回复 1楼mylj123的帖子

你好,
感谢问题反馈,我通过以下代码尝试:

  1. Private Sub Command1_Click()
  2.    
  3.     TXTextControl1.SectionInsert txBeginAtNewPage, -1
  4.     TXTextControl1.SelStart = -1
  5.     TXTextControl1.SelText = "I'm on Page 2"
  6.    

  7.     TXTextControl1.SectionInsert txBeginAtNewPage, -1
  8.     TXTextControl1.SelStart = -1
  9.     TXTextControl1.SelText = "I'm on Page 3"
  10. End Sub

  11. Private Sub Command2_Click()
  12. Me.TXTextControl1.SectionCurrent = 1
  13. Me.TXTextControl1.SectionCurrent = 2
  14. Me.TXTextControl1.SectionBreakKind = 512


  15. End Sub
复制代码


抛错,信息为:Run-Time Error ‘20008’。请问我们的错误信息是否一致?
回复 使用道具 举报
iceman
社区贡献组   /  发表于:2015-9-22 12:07:00
板凳
回复 1楼mylj123的帖子

请问问题是否解决?为了给你提供更优质的服务,请对本次服务进行评分。我们会认真对待你提出的宝贵意见,谢谢
回复 使用道具 举报
mylj123
注册会员   /  发表于:2015-9-23 19:54:00
地板
回复 3楼iceman的帖子

我用的是PB。没有看到具体的错误信息。现在我是用try catch在用着。。。
回复 使用道具 举报
iceman
社区贡献组   /  发表于:2015-9-24 11:32:00
5#
回复 4楼mylj123的帖子

无法确认问题,我们继续跟进可能比较困难,能否把你完整的测试代码发上来我这边使用 VB6.0 模拟,看能否重现这个问题。
回复 使用道具 举报
您需要登录后才可以回帖 登录 | 立即注册
返回顶部