请问有办法获得页眉的高度吗？

收藏

嘻嘻，我又来了，请问有办法获得页眉的高度吗？如果有的，应该怎么获得呢?

好难注册 · 好难注册

目前我正在用试用版的TX ,请问当我们买了正版的tx，正版的兼容试用版的嘛？因为11的控件用18后，必须重新注册控件，然后在开发工具里还得全部重新编码。

好难注册 · 好难注册

试用了一下又发现一个问题，我用18版本的tx做了一个文件，然后通过代码导入到我的程序，就报这个错误：cannot read from or write to a file ( 1 - 415),
我编写的代码如下：

string ls_path,ls_file

if GetFileOpenName ("Open", ls_path, ls_file, "Txw","Txw Files (*.txw),*.txw,Text Files (*.TXT),*.TXT,All Files (*.*), *.*") = 1 then

ole_text.object.headerfooterselect(0)
//打开文件
ole_text.object.text= ''
ole_text.object.LoadSaveAttribute(37,true)

ole_text.object.Load( ls_path, 0 ,3)---执行到这就报错了，报错提示如上
If ole_text.object.LoadSaveAttribute(0) > 0 Then ole_text.object.PageWidth = ole_text.object.LoadSaveAttribute(0)
If ole_text.object.LoadSaveAttribute(1) > 0 Then ole_text.object.PageHeight = ole_text.object.LoadSaveAttribute(1)
if ole_text.object.LoadSaveAttribute(2) > 0 Then ole_text.object.PageMarginL = ole_text.object.LoadSaveAttribute(2)
If ole_text.object.LoadSaveAttribute(3) > 0 Then ole_text.object.PageMarginT = ole_text.object.LoadSaveAttribute(3)
If ole_text.object.LoadSaveAttribute(4) > 0 Then ole_text.object.PageMarginR = ole_text.object.LoadSaveAttribute(4)
If ole_text.object.LoadSaveAttribute(5) > 0 Then ole_text.object.PageMarginB = ole_text.object.LoadSaveAttribute(5)

ole_text.object.ScrollPosY=0
changedirectory(gs_app_path)
else
changedirectory(gs_app_path)
end if
麻烦看一下是什么原因啊？

iceman · iceman

回复 2楼好难注册的帖子

好难注册你好，
试用版具备并且兼容正式版的所有功能。需要重新编译、引用 DLL、生成 license 文件。

其他问题，明天我搭建环境后回复。

好难注册 · 好难注册

以上两个问题我都已经解决了。得到页面的高度我用了点小聪明，不是很准确，勉强能凑和。导出与导入是18版本编码有问题，需要另外处理文件内容，就没问题了。你环境搭好没？PB里是怎么调用打印预览的呢？我看了帮助里只有VB的使用方法。我模拟了一下，代码如下：//打印预览
ole_text.object.PrintDevice= Handle(ole_text)
ole_text.object.PrintZoom = 25

ole_text.object.PrintPage(1)-----执行到这就报错了。

iceman · iceman

回复 5楼好难注册的帖子

好难注册你好，

不好意思，让你久等了。
这个问题我已经反馈给厂商，有结果会及时更新帖子状态。

iceman · iceman

回复 5楼好难注册的帖子

Winform 版本中，打印预览通过调用 PrintPreview(string docName) 实现的，请问是否尝试？

好难注册 · 好难注册

我们是买的activex，

iceman · iceman

回复 8楼好难注册的帖子

好难注册你好，
厂商的回复为：因为 TX TextControl 没有在 PB 环境下进行测试，所以无法保证 TX 的所有功能在 PB 环境下可以正常使用。
我查看了你的代码，属于帮助文档中给出的 VB 环境下的标准预览方式，如果正常预览，那应该就是不支持。

好难注册 · 好难注册

delphi,VB,pb这三者都类似，我看了一下delphi的例子的代码，它所谓的预览就是再另外画个窗口，然后一行行写代码的，我一直以为是这个控件有个封装好的函数，只要调用一下就可以实现了。就像调用字体的函数TXTextControl.FontDialog，这个调用就会弹出一个窗体，应该让你们厂商写个printpreview的封装函数可以直接调用。还有一个小小的建议，在设置控件字体的时候，TXTextControl.FontSize = value ,这个value的值应该支持小数位，现在只能是整型。

		自动登录	找回密码
密码			立即注册

[已处理] 请问有办法获得页眉的高度吗？

18 个回复

活字格认证

微信认证勋章

元老葡萄