win32窗口样式
来源:互联网 发布:地基承载力的简易算法 编辑:程序博客网 时间:2024/06/18 18:29
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 Const WS_CLIPSIBLINGS = &H4000000 '不重绘层叠子窗口
Private Const WS_CLIPCHILDREN = &H2000000 '绘图时排子窗口区域
Private Const WS_OVERLAPPED = &H0& '具有标题栏和边框的层叠窗口
Private Const WS_THICKFRAME = &H40000 '具有可调边框
'WS_OVERLAPPEDWINDOW具有标题栏、窗口菜单、可调边框和最大化、最小化按钮的窗口
Private Const WS_OVERLAPPEDWINDOW = (WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX)
Private Const WS_GROUP = &H20000 '指定一组控制的第一个控制
Private Const WS_POPUP = &H80000000 '弹出式窗口
Private Const WS_BORDER = &H800000 '单边框窗口
Private Const WS_POPUPWINDOW = (WS_POPUP Or WS_BORDER Or WS_SYSMENU) '具有单边框、标题栏菜单的弹出式窗口
Private Const WS_MINIMIZE = &H20000000 '窗口最小化
Private Const WS_VISIBLE = &H10000000 '窗口可见
Private Const WS_DISABLED = &H8000000 '窗口被禁用
Private Const WS_MAXIMIZE = &H1000000 '窗口最大化
Private Const WS_DLGFRAME = &H400000 '对话框边框风格
Private Const WS_VSCROLL = &H200000 '具有垂直滚动条
Private Const WS_HSCROLL = &H100000 '具有水平滚动条
Private Const WS_TABSTOP = &H10000 '具有TAB键控制
Private Const WS_CHILD = &H40000000
Private Const WS_CHILDWINDOW = (WS_CHILD) '具有子窗口
'扩展风格
Private Const WS_EX_WINDOWEDGE = &H100& '窗口具有凸起的3D边框
Private Const WS_EX_CLIENTEDGE = &H200& '窗口具有阴影边界
Private Const WS_EX_TOOLWINDOW = &H80& '小标题工具窗口
Private Const WS_EX_TOPMOST = &H8& '窗口总在顶层
Private Const WS_EX_OVERLAPPEDWINDOW = (WS_EX_WINDOWEDGE Or WS_EX_CLIENTEDGE) 'WS_EX-CLIENTEDGE和WS_EX_WINDOWEDGE的组合
Private Const WS_EX_PALETTEWINDOW = (WS_EX_WINDOWEDGE Or WS_EX_TOOLWINDOW Or WS_EX_TOPMOST) 'WS_EX_WINDOWEDGE和WS_EX_TOOLWINDOW和WS_EX_TOPMOST的组合
Private Const WS_EX_DLGMODALFRAME = &H1& '带双边的窗口
Private Const WS_EX_NOPARENTNOTIFY = &H4& '窗口在创建和销毁时不向父窗口发送WM_PARENTNOTIFY消息
Private Const WS_EX_TRANSPARENT = &H20& '窗口透眀
Private Const WS_EX_MDICHILD = &H40& 'MDI子窗口
Private Const WS_EX_CONTEXTHELP = &H400& '标题栏包含问号联机帮助按钮
Private Const WS_EX_RIGHT = &H1000& '窗口具有右对齐属性
Private Const WS_EX_RTLREADING = &H2000& '窗口文本自右向左显示
Private Const WS_EX_LEFTSCROLLBAR = &H4000& '标题栏在客户区的左边
Private Const WS_EX_CONTROLPARENT = &H10000 '允许用户使用Tab键在窗口的子窗口间搜索
Private Const WS_EX_STATICEDGE = &H20000 '为不接受用户输入的项创建一个三维边界风格
Private Const WS_EX_APPWINDOW = &H40000 '在任务栏上显示顶层窗口的标题按钮
Private Const WS_EX_LAYERED = &H80000 '窗口具有透眀属性(Win2000)以上
Private Const WS_EX_NOINHERITLAYOUT = &H100000 '窗口布局不传递给子窗口(Win2000)以上
Private Const WS_EX_LAYOUTRTL = &H400000 '水平起点在右边的窗口
Private Const WS_EX_NOACTIVATE = &H8000000 '窗口不会变成前台窗口(Win2000)以上
Private Const WS_EX_LEFT = &H0& '窗口具有左对齐属性
Private Const WS_EX_LTRREADING = &H0& '窗口文本自左向右显示
Private Const WS_EX_RIGHTSCROLLBAR = &H0& '垂直滚动条在窗口的右边界
Private Const WS_EX_ACCEPTFILES = &H10& '接受文件拖曳
Private Const WS_EX_COMPOSITED = &H2000000 '窗体所有子窗口使用双缓冲从低到高绘制(XP)
Private Sub Command1_Click()
OrStyle
End Sub
Private Sub OrStyle()
Dim lStyle As Long
lStyle = GetWindowLong(Me.hwnd, GWL_STYLE) '获取原风格
'lStyle = lStyle And Not WS_OVERLAPPEDWINDOW
' lStyle = lStyle And Not WS_OVERLAPPED '去除不用的风格
' lStyle = lStyle And Not WS_THICKFRAME
' lStyle = lStyle And Not WS_MAXIMIZEBOX
lStyle = lStyle Or WS_SYSMENU '加上自定义风格
lStyle = lStyle Or WS_GROUP
lStyle = lStyle Or WS_MINIMIZEBOX
SetWindowLong p.hwnd, GWL_STYLE, lStyle '设置新的风格
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
p.Refresh
End Sub
ModifyStyle,调用这个函数修改窗口的风格,此函数的厉害之处在于可以在窗口创建完成后修改窗口风格,虽然也有一些属性改不了。
函数原型
参数含义
- win32窗口样式
- Win32 窗口的层级和样式
- Win32窗口类样式WNDCLASS.style
- Win32窗口外观样式window style
- Win32 窗口
- 窗口样式
- 窗口样式
- 窗口样式
- 窗口样式
- 窗口样式
- win32控件 显示样式...
- windows窗口三要素---Win32
- WIN32窗口子类化
- win32 修改窗口属性
- Win32窗口鼠标消息
- Win32 Asm 窗口程序
- win32窗口参数
- Win32中创建窗口
- java中简单工厂模式
- Linux、MAC一些命令
- http
- Eclipse配置Git
- C#中List.Find 方法详解
- win32窗口样式
- navicat for mysql出错,cannot connect to server on 127.0.0.1
- android的volley框架
- Opencv的准备阶段小知识
- css 清除元素的浮动方法总结
- ExecutorService-10个要诀和技巧
- 错误 找不到或无法加载主类 Eclipse
- 【MySQL性能优化】Mysql基本性能分析命令详解(3)
- CodeForces 366C Dima and Salad