说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

使用notes时,一般人会遇到这样一个问题,请大家帮忙出出主意!(谢谢大家)

编辑:说三道四文库 发布时间:2018-08-16 02:32
HTML文档下载 WORD文档下载 PDF文档下载
在一般人的习惯中,软件使用完毕后要点击右上角的“叉”来关闭当前程序。所以这些人在使用notes的时候就可能会遇到这样的问题----也就是说当他们完成当前的工作的时候就去点击了右上角的“叉”,但是这样的话,他就关闭了整个notes程序,而却没有什么东西来提醒他当前他关闭的是notes程序而非当前的工作窗口。往往此时,他们又不得不去再次打开notes程序,来继续自己未完成的工作。
    我的问题我想大家一定也很清楚了,就是说如何才能在用户点击右上角的“叉”的时候跳出一个提示来警告当前用户:你关闭的是整个notes程序而非你的当前工作呢?也许这个问题很简单而是因为我没有找到答案才会觉得难,也许还有别人也被这样一个不算问题的问题而困扰,还希望大家帮忙,共同学习,共同提高!
Declare Function GetActiveWindow Lib "user32.dll"() As Long
Declare Function SetMenu Lib "user32.dll"(Byval HMenu As Long,Byval NewMenu As Long ) As Integer
Declare Function GetSystemMenu Lib "user32"(Byval Hwnd As Long,Byval bRevert As Long) As Long
Declare Function RemoveMenu Lib "user32" (Byval HMenu As Long, Byval nPosition As Long, Byval wFlags As Long) As Long


Sub Initialize
Dim hMenu As Long
hMenu=GetActiveWindow()
Call SetMenu(hMenu,0) '隐藏菜单
Dim hButton As Long
hButton=GetSystemMenu(hMenu,0)
Dim hResult As Long
hResult=RemoveMenu(hButton,&HF060,&H0&) '屏蔽关闭
End Sub
这样子岂不是没法关闭Notes了?
可以通过下面的方法关闭Notes:
可以在你的应用系统中调用下面代码@Command([FileExit])来帮助用户确认:是否要真的退出整个notes程序.


REM ""询问用户是否真的想要退出整个notes程序;
YesNoQuit := @Prompt(......);
@If(YesNoQuit; @Command([FileExit]); "")

yancey_xie@163.com在北京祝你成功!!

gjd111686(数字金刚) :你好,你说的太高深了,而且不明白你的代码应该放在哪里,所以...
yanceyxie() :你好,你说的yesnoquit就是一个变量的名字吧!?当点击“叉”的时候,我试过你这样的代码,无论你选择的是否是关闭,它都会关闭的,没有用。
另外,现在我这个话题里面要求的似乎是对notes的平台进行开发和改变,而你们说的都是对其中的一个库中写代码,这样能解决实际问题吗?
    如果我一个库都不打开,它还会提示吗?
    我不是很懂你们的意思,望再次不吝赐教,谢谢!
将代码放在Bookmark.ntf中的资源-其他-数据库Script然后删除Bookmark.nsf重起就可以了.
直接修改Notes比较困难但可以用监控程序用FindWindow来获取Notes窗口的句柄截获消息.


好象没有什么必要
平時注意點就好了﹐出現這種問題只能說明你剛剛開始用還不習慣
我開始也是這樣﹐是微軟的習慣讓我們心煩﹐我們應該適應ibm的才好
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘