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

运行中隐藏/显示窗口标题栏-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
' 保证窗口具有相同的大小

改变元件的视窗式样-Delphi资料 给MDI主窗口加背景-Delphi资料 更改StatusBar为黑底绿字-Delphi资料 画布的圆拷贝和直线拷贝-Delphi资料 回车替Tab下移控件-Delphi资料 获取系统颜色-Delphi资料 渐变色窗口背景-Delphi资料 控件深度投影和阴影效果的实现-Delphi资料 控制Delphi的窗口显示位置 控制Form不能放大、缩小、移动、关闭-Delphi资料 控制系统菜单-Delphi资料 利用Delphi实现支持窗体的自定义函数 轻轻松松在DELPHI3.0中实现三态按钮 全部窗体可使用鼠标移动-Delphi资料 让按钮连续工作--兼谈Delphi元件开发 让彩色光标出现在Delphi程序中 让彩色光标出现在程序中-Delphi资料 在Windows桌面的任务栏上有一个凹陷的区域,其中显示着系统时钟以及一些图标,这个长方形的区域便 如何使用Show方法来显示一个模态窗口-Delphi资料 如何旋转字体-Delphi资料 如何隐藏和显示Windows的任务条-Delphi资料 如何在DELPHI界面上运行可执行文件 设计Form时的快捷键-Delphi资料 生成非矩形窗口-Delphi资料 时隐时现的鼠标-Delphi资料 无标题窗口的移动-Delphi资料 应用程序敏感键的实现-Delphi资料 用Delphi 4.0 设 计 新 型 界 面 用Delphi 实 现 自定 义 颜 色 对 话 框 及 其 构 件 用Delphi 实现自定义颜色对话框及其构件 用Delphi4实现风Word97风格的工具栏 紧急求助,在线等待,问题解决,送分200 关于搜索的一个问题,分不够再加! 用PRO做为服务器与用SERVER做服务器有什么不同? JAVA手机的效率问题 满分求助,网络传输碰到问题 做过通过wavecom gprs模块用AT指令发中文短信的同志帮帮忙 请问如何在网关处获取用户上网的信息? 为什么操作word出现重载“SaveAs"方法未获取16参数 HttpURLConnection中如何得到http://www.sina.com.cn后面的缺省文件名 小问题:关于MAC地址 在WINDOWS2000 ,开始菜单中的 "运行(RUN)" 在系统中是什么样的文件???? 急!! OleContainer 问题:为什么用olecontainer打开word文档速度非常慢,有没有解决的办法,多谢! 请问哪里有ASP+ACCESS 的邮件列表代表下载? dbgrid选中的问题?在线及等!!!!! 各地软件工程学院的学生都写写自己在学校学习的经历和体会! adobeacrobat 耗尽内存 如何解决 ! 新手求助:ADOQUERY控件的问题 文件与下拉列表 真搞不懂 关于办公系统及美术设计问题 API 局部放大函数 版主为什么删除我的帖子? 浏览器对象模型与文档模板(DOM)有什么不同和联系? 在datalist或datagrid中绑定的checkbox如何控制呢? 我的xp系统中ABC输入法,词组记忆功能始终不能用,请问怎么解决。 如何编程打开一些特殊窗口?如网上邻居,我的电脑属性,设备管理器 请教又一ShellListView和ShellTreeView中的问题?还望大家多多指教! 不懂!不懂!不懂!关于文档和视图。 将照片从数据库中取出,并显示到Image控件中,若当中不用文件作为临时存储行不行?? 弹出菜单怎么做 关于存储过程执行的正误判断及数据回滚问题。 关于LPCWSTR的问题? TChart的Canvas写上字后,最小化再最大化后字就没了, [2]请大家无论如何都要帮个忙,oralce存储过程性能问题,高手请进!!! 请问如何直接取得其它计算机的系统时间 如何使的 Form2 在 Form1 的 Top ? 怎样在pagecontrol的一个tabsheet中的页面加一个上下的滚动条 急!将textbox控件放入table中后无法通过controls获得textbox的id? 大家说说看!! 初来乍到,向各位学习,请大家指点一下,介绍些好的C#的WEB源码示例。 请大家帮我看看! weblogic发布servlet的问题 Fatal Error 的问题 哪里有和手机一样的笔划输入法下载. 哥哥们,问题还没有搞定,帮帮忙吧,很急呀,分不够可以加分 XDevClub.Com[X时代开发俱乐部]欢迎大家一起来讨论,来者有分 求救!!我的vc缺少一个 psapi.h 头文件!!!急用,帮忙粘贴一下,当场给分!!! 怎样更改CListCtrl中内嵌的CHeadCtrl控件的风格? 有关TChart的问题? 我怎样才能获得插入语句的ID值? 求帮助数组的问题 给分100 精工手表秒针会停怎么办 盐类是否都可以和酸反应, 请总结一下这类题规律 硅酸钠与重金属离子会怎样反应? 化学中哪些是盐类哪些是碱类 用铅灌子弹头是为了吗打得远吗?为什么?为什么不是增大杀伤力呢? 硅酸钠可以吸收什么气体 化学里的酸类,碱类,盐类怎么区分拜托各位了 3Q化学里的酸类,碱类,盐类怎么区分, 铝合金导电氧化处理表面附着力不好因为什么 硅酸钠的离子式可拆吗 氯气会与无水乙醇反应或溶于无水乙醇吗? 我要提问;盐类物质一定含有金属阳离子吗? 机械手表秒针的运动!机械手表秒针的运动可以看做匀速运动.秒针的角速度为w为多少rad/s?如果秒针长1cm,则秒针的线速度为多少m/s? 乙醇易溶于水,甲醚不溶于水?甲醚不溶于水? 盐类物质的组成结构如何 我的机械手表怎么秒针不走了~急 1质量为20g的子弹,以300m/s的速度水平射入厚度是10mm的钢板,射穿后的速度是100m子弹受到的平均阻力是多大? 过程 C,O,Ca这三种元素组成属于盐类的物质 【化学】850℃时为什么Na能将KCl中的K置换出来金属活动顺序表中K在Na之前,为什么在熔融状态下有如下方程式:KCl+Na====NaCl+K(条件:850℃)是否与金属活动顺序表矛盾? 乳胶枕的作用是什么?想先知道下. 所有的氨盐都能与NaOH的反应么?方程式都是什么? NO会与NaOH反应吗? 乳胶枕有什么作用?想先试试. 所有的氨盐都能与氢氧化钠反应么?如果反应,方程式是什么? NO和NaOH可以反应么写出方程式,thanks! 三氧化二铁与氯化铵的反应中,当生成2.24L氯气(标准状况下)时,发生转移的电子数目是多少? 1:求铁离子常温下在溶液中能存在的PH值范围.2:求亚铁离子常温下在溶液中能存在的PH值范围.麻烦...1:求铁离子常温下在溶液中能存在的PH值范围.2:求亚铁离子常温下在溶液中能存在的PH值范围 氟投入氯化钠溶液中的现象HF能和NaCl反映吗 为什么七彩圆盘转起来就能看见白光?没一楼回答的那么简单~貌似与速度\视觉有关的 电泳的巴比妥酸缓冲液可以用多少次 苯能过滤吗 影响碳的核磁共振谱和质子核磁共振谱化学位移因素 将黄铁矿的煅烧产物四氧化三铁溶于硫酸后加入铁粉 可列备硫酸铁 酸容过程中要保持 足够 酸性原因 是什么呢 那个高手帮我下 硝酸氨为什么易分解?如题 除了小苏打和醋还有没有不可逆的混合物.马上要 我生产的硅酸钠液体氯离子含量太高1000多怎么回事!怎么降低它的含量? 无负压供水设备需要装水池吗?听说水池容易产生污染. pm2.5口罩能起过滤作用吗?还是没用呢? 为什么氢氧化钠不和氨反应 不需要建水池的供水设备什么类型的好? 无菌注射器大小0. 哪些反应生成盐类物质 男士石英手表哪个牌子好 氢氧化铜能不能与氯气反应?如果能,氯离子的化合价是多少,反应方程式是什莫? 用什么种类的物质(什么什么盐类)和浓硫酸制取二氧化硫 镓在化合物中只有一种化合价,相对原子质量为70,其氧化物相对分子质量为188,则磷酸镓的相对分子质量为? 常温下PH=7,铁离子在溶液中为什么不能存在?那亚铁离子呢?它能存在吗? 钢芯弹,铅芯弹,普通弹有什么区别呢? 金属镓在化学物相对原子质量为70,其氧化物相对分子质量188.磷酸镓的相对分子质量是 发泡机,发泡机特点,发泡机事项 一个长50cm,宽40cm的长方形容器里盛有水,吧一个底面半径是10cm,高是9cm 某元素A在化合物中只有一种化合价,相对原子质量是70,其氧化物相对分子质量为188,则A元素与氯元素形成的化合物的化学式为A AClB ACl2C ACl3D A2Cl3为什么 发泡机技术,发泡机产量,发泡机操作 怎样判断物质是否属于盐类初三科学,简明扼要啊 我正预习呢急啊 如何去除地面砖上凝固了的水玻璃?用水玻璃堵地砖缝,地砖上残留好多水玻璃,已经凝固,非常难去除,特来此请教高人应该怎么办.我看了一下瓶子上写的成份为“硅酸钠”,应该属于碱性吗?不 化学中如何区别盐类和碱和酸,主要说明下怎样的化合物才是盐类? 哪些物质属于盐类(化学) 我的精工手表秒针经常停,到底是什么问题呢? 亚硫酸盐都能与酸反应吗?还有那些盐类与酸反应 三不原则是什么?节约原则?处理三不原则?3Q 网传“倒输银行卡密码可报警” 银行否德国政府表示愿与斯诺登直接对话纽交所黄金期货市场1日交投最活跃的1洛杉矶机场枪击案1人死亡多人受伤 航纽约油价1日下跌北京一周三发重污染预警 13省市雾霾北京将迎冷空气救场驱雾霾 北风吹出蓝洛杉矶机场枪击案1人死亡多人受伤 航巴基斯坦塔利班首领在美军无人机空袭中美国洛杉矶国际机场发生枪击事件洛杉矶国际机场发生枪击事件 嫌犯被执墨西哥对垃圾食品征税8%英拟对外国购房者增税补赤字美贩毒隧道铺轻轨尼加拉瓜发布 登革热红色预警泰下院争议中 通过特赦法案洛杉矶国际机场发生枪击事件 嫌犯被执广西岑溪炮竹厂爆炸已致11死17伤斯诺登密会德议员 称愿为NSA窃听事广西炮竹厂爆炸死亡人数升至11人 责俄总理:美国窃听外国领导人的行为“无俄海军官员:核动力航母2030年前将云南省人大常委会2015年跟踪调研1【高清组图】野生鸟群栖息库尔勒市杜鹃徐颐恬:长阴新低应是加速赶底原油黄金分道扬镳成市场新常态“网络公益广告联播”作品开始集中展播农村宝理财:理财五种笨方法 让你的钱融合一套智能家居的智能插座—小猫智能本周市场有望企稳 波动区间2900-大盘或迎最后下跌中国釜底抽薪踏入美国50年禁忌之地背徐颐恬收评:最后一跌!精彩!海南政协委员关注农村大龄男青年择偶难农村宝理财师介绍家庭的理财策略防甲醛中毒,“宝乐丽家”智能婴儿车好红木家具老板自述:从发不起工资到年入安提瓜和巴布达——加勒比地区的经济引股市暴跌被套住,不要急,教你解套!!人社部回应养老金入市时间,哪些个股会谁说下雪的日子结束了?森林公园的“樱肆意|给你一个为所欲为
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘