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

运行中隐藏/显示窗口标题栏-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
运行中隐藏/显示窗口标题栏-VB资料

声明:
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const WS_CAPTION = &HC00000
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_SYSMENU = &H80000

Private 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
Private Enum ESetWindowPosStyles
SWP_SHOWWINDOW = &H40
SWP_HIDEWINDOW = &H80
SWP_FRAMECHANGED = &H20 ' The frame changed: send WM_NCCALCSIZE
SWP_NOACTIVATE = &H10
SWP_NOCOPYBITS = &H100
SWP_NOMOVE = &H2
SWP_NOOWNERZORDER = &H200 ' Don't do owner Z ordering
SWP_NOREDRAW = &H8
SWP_NOREPOSITION = SWP_NOOWNERZORDER
SWP_NOSIZE = &H1
SWP_NOZORDER = &H4
SWP_DRAWFRAME = SWP_FRAMECHANGED
HWND_NOTOPMOST = -2
End Enum

Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Function ShowTitleBar(ByVal bState As Boolean)
Dim lStyle As Long
Dim tR As RECT

GetWindowRect Me.hwnd, tR
lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
If (bState) Then
Me.Caption = Me.Tag
If Me.ControlBox Then
lStyle = lStyle Or WS_SYSMENU
End If
If Me.MaxButton Then
lStyle = lStyle Or WS_MAXIMIZEBOX
End If
If Me.MinButton Then
lStyle = lStyle Or WS_MINIMIZEBOX
End If
If Me.Caption <> "" Then
lStyle = lStyle Or WS_CAPTION
End If
Else
Me.Tag = Me.Caption
Me.Caption = ""
lStyle = lStyle And Not WS_SYSMENU
lStyle = lStyle And Not WS_MAXIMIZEBOX
lStyle = lStyle And Not WS_MINIMIZEBOX
lStyle = lStyle And Not WS_CAPTION
End If
SetWindowLong Me.hwnd, GWL_STYLE, lStyle
' 保证窗口具有相同的大小

因Java漏洞,Facebook遭受恶意软件攻击但未泄密 HTML5预测 取代本地App将成为可能 2013年最佳实习企业:微软仅居第三 助力响应式设计:Adobe发布最新HTML5工具包 VMware控告Hortonworks恶意挖角 2013年大数据真谛:实时分析与批量处理 微软招聘信息证实Windows Blue项目正在推进 研究人员正开发永不会崩溃的计算机 Google:开发者应尽早进入可穿戴式计算 Chrome OS身世及其创始人之谜 谷歌举办Glass Foundry黑客马拉松活动 获80款Glass应用 政府和法律的干预拖慢了云计算发展 AMD打造开放的异构计算标准? Podcasts:苹果史上最烂iOS应用 烂过iOS Maps 日本游戏开发公司谈:如何在激烈的APP世界立足 VC不会告诉你的8件事 Reddit宣布将接受虚拟货币Bitcoin付款 OneID创始人:双因素身份验证无法保护Twitter Opera放弃自家内核转投WebKit的背后 Amazon强攻私有云市场,目标锁定银行 微软的24年数据中心之路 Flurry:约会应用男同性恋用的最多 jQuery消息提示框的简单实现 Mozilla CTO:Mozilla不会转向WebKit 这很重要 Pinterest或超Twitter成第二大社交网站 适合儿童上手的八款编程工具 一周云事件:亚马逊对消费者的吸引力超过苹果 比尔&#183;盖茨对微软创新和手机不满意 让我们一起来做最漂亮的Android界面吧! 响应高达6秒 用户揭露Heroku修改路由“50倍圈钱”? [探讨]响应式设计四大原则 那里有更多的skinengine换肤文件? 奇怪的问题,高手请看,马上给分! 怎样给一个OLE控件其内置的事件编写脚本? 请问各位能否将一个VF的数据库方便的转为ACCESS数据库 如何关联一个扩展名到我的程序? 我有一个备注memo的字段,想更新?如何进行? www.ipowerweb.com 的主机怎么样? 高数、线性代数与程序员!!! Sworddx,补分给你 怎么做定时 这个listctrl问题怎么老没有人回答我?????? TQuery为什么没有这个属性? 哥哥们 ,谁能帮我? 高分,谁有奇域外挂? 急急!!winsock 在网速特别慢的时候,发送与发送之间有一个等待时间,这个时间是不一样的!!! 关于表单的先后顺序 万分火急,关于authorware的? 关于用ASP调用SQL 数据库存储过程的问题!高手帮忙 提议:共同作个小项目 急需解决字符串中的千位分割符去除的问题?在线等 修改客户端资料 AUTOCAD2002的授权号在哪里弄呀?? 网站首页跳出一个小广告或者通知的网页大小 初来乍到 怎么才能让DATA控件支持ACCESS2000? 可否推荐几个对考系分有帮助的网站?先谢了。 初学者的问题 项目开发:select,insert,等要不要直接写在程序事件里面,还是要用DW做操作?? 翻一次页需要80秒,有什么好办法提高效率? 将灵魂出卖给Microsoft?还是选择Sun One? 昨天在公车上目睹……(亲身经历) 用什么样的报表、表格控件好呢? 如何插入一个memo备注字段的纪录 ole字段相互负值,该怎样写呢? 关于delphi局部结构变量,初始化问题。这事儿说起来很惭愧。。。。 中软的叫我去作软件外包,请问给为老大我该去吗 为什么不能访问http://www.apache.org/了? [高难问题]如何让asp启动的程序,显示在服务器端,而不光是个进程 迫切需求Dundas Chart FOR ASP.NET 3.1企业破解版 收到了BORLAND寄来的奖品,送分庆祝,请斑竹不要介意! RichText关联的文件怎么保存? 誰能解決"Read failure"的問題﹖送500分。 求更好的文本编码方法 在delphi中如何实现多副jepg图片存储数据库???? SOS!请教一道变态题目 我是头感情上的猪,我不懂的控制我自己的感情。 那里下载 visual studio.net (在线等待) 帮忙看看这段简单的代码 请问VmSize,Vmlck等等这些项都是什么含义? 学习哪一门语言更好,希望ggjj们给以帮助 !! 那里下载 visual studio.net (在线等待) 史记中不可能记载的是A.大泽乡起义 B.春秋争霸 C.大禹治水 D.昭君出塞 某农业专业户建造一个形状是直角梯形的苗圃,其邻变借用夹角为135°的两面墙,另外两边用长喂30米的篱笆围起来,设苗圃的垂直于梯形两底的腰长为x,试用解析式将苗圃的面积表示为x的函数 热带地区有无四季之分?RT 有没有人知道“善终”的反义词可以用什么?同上,没有补充了. 要建一个直角梯形的苗圃,两临边用夹角为135的两面墙,另两边总长为30米,若垂直底边的腰长为x米,...要建一个直角梯形的苗圃,两临边用夹角为135的两面墙,另两边总长为30米,若垂直底边的腰长 秦始皇和汉武帝有什么共同点(例如:都是杰出的政治家 实行郡县制 ) 请问有没有人知道无处不在的反义词或者类似意思相反的四字词是什么呢 拉面拉第几次有32根面 什么是甲功三项 同源染色体怎么数啊 排词成句:吹着 春风 温暖 轻轻地 的 春天 请问甲功三项是指哪三项? 有丝后期同源染色体怎么数 拉面数学题要拉510根要拉多少次 甲功三项怎么查 分裂各期同源染色体数最好能讲的详细点,关于同源染色体的我一直都搞不清急!我指的是减1的间期、前期、中期、后期、末期、和减2的间期、前期、中期、后期、末期的详细说明 漏电保护器的额定动作电流和额定不动作电流分别为30毫安和15毫安那当漏电电流为20毫安时漏电保护器动作么 甲功七项包括些什么? 南丁格尔事迹(短文) 请问甲功八项检测有什么作用 甲功七项是什么 请问哪些书是在高中需要阅读并且要考得? 请帮看下甲功八项检测报告单,是什么病?甲状腺弥漫性病变肿大 伴单发0.5*0.5边界清晰结节项目代码 项目名称 结果 参考值FT3 游离三碘甲状腺原氨酸 2.28 1.45--3.71 pg/mLFT4 游离四碘甲状腺原氨酸 世界上什么蛇最小、 下列不能通过叶片上的气孔交换的气体是?A.氧气 B.水蒸气 C.二氧化碳 D.有机物 请帮我看一下我的甲功八项化验单病情描述(发病时间、主要症状等):T3——1.623(0.78-2.2) T4——90.819(42-135)TSH——3.054(0.3-5.0),FT3——3.961(3.19-9.15)FT4——14.482(9.11-25.47)TGAB——0.348( He was very hot _____ so ______ clothes. 谁给形象地解释一下什么是单向值传递方式地址传递方式又是什么意思呢 甲功八项是什么 ------- fine arts,do you have any interest in painting?A.Talking of B.Talk about C.To be talked of D.Talking on 如何用形象地语言来解释兴奋在神经元间的传递 次年是什么意思 六年级英语自我介绍 检查错误或提出修改意见文章如下:Hello!I'm Roger .I am 12 years old .I am in Class 1 Grade 6 .I am a active boy .I like programming .I will be a junior high school student,I feel very happy.一楼的:我 如图,已知:AB=CD,∠A=∠D,求证:∠B=∠C梯形 次年 是什么意思 一根长2米的圆木,截成两段后,表面积增加了24平方厘米,这根圆木原来的体积是多少? 一花农计划借助两面夹角为135°的残墙围出直角梯形的花圃,围花圃总材料长45米问如何取两直角边长,可使花圃面积达到最大,最大面积为多少 具有吸附性的多孔材料有哪些? 定神细视与神游其中的意思 已知:如图,AB与CD相交于点E.求证:∠A+∠C=∠B+∠D 为什么多孔的材料和多孔的结构有利于吸收噪声? 高原生长的柳树会遇到怎样的困难?阅读题, 如何快速解决行测中的计算题 如图,一块直角梯形苗圃的两条邻边是夹角为135°的围墙,另外两条边用总长为45米的篱笆围成.问;篱笆的两条边各是多少米时,苗圃的面积最大?最大面积是多少? 右手定则与螺丝旋转的方向是什么关系?右手定则与螺丝进出的方向是什么关系?如何判断螺丝进出的方向?不要跟我说什么N极和S极 我只想晓得如何判断螺丝的进和出 (要精简, 寻求行测计算题解答甲、乙两人从400米的环形跑道的一点A,背向同时出发,8分钟后,两人第三次相遇.已知甲每秒钟比乙每秒钟多行0.1米,那么,两人第三次相遇的地点,与A点沿跑道上的最短距离是 有一道选择题的选项是这样说的.绿藻黑藻可吸收城市污水中的有机物,并用于自身的光合作用. 为什么有一道选择题的选项是这样说的.绿藻黑藻可吸收城市污水中的有机物,并用于自身的光合 定神细视视的意思 生产队预计30天修完一条水渠,先用18个人修12天完成工程的1/3,如果要提前6天完工,还要增加多少人? 绿藻能吸收有机物吗 定神细视的具体意思童趣里 定神细视 这个的具体点的解释是什么,要具体点 含有雌和它的反义词的成语如题 甲功检查 定神细视的定是什么意思 校园要建苗圃,其形状为直角梯形,其中有两边借用夹角为135度的两面墙,另外两边是总长为30米的铁栅栏求梯形的面积y与高x的关系式求x的取值范围请写出具体算式, 谁能帮帮看看我的甲功检查表,项目 结果 参考范围T4 8.7 4.5-10.9FRT4 1.25 0.89-1.76T3 2.65 0.6-1.81FT3 5.67 2.3-4.2THS 0.01 0.35-5.5以前是5项都不正常,现在这样表示好转的吗, 浮生六记 闲情记趣 “神游其中”的“神”是什么意思? 校园要建苗圃,其形状为直角梯形,其中有两边借用夹角为45度的两面墙,另外两边是总长为30米的铁栅栏(1)求梯形的面积Y与高X的表达式; (2)求X的取值范围 什么是甲功七项检查 "台湾蝴蝶甲天下"的意思 旧金山地方检察院举行反家暴妇女维权座澳大利亚赏鲸季来临 民众目睹2600日本学生12万粒杏仁膏立体再现法国印澳夫妇因非法改建房屋供学生住宿被罚3美国50州首富名单出笼 盖茨巴菲特仍墨尔本赛马节下周将开始 预报称天气状联合国首次主动攻击非洲叛军 或抛弃被叙总统要求西方为日内瓦会议停止资助叙新书显示挪威杀人魔在母亲逝世前曾向其旅游局:明年节假日方案仍在研究 将参以色列批准新建1500套定居点住房遭澳大利亚药物管理局警告当地人勿饮壮阳法国部分知识分子反对将嫖娼列为违法引韩国防长称将重组国军网络司令部 提高韩国防长称将重组国军网络司令部 提高第6届义乌森博会开幕 25个境外展团斯诺登不会赴德就监听事件作证 可在俄蒙古总统结束对朝访问 或未见金正恩英国考虑对外国购房者增税斯诺登与德议员会面三小时 向德联邦政巴勒斯坦欲就以色列建定居点寻求国际司铲除滋生职务犯罪的土壤金寨森林公安保护资源获殊荣摩托警队护守平安信访反映民意 请速查处回复地税电子税务实施“升级版”为了宣传二胎,武穴这家医院也是蛮拼!教你做火爆网络的可可漩涡蛋糕,好配方新年求职找市场安徽新增两家国家火炬特色产业基地应把惠民之事办好国内统一刊号:CN34 0001北京市委原副书记吕锡文被双开坚持防打结合综合施策标本兼治切实有效“零距离”感受110合力维权 保障支付农民工工资黄梅戏《胡久根卸任》获部级资助肥西践行生态立县 实现绿色发展送医车辆抛锚 交警急援房地产去库存如何发力?《中共中央国务院关于实施全面两孩政策“小寒”注意保暖
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘