Dialogbox问题?

icecoldy 2003-10-15 05:43:45
怎么样可以改变由@dialogbox公式弹出的对话框的默认界面,谢谢!
...全文
116 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
icecoldy 2003-10-17
  • 打赏
  • 举报
回复
是什么网站啊?我根本就进不去,郁闷,能给我抄几个下来吗?谢谢楼上的。
gjd111686 2003-10-16
  • 打赏
  • 举报
回复
Http://202.110.215.104/上可以下载NotesAPI,另有一些函数的用法例子,有进度条什么的.
icecoldy 2003-10-15
  • 打赏
  • 举报
回复
代码如下:
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
icecoldy 2003-10-15
  • 打赏
  • 举报
回复
是FTP,还是用HTTP打开啊?能不能说清楚一点啊?我进不去。
icecoldy 2003-10-15
  • 打赏
  • 举报
回复
哪个网站?
gjd111686 2003-10-15
  • 打赏
  • 举报
回复
你可以到202.110.215.104上下载NotesAPI的示例程序.我忘了怎么写了.

535

社区成员

发帖
与我相关
我的任务
社区描述
企业开发 Exchange Server
社区管理员
  • 消息协作社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧