PB中嵌ole 怎么写翻页
发布时间:2011-06-29 20:32:40 文章来源:www.iduyao.cn 采编人员:星星草
PB中嵌ole 如何写翻页
我用pb窗口中嵌了一个ole控件,调用的是word,excel文档,因为文档有很多页,所以我需要写个按钮对文档进行翻页,请问如何实现?
------解决方案--------------------
在word\excel里使用录制宏,通过手工翻页,录制下来
然后编辑宏,看代码,复制到pb里,ole_1.object.宏里的代码一般可以用
------解决方案--------------------
不会
------解决方案--------------------
ole_1.object.ActiveWindow.Selection.MoveDown(5, 2 )
或
ole_1.ActiveWindow.Selection.MoveDown(5, 2 )
试试
------解决方案--------------------
或者用send发送一个翻页的消息
可以参考VB代码
Public Declare Function SetForegroundWindow Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Integer) As Integer
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Integer, ByVal hWnd2 As Integer, ByVal lpsz1 As String, ByVal lpsz2 As String) As Integer
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Private Const WM_KEYDOWN As Integer = &H100
Private Const WM_KEYUP As Integer = &H101
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim h As Integer = FindWindow("screenClass", Nothing)
Dim h1 As Integer = FindWindowEx(h, 0, "paneClassDC", Nothing)
SetForegroundWindow(h)
PostMessage(h1, WM_KEYDOWN, Keys.Down, 10)
System.Threading.Thread.Sleep(100)
PostMessage(h1, WM_KEYUP, Keys.Down, 0)
End Sub
------解决方案--------------------
可以参考
http://topic.csdn.net/u/20080923/23/d06a1873-744c-48e8-b728-4704c04e0f77.html
------解决方案--------------------
mark
友情提示:
信息收集于互联网,如果您发现错误或造成侵权,请及时通知本站更正或删除,具体联系方式见页面底部联系我们,谢谢。
其他相似内容:
-
pb里关于数据窗口继承的问题
我的pb里设了一个母数据窗口,规定了样式,颜色,怎么让其他数据窗口都继承这个母dw,不用重复设颜色,样式呢
...
-
如何制作PB中查找的窗口,可以变透明的,而且还始终在最上面的窗口?
如何制作PB中查找的窗口,可以变透明的,而且还始终在最上面的窗口?
-...
-
powerbuilder 控件句柄转换,求教!!
问题:
比如我通过handle取得了一个button的句柄。
那么我能否根据这个句柄的值,又反操作还原这...
-
TAB控件能不能设置成不是3D的?
就类似于多行编辑控件的Border设置为false,变成平面的效果。找不到在哪里设置
------解决方案-----...
-
???新增按钮的问题
设置一个window窗口有个“新增”按钮,如何做出点击新增按钮,编号(varchar2类型)自动+1,点一下变成2,然后录完信息,再打开...
-
如何用回车键enter获得焦点
一个数据录入窗口,如何输完一个数据,按回车键跳到下一个要输入数据的地方 就和tab一样
------解决方案...
-
ole控件 Microsoft Web Browser
我用Microsoft Web Browser这个控件写了一个浏览器 但是不能运行脚本 对于那些需要在本地运行...
-
PB如何做透明的文本
我现在工作空间,应用程序,窗口都创建好了。也加了文本“用户名”,从网上看了要创建可视用户对象,粘贴了代码。但...
-
mdi窗口的sheet从normal变为max时闪烁
我的mdi的sheet默认打开后最大化,在sheet的resize事件中构造着把所有控件按比例伸缩,但每次...
-
如何使getfileopenname函数打开的窗口居中?
如何使getfileopenname函数打开的窗口居中?谢谢
------解决方案--------------------
...