Hanson_bati_zhu(欺世盗名之徒)高人

[wangkenping]

找遍csdn只发现你一个人在用TX Text Control控件
我现在也开始在用pb6.5+TX Text Control Enterprise v10.1
现在有一个难题想问一下你
1.
int c[3]
c= TXTextControl1.CurrentInputPosition
c(0) = 1 ' page
c(1) = 3 ' line
c(2) = 4 ' col
TXTextControl1.CurrentInputPosition =c
运行后没反映，光标不定到3 line 4 col去
2.打印问题
ulong ll_handle
int li_page=1
li_page=TXTextControl1.object.CurrentPages
if li_page=0 then return 1
ll_handle = PrintOpen()
TXTextControl1.object.PrintDevice=ll_handle
ole_text.object.Printpage(li_page)
printclose(ll_handle)
运行后非法操作

我的MSN号是:[e-mail] QQ:59771393 希望能向你请教关于TX Text Control控件问题

[wangkenping]

大家可以去下载试一下。这个控件可能是处理word最好的控件。
http://www.comesoft.net/bbs/dispbbs.asp?boardID=2&ID=14694&page=1

[fibbery]

怎么还没有来啊？

[老板卤两个蛋蛋]

这个高人硬是不漏面 嘿嘿 我都二趟了 ：）

[老板卤两个蛋蛋]

真的专家门诊

好象只有他来才解决得到问题一样哈

兄弟们都帮你顶！！！

要是他不来的话你还是只有自己解决了 哈哈

[lovecinder]

帮顶

[Hanson_bati_zhu]

Sorry诸位，多多原谅则个

to:wangkenping (lag)
1.
int c[3]
c= TXTextControl1.CurrentInputPosition
c(0) = 1 ' page
c(1) = 3 ' line
c(2) = 4 ' col
TXTextControl1.CurrentInputPosition =c
运行后没反映，光标不定到3 line 4 col去

这个应该算是TX的一个BUG，就是你设置光标位置后，在TX控件内并不能看出当前光标是否正确移动了，就算你用了SetFocus也没用
你可以作一个小试验

//设置对象文本内容
ole_1.Object.Text = '12345678~r~nabcdefgh'
//先设置一下当前光标选择起始点，下面修改这个选择点
ole_1.Object.SelStart = 1

LONG c[3]
c= ole_1.Object.CurrentInputPosition
c[1] = 1 //页，从1开始
c[2] = 1 //行，从1开始
c[3] = 1 //列，从0开始，这点有点特殊
ole_1.Object.CurrentInputPosition =c

//下面用程序选择一些内容，看看选择的起始点位置是否已经通过设置CurrentInputPosition属性改变了
ole_1.Object.SelLength = 2
MessageBox('',String(ole_1.Object.SelText))

第二个问题我看看先

[Hanson_bati_zhu]

第二个问题用PrintDoc方法应该也能够实现你所需要的功能吧
PrintOpen函数返回的是打印Handle号，而不是PrintDC，所以你的程序报错了

[Hanson_bati_zhu]

to:balloonman2002()
不会吧，我这里用着挺好的啊，快得很的哦
你用的版本是多少？
我用的是9.0.903.500

[balloonman2002]

呵呵，我用的PB65根本没法插入任何OLE控件，我实验都是VB例子，狂慢，：）

[wangkenping]

Hanson_bati_zhu关于打印的问题。你说用PrintDoc函数.他也是设置PrintDevice的。你也不要发一个例子给我。

[wangkenping]

to :Hanson_bati_zhu.
printdoc是打印已存在的文件。不能打印没有保存的文件。
printpage是打印当前tx控件中显示文件的

[鸡翅多]

呵呵，顶到他出现

[workhand]

专家门诊，呵呵

[balloonman2002]

第一个问题：将int c[3]改为long型，这个我没有在PB里面试，但在VB里面试过了，integer型时没有反应，必须改为long型。因为它自带帮助中注明：
Data Type: Array of 3 Long.

第二个没有试验，请结合其自带例子研究一下。

另外我觉得楼主的语法是否有些问题：
TXTextControl1.CurrentInputPosition =c
li_page=TXTextControl1.object.CurrentPages
TXTextControl1.object.PrintDevice=ll_handle
ole_text.object.Printpage(li_page)

这些语句里面有的是TXTextControl1后面直接跟属性，有的是TXTextControl1后面先跟object再跟属性，有的又是ole_text.object.后跟属性，实际上OLE控件标准写法是：

ole_1.object.属性 = xxx
ole_1.object.函数(xxx)

不知楼主出错是否与此有关。

[balloonman2002]

另外我试用了以下这个控件，感觉很不方便，特别是运行程序时特别是刚打开程序时狂慢，要死机一会才有反应，不知是否与我机器有关，如果你仅仅是操作WORD文件，还不如直接用OLE宏语句操作WORD文件。

[msf]

学习。

[peixun]

关注

[TGWall]

专家门诊，呵呵

[wangkenping]

关于打印问题控件的帮助上有一个例子
Sub mnuFile_Print_Click ()
Dim wPages, No
Printer.Print
wPages = TXTextControl1.CurrentPages
For No = 1 To wPages
TXTextControl1.PrintDevice = Printer.hDC
TXTextControl1.PrintPage No
Printer.NewPage
Next No
Printer.EndDoc
End Sub



Printer.hDC打印机的设备场景的句柄
VB声明
Declare Function ResetDC Lib "gdi32" Alias "ResetDCA" (ByVal hdc As Long, lpInitData As DEVMODE) As Long
说明
根据提供的DEVMODE结构，对一个设备场景进行重设。这样便允许我们在打印期间改变打印机的配置。利用这个函数，可将文档中的某个页改为横向打印。可试着用DocumentProperties函数取得一个设备的默认DEVMODE结构
返回值
Long，执行成功则返回设备场景的句柄，零表示失败
参数表
参数 类型及说明
hdc Long，设备场景的句柄
lpInitData DEVMODE，指定一个缓冲区的第一个字节。该缓冲区包含了用于那个设备的一个有效DEVMODE结构。记住在这个缓冲区中包括设备专用的数据区
注解
这个函数可成功用于由VB的Printer对象的hDC属性返回的设备场景上
注意一定要正确设置lpdm的dmFields字段
这个函数在StartPage 和 EndPage之间会被禁用——即只能在页与页之间调用这个函数，不能在页内调用
驱动程序、设备和输出端口不可以用这个函数更改


问题我不知道要向DEVMODE结构中填什么值好。
那个高手能给一个例子

[TTLOVEYOU3344]

學習