找回密码
 立即注册

QQ登录

只需一步，快速开始

首页 › 其他产品专区 › TX TextControl › 查看内容
发新帖

好难注册

初级会员

24

主题

89

帖子

217

积分

初级会员

积分
217

活字格认证

QQ
最新发帖

[已处理] TX ActiveX 加载内容过长报错

好难注册
初级会员   /  发表于：2013-7-18 18:28  /   查看：8911  /  回复：10
附件是刚刚遇到的一份长的病程，这些文件加载到一起时就会出错。
之前的那份测试资料点虽然有错但还能正常打开，但这样多的话都不能正常加载完成了。
麻烦你们测试一下。
为了健康，得远离HIS.

10 个回复

倒序浏览
iceman
社区贡献组   /  发表于：2013-7-18 18:29:00
沙发
回复 1楼好难注册的帖子

问题正在处理中，明天回复。
回复 使用道具 举报
iceman
社区贡献组   /  发表于：2013-7-19 08:53:00
板凳
回复 2楼iceman的帖子

内容加载过长问题可以请尝试通过以下方法加载：

  2. Private Sub mnuInsertFile_Click()
  3.     TXTextControl1.ResetContents
  4.     For i = 1 To 59 Step 1
  5.        FileName = App.Path + "\data\" + CStr(i) + ".txw"
  6.            
  7.         TXTextControl1.Load FileName, 2, 3, True
  8.         TXTextControl1.SelStart = -1
  9.         '避免段落中的 table 行过多导致文档变为无效格式
  10.         TXTextControl1.SectionInsert txBeginAtNewLine, -1
  11.     Next
  12.    
  13.     '最后一个参数，使用  8 ，使用 Unicode 编码格式存储文档
  14.     Me.TXTextControl1.Save App.Path + "\data\" + "\combine.tx", 0, 8
  15. End Sub
复制代码

附件是我的测试 Demo：

Field1.zip (841.3 KB, 下载次数: 174)
回复 使用道具 举报
好难注册
初级会员   /  发表于：2013-7-19 13:52:00
地板
请教一下，我刚有试用Ctrl+C,Ctrl+V，在一下病历上加入这些有表格的内容可以加很长，打开时也不会报错。我有试过CLIP(2),CLIP(3)但没用。请教一代码下应该怎样实现？
为了健康，得远离HIS.
回复 使用道具 举报
ZenosZeng讲师达人认证 悬赏达人认证
超级版主   /  发表于：2013-7-19 13:53:00
5#
回复 1楼好难注册的帖子

我这边在实现插入高度为0的空行时，使用了以下代码 Me.TXTextControl1.SelText = ""，请尝试在你的环境中是否可以正常使用：
  1. Private Sub mnuInsertFile_Click()
  2.     TXTextControl1.ResetContents
  3.     For i = 1 To 59 Step 1
  4.         FileName = App.Path + "\data\" + CStr(i) + ".txw"
  5.         TXTextControl1.Load FileName, 2, 3, True
  6.         Me.TXTextControl1.SelText = ""
  7.     Next
  8.     Me.TXTextControl1.Save App.Path + "\data\" + "\combine.tx", 0, 8
  9. End Sub
复制代码
回复 使用道具 举报
ZenosZeng讲师达人认证 悬赏达人认证
超级版主   /  发表于：2013-7-19 15:21:00
6#
回复 1楼好难注册的帖子

首先可以通过调用'Me.TXTextControl1.SectionInsert txBeginAtNewLine, -1 或者 Me.TXTextControl1.SelText = vbNewLine 插入新行，然后调整行高：
  1. Private Sub mnuInsertFile_Click()
  2.     TXTextControl1.ResetContents
  3.     Dim index As Long
  4.     For i = 1 To 59 Step 1
  5.        FileName = App.Path + "\data\" + CStr(i) + ".txw"
  6.            
  7.         Me.TXTextControl1.Load FileName, 2, 3, True

  9.         'Me.TXTextControl1.SectionInsert txBeginAtNewLine, -1
  10.         
  11.         Me.TXTextControl1.SelText = vbNewLine

  13.         index = Me.TXTextControl1.SelStart
  14.         Me.TXTextControl1.FormatSelection = True
  15.         Me.TXTextControl1.SelStart = index - 1
  16.         Me.TXTextControl1.SelLength = 2
  17.         Me.TXTextControl1.FontSize = 1
  18.     Next
  19.    
  20.     Me.TXTextControl1.Save App.Path + "\data\" + "\combine.tx", 0, 8
  21.    
  22. End Sub
复制代码
回复 使用道具 举报
ZenosZeng讲师达人认证 悬赏达人认证
超级版主   /  发表于：2013-7-19 15:37:00
7#
回复 4楼好难注册的帖子

TXTextControl在获得焦点的情况下Clip方法会生效

选中 TXTextControl1 并执行
  1. Me.TXTextControl1.SelStart = 0
  2. Me.TXTextControl1.SelLength = 1000
  3. Me.TXTextControl1.Clip (2)
复制代码


然后再选中 TXTextControl2执行：
  1. Me.TXTextControl2.Clip (3)
复制代码
回复 使用道具 举报
好难注册
初级会员   /  发表于：2013-7-19 18:43:00
8#
在循环中要实现这样的批次COPY，我这边试了有问题，拷不到剪切板中。也粘贴不了。请帮忙确认一下有什么注意点的？谢谢！！！
为了健康，得远离HIS.
回复 使用道具 举报
好难注册
初级会员   /  发表于：2013-7-19 19:27:00
9#
再请教一下别一个问题，一个文档是含有表格的，就如我发给你们的文档样式一样。现在想把现有文档中的表格去掉，只留文字和数据元，不知要怎样做？
为了健康，得远离HIS.
回复 使用道具 举报
ZenosZeng讲师达人认证 悬赏达人认证
超级版主   /  发表于：2013-7-22 08:49:00
10#
回复 8楼好难注册的帖子

在VB中只有TX处于Focus状态时Copy方法才生效，不知PB是不是这样。
回复 使用道具 举报
下一页 »
12下一页
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册
产品与服务
活字格低代码平台
Wyn 商业智能软件
SpreadJS纯前端表格控件
技术服务体系
技术博客
低代码技术
客户与案例
典型客户
成功案例
用户访谈
合作与生态
合作伙伴网络
葡萄城市场
葡萄城与国产化
活字格用友客开工具
品牌活动
葡萄城公开课
品牌战略发布会
赋能开发者高峰论坛
企业级低代码发展研讨会
企业级低代码应用大赛
表格技术研讨会
了解葡萄城
葡萄城简介
愿景使命
研发与创新
荣誉奖项
加入我们
联系方式
联系我们
400-657-6008

葡萄城社区二维码

关注“葡萄城社区”

赋能开发者

西安葡萄城软件有限公司
专业的软件开发技术和低代码平台提供商

陕ICP备2020018819号  |   陕公网安备：61019002000258  |   隐私政策  |   网站地图  

邮箱： info.xa@grapecity.com  |  © 2024 葡萄城软件，保留所有权利

Archiver| 手机版| 小黑屋|

返回顶部