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

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

富士康自主研发智能手表 惹苹果发来订单 开发者眼中的iOS 7:重设计过程没想象中那么糟 游戏引擎Unity宣布免费支持Windows Phone 8及Xbox One 蝉游记王益善专访:7人小团队实现App 30万下载量 去除IE 10广告的两种方法 直接拿来用!最火前端开源项目(二) 工作变得简单又高效 试试这八个WebApp 移动周报:生于微信,疯狂猜图的推广经 DataTorrent 将数据分析速度从“实时”提升至“现在时” 华为FusionCube开启全球规模商用 黑暗架构:以最少时间完成系统升级并获客户认可的开发之道 Hadoop Summit 2013见闻:创业与Hadoop 2.0不可阻挡 Facebook的清洁能源改革——革命尚未成功,仍需努力 YARN或将成为Hadoop新发力点 主流编程语言属性一览(多图) 粉碎硬件复杂论:开发者不懂硬件运行的方式怎么可以?! 最新版Chrome OS加入Word和Excel编辑功能 直指微软 传诺基亚将购诺西全部股份,疑为出售手机业务做准备? 优秀技术领导者的修成之道 直接拿来用!最火前端开源项目(三) 第八届开源中国开源世界高峰论坛成功举办 曾经那些主流的API,而今风光已不再! Android 4.3本月9日亮相 新功能汇总 移动游戏的国际化运营技巧 Google的Janus与Facebook的McDipper:将闪存用于数据中心 拥抱开源还是坚守阵地:传统数据库供应商面临抉择 超棒的30款JS类库和工具 立场坚定:惠普仍然密谋回到智能手机市场 6月份浏览器份额:Chrome成市场份额增长最快浏览器 关于PHP的十大误解 你中了几个? 专访西电朱虎明:异构计算硬件架构呈现百花齐放 百家争鸣 有没人对挂广告条赚美元感兴趣? 一起研究研究 光驱不能自动读取怎么办!! 偶辛勤灌水,到底是为了什么? 为了帮助后进青年提高,请水园的mm们来登记一下 请问在SQL SERVER 2000中,以下字段类型有什么区别: 请各位介绍一些FLASH的好书!!!!!我要学! 关于PCMCIA ...欢迎交流指导! 她问我“上个黄色网站让我看看”, 是什么意思????????? 怎么样能提高IE的速度? 你的DELPHI6的帮助有没有这种问题? 请推荐几处下载java编程方面电子书的站点? 请问有没有工具把access中的文字繁简转化一下?? 找一个高人——HC 请教如何使用API中的GetUserName()? 怎样才能买到 外文期刊??? 如何将一屏显示不下的文档打印在一页当中(CHtmlView) 请问《程序员》杂志上的那几本外文期刊怎么买??? 我下载了几个rar文件有*.rar\*.r01\*.r02等等,可是这个网站没有提供合并文件,忘了怎么合并了,谁知道快告诉我。copy *.rar+*.r01不管用 请教在线的高人(在oicq上吗?) 我是白痴!大虾,什么是专家分,怎么得,有捷径吗???????????? 图形化界面问题!控件与窗体不重合! 书上的东西我看不董,是关于PB70与COM/MTS的,COM/MTS是什么,谁能告诉我? 怎么样能解决死机的问题? 跟帖比聊天有意思多了,哈哈 过去了,就不要再提 灌水乐园,我的MUD练功场 StringList 与 String的区别 为什么我的组合筐里只有最后的项,即"交叉线",没有其他的内容? 关于Tmemo 共享软件的开发经验 部件(Crystal Repot)引用错误(crystl32.ocx),请高手指点,,谢谢 无数个问题之123 steps你有oicq吗?壮丁!!!sos 怎样将数字字符转化为数字呀? WIN98下能读的光盘到了WIN2000/NT下居然读不出来! WIN98下能读的光盘到了WIN2000/NT下居然读不出来!(我的光盘是刻录的) 我不想要分(也许我只是个女生) 40分=一网址:那儿有Effective C++ 2e电子书? 如何在菜单中加入下拉框?像delphi的那样. 怎样用vb程序实现监控打印机打印输出情况 大家评出水园最有人气的mm,我给分啊,行动要快啊~~~~~~~~~~~~~~~~~~~~明天晚上7点结贴 编译servlet文件出错!急!!!! 寻觅朋友(用delphi优先) 我希望能认识安徽的程序员~~~~~~~~~~~~~~~联系:6011458(OICQ) 很长时间,我还是觉得这是一个事实! javascript中怎么进行数据类型间的转换? 关于非文档视图结构程序的菜单 寻delphi兼职程序员,要求比较懂数据库,多劳多得,不劳不得,报酬从几十元到几千元不等。 在程序中更改Filter to lastlove(☆)robin(★) 关于《深入浅出MFC》电子书 介词修饰什么词性 英语中的名词动词代词形容词副词宾语主语谓语等是什么意思 英语中的词性表示是什么意思,例如n表示名词,v表示动词,adj又是表示什么呢?还有其它的 perp.是什么词性?(介词,形容词,代词等等) 在英语中,什么词后面接动词的原型,什么词后面+动词的ing “的”,“得”,“地”各修饰什么词性的词语,有什么区别呢? 介词,动词,形容词,名词后分别跟词性?需要举一些例子给我,另外可以附带一些初中的词性转化 给我.比如 名词interest 形容词interested形容人/interesting形容物 请给我一些详细点的资料 谢谢了. 在英语中,主语,谓语,宾语,动词,形容词,副词,行为动词,表语,几乎动词,介词如何理解? 一个词多个词性,怎么区分?比如说hesitate这个词.hesitation和hesitance都是名词,那应该怎么区分? 介词有哪些,介词的后面是加什么词性 英语选词填空(15选10)词性之间的搭配有何规律?(比如动词后面跟副词) 帮我辨别一下下面的一些词的词性呀!急就是感情色彩(褒义贬义或者中性)荒唐 异想天开伶俐 无缘无故洋溢 跳梁小丑谦逊 不屈不挠攻击 孜孜不倦谗言 飞黄腾达战争 人迹罕至 英语中的宾语,介词,形容词等词性是什么意思 英语中副词,介词,形容词,名词,动词有什么特点,怎么个用法?可以列句子说明,并且指出句子中包含的词性!快,通俗易懂点的! 一个词性多个词,怎么区分.比如说hesitate这个词.hesitation和hesitance都是名词,那应该怎么区分? 英语语法中v.vt.vi.这种符号分别表示什么词性 英语里面状词定语谓语宾语表语什么意思通俗点的 动词.名词.介词.副词.形容词后或前面跟什么词性的词? 初一上英语语法短语句子,关于sth和sb的如:like doing sthwould like to do sth…… 英语里面状词 定语 谓语 宾语 表语之类的什么是意思如题 英语问题“单词 词性缩写字母”比如动词 形容词啥的缩写 初1英语语法短语句子,关于sth和sb的 全部! 英语里什么词可以做主语,谓语,宾语,定语,表语等. 英语中动词前面和后面可以加什么词性的词例如形容词 副词啦 前面和后面啊~ 求英语语法(sb.sth之类的)最好是初一的比如buy sth.for sb.sell sth.to sb.之类的,要汉语 介绍主语 谓语 宾语 状语 表语.等词语在英语中的概念(回答一定要具体)而且要通俗易懂 各种词性后跟什么词?形容词后加..系动词后加..动词后加....................等等还有,,people + is还是are 初1英语语法短语句子,关于sth和sb的7年级所有的 俺English差 好心人说下 最好是专业的 很懂的格式如下:ask sb to do sth (意思) 什么词可以做主语 谓语 表语 宾语 定语?要具体一点 在英语作文题目中什么词性的词首字母不大写?be动词首字母大写吗? really是什么词性 英语定语从句中能充当宾语的有哪些词?还有可以充当主语的? 所有英语词性缩写比如动词,形容词.什么adj,vi,vt这类的.要全! 最近这个单词用形容词词性怎样写? 什么词可以直接接宾语(英语中)| :及物动词---可以直接接宾语 行为动词 | | :不及物动词---不可以直接接宾语 ㄗs:我不明白的就是什么词性的词后面可以直接宾语 什么词性的词后面不 英语中 各种词性的简写及意义例如名词的简写是n,还有意思, h开头的形容词单词(词性是好的) 英语中能做宾语的有什么类型的词? 英语词性缩写不要太多,几个基本的就可以了,只需包括初中所有的就行了. really是什么词性,real与really有什么区别 什么叫宾语.动名词.副词.反正英语里的语法的这些词都解释一遍.别给我搞那些专业的术语来解释和回答.就用好理解的方法来解释.好的回答有高分、、 英文a.是什么词性的缩写?是adj还是adv?请快一些, “欣赏”这个词属于什么词性?比如,“我很欣赏你”,或是“欣赏是一门艺术”,抑或是“欣赏你不代表膜拜你”之类,请问,这个词在不同的句式里,算什么词性和什么语? 英语-动名词做宾语我学习动名词做宾语的时候看到了:要记住如下动词及短语只跟动名词作宾语:enjoy,finish,suggest,avoid(避免),excuse,delay,imagine,keep,miss,consider,admit(承认),deny(否认),mind,p 在英语中,各种词性的缩写 “回答”这个词属于什么词性如果在“那女孩的回答给了我一种自信的感觉。”中也是吗? 英语动名词,宾语,表词,主语造句一个造一个和中文意思 谁能告诉我各个词性及英语缩写?比如说动词V 越全越好 所谓这个词属于什么词性 英语中有些动词后接不定式或动名词作宾语时有严格的区别,可以将它们分别归类~谁知道这方面的详细分类?(动词越多越好) 英语中所有词性的简写!比如及物动词vt 不及物动词vi尽量全! 看看这个词是什么词性?The young people were still abroad at the dead of night.其中的abroad是什么词性?be still 后面应该跟什么词?形容词还是副词? 英语中只能接-ing分词作宾语的动词有哪些?用英语单词表示 谁能告诉我英语词性的缩写(全部)带解释那种,感谢赏 look后加什么词性He looks ( ).In fact he isn‘t.A.care B.careful C.carefully D.more careful(主要的问题是:look(系动词)后加什么词性的词) 英语中类似名词动词先形词谓语宾语什么的都什么意思啊好像还有几个这种.最好加上英语举点例子... 所有英语词性符号简称注意,是简称哦. 词性的意义结构包括虚词 英语中名词动词宾语主语什么词什么意思?我是刚开始自学英语的理解能力很差 网上查了还是不懂 英语词类 词性 有什么区别
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn