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

VB如何使窗体右上角的"X"无效?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何使窗体右上角的"X"无效?

要Disable Form "X" -->Close的功能(便暗灰色),事实上便是从Form左上方的SystemMenu将关闭的MenuItem去除掉便可以了,去除后,又该如何,那便是在将关闭(Close)的MenuItem加回去 但这里有个小问题,加回去之后"X"仍是暗灰色,要等到我们做了某些固定的动作之后(如TittleBar上Click一下,或选一下SystemMenu等), 我不知道让TittleBar上的这些东西Refresh要送什么消息,所以现在我暂且Send一个在TittleBar上按下Mouse左键的消息给窗体,令"X"能出现的Enable颜色
在窗体上放置一个Command Button,输入以下代码,运行,点击一下Command Button 就可使"X" Enable.
Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "User32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function AppendMenu Lib "User32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
Private Declare Function GetMenuString Lib "User32" Alias "GetMenuStringA" (ByVal hMenu As Long, ByVal wIDItem As Long, ByVal lpString As String, ByVal nMaxCount As Long, ByVal wFlag As Long) As Long
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_NCLBUTTONDBLCLK = &HA3
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Const MF_STRING = &H0&
Const MF_BYCOMMAND = &H0&
Const SC_CLOSE = &HF060
Private hMenu As Long
Private CloseStr As String '纪录Close MenuItem的字符串
Private Sub Command1_Click()
'将"关闭"的那个MenuItem重新加入
Call AppendMenu(hMenu, MF_STRING, SC_CLOSE, CloseStr)
'令"X"出现Enable的颜色
Call SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End Sub
Private Sub Form_Load()
hMenu = GetSystemMenu(Me.hwnd, 0)
CloseStr = String(255, 0)
'SC_CLOSE即是"关闭"的MenuItem ID
Call GetMenuString(hMenu, SC_CLOSE, CloseStr, 256, MF_BYCOMMAND)
CloseStr = Left(CloseStr, InStr(1, CloseStr, Chr(0)) - 1)
Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
End Sub
禁止使用 Alt-Tab 或 Ctrl-Alt-Del -VB资料 控制光驱门的开关 -VB资料 VB利用 窗口函数监视系统的运行情况(VB类) VB判断是否在VB5环境下运行 VB判断一个32位程序是否结束 VB判断一个程序启动完成(不是结束) 屏蔽TextBox的系统菜单 -VB资料 启动时禁止装入 Add-Ins -VB资料 让Timer控件每5分钟触发一次事件 -VB资料 让程序启动快一点 -VB资料 VB如何调用系統的【查找】、【替换】的对话框? VB如何动态新增、移除 ODBC DSN? VB如何读取 Picture 内任何一点的颜色值? VB如何获取硬盘卷标、序列号和文件系统类型? VB如何判别程序是在Win95或NT下执行? VB如何启动控制面板? VB如何取得磁盘序列号? VB如何让Window不接受键盘输入及Mouse Click VB如何让程序拥有多个热键? VB如何让用户自行输入方程式,并计算其结果? VB如何使程序不在Ctrl+Alt+Del弹出的对话框内? VB如何使用 VB 编写自动反安装的程序? VB如何用VB建立快捷方式 VB如何用VB在桌面建立快捷方式 VB如何在 VB 中控制 Modem 行为? VB如何在VB中判断Windows9x的运行模式 VB如何在Visual Basic中实现异步执行程序 VB如何在开机时自动更换墙纸? 使回车具有 Tab 的功能-VB资料 输入时,自动转换成小写? -VB资料 显示多媒体信息 -VB资料 急:哪里有电子文档 找到找到 网络编程、大虾有请!如何获得当前每秒的字节数? 各位高手,有人喜欢用mysql吗?谈谈这个东东吧 大富翁怎么连不上了? 各位武汉的大虾,请教武汉程序员、高级程序员、系统管理员(正规的大公司)、以及用JAVA做开发的工资一般为多少。希望大家给予帮助!!前途问题!! 网络编程大虾有请!如何获得当前每秒的字节数? 怎样在treeview中设置背景图片 to 版主:精华区太乱了,请给予分类。谢了 听说VB可以写PAD的程序,TRUE? JLabel中文本换行问题 马上要开始学BCB,请问BCB有那种类似于VC的创建类的向导吗,看到BCB的界面我就想到DELPHI中创建类的难度 我的游戏引擎BATTLEFIELD作好了,欢迎下载(这次是真的) 一个pop_up menu的问题 那位高手知道在SDK中使用ADO的方法 为普天之下正直而上进的程序员找一个温馨的家 为什么不能把JMF包打进去??? 内存泄露是指例如“为对象分配一个内存区后,未删除内存区,但删除了对象”是吗? 装pws时遇到的麻烦! to freezwy(网络自由人) 有没有限制上传图片大小的asp代码??(不是组件) 还是没有解决!!! 有关VC中数据库绑定的问题! 扔个骨头……下个“圈套”,呵呵? ^_^ 紧急情况!如何改变DataGrid控件中个别行的颜色?? 如果实现断开共享目录的连接 acces 表 SQL语句中如何转换字符型字段为整型? First-chance exception 请教directx的一个入门问题? 诚征MM中…… 多线程问题?? 请问sybase中real类型的最大值是多少?999999999 自杀的N个理由 如何根据日期计算出一年中的第几天? 情况不对,撤丫~~~~~~~~~ 如何在JBuilder4.0编译环境下打包\编译??????? 关于对话框的一个简单问题 如何把几个chm(已编译的 html 文件)文件合成一个chm文件 ado参数问题 请问sevrlet怎么结合HTML模板工作呢?谢谢 我想作一些动态界面,有谁能提供一些有关这方面的资料.小弟有礼了 比较弱的问题 各位大哥:请问哪儿有通过ADO操纵数据库的完整程序下载呀。最好是比较精典一点。谢 写一个php中的include文件,后缀名应该是什么。马上给分 怎么将PHOTOSHOP中分割的图片的结构植入DW4中? send 和 post的区别是什么?谢谢 哪里有《UNIX环境高级编程》这本书下载? 有没有asp的实例应用站点? 问题,请大家帮忙! 怎样删除自己曾经参与但现在不想参与的问题? 怎么样增加可用分呀?我分太少了 怎么使在网页上出现一个长方形框框,新闻在里面从左到右滚动显示 某项工程队,甲单独做需a天完成,在甲做c天(c 一件工作,甲、乙两人合作30天可以完成,共同做了6天后,甲离开了,由乙继续做了40天才完成.如果这件工作由甲或乙单独完成个需要多少天? 若(m+n)人完成一项工作需要m天,则n人完成这项工作需要()天请勿抄袭百度上滴,我都看过了,但还是不懂 一项工程,甲单独完成需要a 天,甲,乙合作需要b 天完成,求乙每天完成多少? 一件工作,甲乙两人合作30天可以完成,共同做了6天后,甲离开,乙继续做了40天完成.如果这件工作由甲或乙单独完成各需多少天?乙单独做需要:1÷(1-1/30×6)×40=50天甲单独做需要:1÷(1/30-1/50) 若有M人,a天可完成某项任务,则(M+P)人完成这项任务的天数是多少 一项工程,甲单独完成需要a天,甲,乙合作需要b天,求乙每天完成多少? 一件工作,甲乙两人合作30天可以完成 ,甲乙两人共同做了6天后,甲离开了 乙继续做了40天完成,一件工作,甲乙两人合作30天可以完成 ,甲乙两人共同做了6天后,甲离开了 乙继续做了40天完成,如 某工程,甲单独做4天乙单独做6天,若甲先干一天,然后甲乙合作完成,设甲共做x天乙工作的天数是?列出方程共得到450元报酬按工作量计算该怎样分配 一项工程,甲队独坐a天完成,乙队独坐b天完成.两队合作,求完成的天数 一项工程,甲乙合作15天完成.现在有甲队先做四天后,乙队接着做六天,共完成这项工程的7分之20,甲乙独做这项工程各需多少天?要有意思1992/1993的分子减去一个数,分母加上这个数后,分数值是2/3 甲单独做4天,乙6天完成,甲先做一天,甲乙再合作做,设甲一共作x天,乙工作天数?列出的方程? 一项工程,甲队独做A天完成,乙队独做B天完成.两队合作( ),天数完成 一项工程,甲乙两队合作6天完成,甲队单独做15天完成,现在由甲乙两队合作2天后,调走乙队甲队还需几天可以完成?我要算式和步骤。 某项工作甲单独做4天完成,乙单独做6天完成,若甲先干一天,甲乙合作完成.若设甲有共做了X天,乙的天数为多少?方程式为? 一项工程,甲单独做需A天完成,乙单独做需B天完成,两人合作比甲单独做提前完成的天数为( )A.ab/a+b B.b的平方/a+b C.a的平方/a+b D.a-b/a+b 一项工程,甲乙两队合作6天可以完成,甲队单独做15天可以完成,现在由两队合作2天后,甲队单独做,还需几天才能完成? 某项工程甲单独做要4天乙单独需6天,若甲先做1天,然后二人同做,若甲共做X天,则方程为?要方程 一工程 甲单独做3天完成,乙单独4天完成,甲队工作效率比乙队大约快( ) A,25% B 、25.1% C,30% D,3.3% 一项工程,甲、乙合做15天完成.现在由甲队先做4天后,乙队接着做6天,共完成这项工程的二十分之七,如果由甲、乙独做,完成这项工程各需几天?详细算式,不要只是一个答案~谢啦,还给追分,今天 完成一件工作,需要甲干5天,乙干6天,或者甲干7天乙干2天.甲乙单独干这件工作各需多少天?设甲是x那...完成一件工作,需要甲干5天,乙干6天,或者甲干7天乙干2天.甲乙单独干这件工作各需多少天? 某工程甲乙两人合作8天完成,需要费用3520元,若甲单独做6天后,剩下的工程由已来做,已还需12天完成,这这样共需要费用3480元.(1)甲乙两人单独完成此项任务需要多少天?(2)甲乙两人单独完 一项工程甲乙两队合作6天可以完成甲队单独做15天可以完成现在由两队合作3天后调走乙队,甲队还要几天完成? 一项工程,甲乙合作需要a天完成,甲单独作需要b天完成,则乙单独作需要的天数是多少 一项工程,甲乙两人合作4天后,再由甲独做6天才完成.已知甲比乙每天多完成1/80,则甲乙单独完成各需多少 甲乙二人共同做一件工作,规定若干天完成,若甲单独完成这件工作比规定天数多12天...甲乙二人共同做一件工作,规定若干天完成,若甲单独完成这件工作比规定天数多12天;若乙单独完成则比 有一项工程,甲单独做要a天完成,乙单独做b天完成,问甲乙合做完成这项工程需要几天才能完成? 一项工程,甲,乙两人合作10天可以完成,或甲独做20天可以完成.现甲,乙两人共同做6天后离开,甲离开,由乙单独完成这项工程,乙还需要多少天? 已知甲,乙两个共同完成一件工作需12天完成.若甲,乙两人单独完成这件工作,则乙所需的天数是甲所需天数的1.5倍.设由甲单独完成这件工作需X天.则方程____________________________________. 一项工程,甲单独做a天完成,乙独做b天完成,则甲、乙两人合做,这项工程多少天可以完成? 一项工程,甲、乙两人合作4天后,再由甲单独做6天才完成全部任务,已知甲比乙每天多完成这项工程的80分之1,则甲、乙单独完成各需多少天? 甲乙二人共同做一件工作,规定若干天完成,若甲单独完成这工作,则比规定天数多做12天;若乙单独完成这工作,则比规定天数多做27天,求甲乙单独完成这件工作各需多少天? 甲、乙2人合干A.B2项任务.甲独做A需9天.B需12天.乙独作A需3天.B需15天,至少几天能完成任务? 一项工程甲单独做6天完成,乙单独做10天完成,甲独做1天后,甲、乙两人合作,又做了x天完成这项工程的6/5.根据题意列出方程:_________. 已知甲乙两人共完成一件工作需12天完成.若甲乙两人单独完成这件工作,则乙所需的天数是甲所需天数的1.5倍设由甲单独完成这件工作需X天,则可列方程_________________ 甲,乙两人合干a,b工程甲独做a工程需九天b工程需十二天;乙独做a工程需三天b工程需十五天至少几天完成任务 某工程,甲独做需20天完成,乙独做需要12天完成,甲乙两人合作6天后,再由乙继续完成,再做几天可以完成全部工程?用一元一次方程做,工程问题问题本人不擅长,有思路更好 某项工程,由甲单独做要a天完成,乙单独做要b天完成,现在甲先单独做2天,剩下额工作由乙单独做,则要完成此工程,还需要几天? 一项工程,甲乙合作20天可以完成,如果甲先做9天,乙再和甲一起做15天也可以完成,求甲乙单独做要多少天?用初二所学的知识解答(分式?反比例?)这个方程怎样解? 一项工程 甲单独做20天完成 乙独做需30天完成 甲乙合作六天后 乙因事离开 剩下的甲要需几天完成? 某项工作,甲做要A天,乙做要B天,现甲单独做2天后,剩下工作由乙单独做,则乙完成剩下的工作所需多少天 有甲乙两个工程,甲人独做甲工程要9天,乙工程12天.乙人独做甲工程要3天,乙工程15天,如两人合作要多少天? 做一项工作,甲乙合作20天完成,甲干了6天后乙接着干4天,共完成了全部工程的1/4,甲单独干需要好多天? 某项工作,甲单独做要a天完成,乙单独做要b天完成.现在甲单独做2天后,剩下的乙做,乙要做多少天才能完成 一项工程,甲干4天,乙再干9天完成这项工作的1/2,已知甲、乙功效比是3:2,两人合做几天完成?是合做几天.. 某工程,甲单独施工需要20天完成,乙单独施工需要12天,甲乙二人合作6天后,再由乙 继续完成,乙再做几天可以完成全部工程? 一项工程,甲单独做a天完成,乙独做要b天完成,现在甲先做3天,剩下的工作由乙独做还需要()天才能完成列代数式代数式要化简 某项工作,甲单独做要a天完成,乙单独做需b天完成,现在甲单独做2天后,剩下工作由乙单独做,则乙完成所剩下的工作所需天数是多少 某项工程,甲单独做需20天完成,乙单独做需12天完成,甲,乙二人合作6天后,再由乙继续完成,乙再做几天?(方程解) 某项工作,甲单独做要a天完成,乙单独 做需b天完成,现在甲单独做2天后,剩下工作由乙单独做,则乙单独 数学题一项工程,甲单独做6天的工作量,乙单独做要用7.5天才能做完 现在先由甲单独做2天后,乙加入合做5天一项工程,甲单独做6天的工作量,乙单独做要用7.5天才能做完现在先由甲单独做2天后, 一件工作,甲乙两人合作30天可以完成.共同做了6天后,甲离开了,由乙继续做了40天才完成,如果这件工作由甲或乙单独完成各需要多少天? m人a天可完成一项工作,如果增加n人,那么几天可完成这项工作?急用 某项工作,甲单独做需a天,在甲做了c天后,剩下的工作由乙单独完成某项工作,甲单独做需a天,在甲做了c天(c 一件工作,甲、乙两人合作30天可以完成,共同做了6天后,甲离开了,由乙继续做了40天才完成.如果这一件工作,甲、乙两人合作30天可以完成,共同做了6天后,甲离开了,由乙继续做了40天才完成.如 m人完成一项工程要a天,且每人工作效率相同,那么(m+n)人要多少天完成?请说明为什么AM是总工作量, (1)一项工程,甲队独做a天完成,乙队独做b天完成.两队合作,完成的天数是( ). 一件工作甲乙两人合作30天可以完成,共同做了6天后甲离开了,由乙继续做了60天才完成,这件工作由甲乙各自这件工作由甲乙各自完成的话,各需多少天? 3.若m人在a天可完成一项工作,那么m+n人完成这项工作需_______天(用代数式表示). 一项工程,甲单独做a天完成,乙队独做b天可以完成.两队合作,完成的天数.用字母表示
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn