535
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
xiaozhigood 2003-10-20
- 打赏
- 举报
谢谢上面的各位高手，
请问以下，怎么去获得当前窗口的标题呢？
请问以下，怎么去获得当前窗口的标题呢？
icecoldy 2003-10-20
- 打赏
- 举报
代码如下：
Declarations Section Of Form To Be Loaded In Dialogbox:
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (Byval
lpClassName&, Byval lpWindowName$) As Long
Declare Function SetWindowPos Lib "user32" (Byval hwnd As Long, Byval hWndInsertAfter As Long, Byval x As Long, Byval y As Long, Byval cx As
Long,Byval cy As Long, Byval wFlags As Long) As Long
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
'PostRecalc of Dialogbox Form
Sub Postrecalc(Source As Notesuidocument)
Dim myhWnd%
'class name and title of dialog box
'Step 1 --> get window handle
myhWnd = FindWindow(0, "Specify a Material Number and Batch Number")
' Parms 3 and 4 are x and y,
' Parms 5 and 6 are window width and height
'Parm 7 is constant Hex value for what you want to do with active window
'Step 2 --> Set window position by window handle
SetWindowPos myhWnd, -1, 165, 15, 725, 300, SWP_SHOWWINDOW
End Sub
Declarations Section Of Form To Be Loaded In Dialogbox:
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (Byval
lpClassName&, Byval lpWindowName$) As Long
Declare Function SetWindowPos Lib "user32" (Byval hwnd As Long, Byval hWndInsertAfter As Long, Byval x As Long, Byval y As Long, Byval cx As
Long,Byval cy As Long, Byval wFlags As Long) As Long
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
'PostRecalc of Dialogbox Form
Sub Postrecalc(Source As Notesuidocument)
Dim myhWnd%
'class name and title of dialog box
'Step 1 --> get window handle
myhWnd = FindWindow(0, "Specify a Material Number and Batch Number")
' Parms 3 and 4 are x and y,
' Parms 5 and 6 are window width and height
'Parm 7 is constant Hex value for what you want to do with active window
'Step 2 --> Set window position by window handle
SetWindowPos myhWnd, -1, 165, 15, 725, 300, SWP_SHOWWINDOW
End Sub
小木可 2003-10-20
- 打赏
- 举报
在declarations中声明，在click里call
lvhui2001 2003-10-20
- 打赏
- 举报
看你要调用什么了？如果是win api ，找一本win api 手册看看就行了，调用方法都有的。java 接口的api ，帮助里面有的。
gjd111686 2003-10-20
- 打赏
- 举报
Notes.ini中也可以加WindowTitle="标题"
gjd111686 2003-10-20
- 打赏
- 举报
GetWindowText()[WinAPI]
guofs 2003-10-19
- 打赏
- 举报
哥们你想调用什么样的API啊！Lotus本身就提供了Java的接口API。
