自定义形状窗体
2012-03-27 12:12
344 查看
在用vb编程中,有时,我们需要使用一个跟不规则背景有相同形状的不规则窗体,怎么办呢?
首先,我们需要设置无边框窗体,
即:borderstyle=0
其次,把背景图片覆盖不住的窗体背景设置成透明。
这需要用到API函数,
Private DeclareFunction GetWindowLong Lib "user32" Alias "GetWindowLongA"(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private DeclareFunction SetWindowLong Lib "user32" Alias "SetWindowLongA"(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private DeclareFunction SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long,ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private ConstWS_EX_LAYERED = &H80000
Private ConstGWL_EXSTYLE = (-20)
Private ConstLWA_ALPHA = &H2
Private ConstLWA_COLORKEY = &H1
'屏蔽窗体指定颜色,这里是屏蔽的蓝色,前提要把窗体背景颜色设置成蓝色
Private SubForm_Load()
Dim rtn As Long
rtn =GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn OrWS_EX_LAYERED
SetWindowLong hwnd,GWL_EXSTYLE, rtn
SetLayeredWindowAttributeshwnd, vbBlue, 0, LWA_COLORKEY
end sub
这样就得到了你想要的自定义窗体了。
首先,我们需要设置无边框窗体,
即:borderstyle=0
其次,把背景图片覆盖不住的窗体背景设置成透明。
这需要用到API函数,
Private DeclareFunction GetWindowLong Lib "user32" Alias "GetWindowLongA"(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private DeclareFunction SetWindowLong Lib "user32" Alias "SetWindowLongA"(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private DeclareFunction SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long,ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private ConstWS_EX_LAYERED = &H80000
Private ConstGWL_EXSTYLE = (-20)
Private ConstLWA_ALPHA = &H2
Private ConstLWA_COLORKEY = &H1
'屏蔽窗体指定颜色,这里是屏蔽的蓝色,前提要把窗体背景颜色设置成蓝色
Private SubForm_Load()
Dim rtn As Long
rtn =GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn OrWS_EX_LAYERED
SetWindowLong hwnd,GWL_EXSTYLE, rtn
SetLayeredWindowAttributeshwnd, vbBlue, 0, LWA_COLORKEY
end sub
这样就得到了你想要的自定义窗体了。
相关文章推荐
- 画出各种自定义的窗体形状
- D23_04_具有形状内容的透明窗口(自定义窗体)
- Qt---自定义对话框形状、移动窗体
- D23_05_改变形状窗口的尺寸(自定义窗体大小改变)
- 创建自定义形状的窗体和控件
- Winform自定义窗体与控件的外观形状
- 自定义WPF窗体形状
- 自定义WPF窗体形状的实战记录
- c# 窗体重画,形状自定义
- 教你创建自定义形状的窗体
- 自定义形状窗体
- 自定义形状窗体
- 复制powerpoint2007自定义形状粘贴到word2007里变成图片,怎么解决?
- 实现自定义Windows窗体样式,酷!
- PS教程:自定义形状工具应用实例
- android自定义形状的按键实例代码
- VC 绘图技巧--自定义形状图形
- 自定义形状界面MFC
- 自定义鼠标 形状
- Dynamics 365(online) V9.0 new features(一:表单窗体里的自定义sub-grid表头颜色)