窗口界面编程之一:VB实现简单异形窗口
一、运行效果图(在Win8里的运行效果,在XP里运行就不能体现出来,因为我使用的XP的界面效果)
二、编译环境:Visual Basic 6.0 (SP6)
三、实现原理:通过区域合并
四、使用API函数:CreateRectRgn、CreateRoundRectRgn、CombineRgn、SetWindowRgn,其声明及说明如下:
函数:CreateRectRgn
声明:Declare Function CreateRectRgn Lib "gdi32" Alias "CreateRectRgn" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
说明:创建一个由点X1,Y1和X2,Y2描述的矩形区域
函数:CreateRoundRectRgn
声明:Declare Function CreateRoundRectRgn Lib "gdi32" Alias "CreateRoundRectRgn" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
说明:创建一个圆角矩形,该矩形由X1,Y1-X2,Y2确定,并由X3,Y3确定的椭圆描述圆角弧度
函数:CombineRgn
声明:Declare Function CombineRgn Lib "gdi32" Alias "CombineRgn" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
说明:将两个区域组合为一个新区域
函数:SetWindowRgn
声明:Declare Function SetWindowRgn Lib "user32" Alias "SetWindowRgn" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
说明:这是那些很难有人注意到的对编程者来说是个巨大的宝藏的隐含的API函数中的一个。本函数允许您改变窗口的区域。通常所有窗口都是矩形的——窗口一旦存在就含有一个矩形区域。本函数允许您放弃该区域。这意味着您可以创建圆的、星形的窗口,也可以将它分为两个或许多部分——实际上可以是任何形状。
五、开始动手:创建一个无标题栏无边框的窗口,载入一张图片作为窗口背景,使用Image控件作为按钮,在窗口加截函数中处理窗口区域,在窗口鼠标按下函数中加入移动消息,使用API函数CloseWindow实现最小化。
程序源码:
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Dim rect, rgn, winxpstyle, minwindow, message As Long '声明变量
Private Const RGN_AND = 1
Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1 Private Sub Form_Load()
ImageMin2.Visible = False
ImageMin3.Visible = False
ImageClose2.Visible = False
ImageClose3.Visible = False
winxpstyle = CreateRectRgn(0, 0, 0, 0) '创建一个空的区域
rect = CreateRectRgn(0, 0, 642, 480) '以左上角(0,0)为坐标,创建一个矩形区域
rgn = CreateRoundRectRgn(0, 0, 640, 491, 10, 10) '以左上角(0,0)为坐标,创建一个弧度为10的圆角矩形区域
CombineRgn winxpstyle, rect, rgn, RGN_AND '将rect、rgn以相交的方式(RGN_AND)进行合并到winxpstyle区域
DeleteObject rect '删除区域对像
DeleteObject rgn '删除区域对像
SetWindowRgn Me.hwnd, winxpstyle, True '将winxpstyle区域设置为窗口
DeleteObject winxpstyle '删除区域对像
Form1.AutoRedraw = True '设置自动重绘窗口
End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0& '支持无标题栏窗口的移动
End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ImageMin1.Visible = True
ImageClose1.Visible = True
ImageMin2.Visible = False
ImageMin3.Visible = False
ImageClose2.Visible = False
ImageClose3.Visible = False
End Sub Private Sub ImageClose2_Click()
Unload Me '释放窗口,关闭程序
End Sub Private Sub ImageClose1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ImageClose3.Visible = True
ImageClose2.Visible = False
End Sub Private Sub ImageClose1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ImageClose2.Visible = True
ImageClose1.Visible = False
End Sub Private Sub ImageMin2_Click()
miniwindow = CloseWindow(Form1.hwnd) '最小化窗口
End Sub Private Sub ImageMin1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ImageMin3.Visible = True
ImageMin2.Visible = False
End Sub Private Sub ImageMin1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ImageMin2.Visible = True
ImageMin1.Visible = False
End Sub
工程下载地址: http://download.csdn.net/detail/snowren3074/6469381
水梦雪
SnowEmail3074@163.com
窗口界面编程之一:VB实现简单异形窗口的更多相关文章
- Android开发自学笔记(Android Studio)—4.界面编程与View组件简单介绍
一.引言 Android应用开发最重要的一份内容就是界面的开发,无论你程序包含的内容多么优秀,如若没有一个良好的用户交互界面,最终也只是会被用户所遗弃.Android SDK提供了大量功能丰富的UI组 ...
- 分享在winform下实现左右布局多窗口界面
在web页面上我们可以通过frameset,iframe嵌套框架很容易实现各种导航+内容的布局界面,而在winform.WPF中实现其实也很容易,我这里就分享一个:在winform下实现左右布局多窗口 ...
- 在winform下实现左右布局多窗口界面的方法(一)
在web页面上我们可以通过frameset,iframe嵌套框架很容易实现各种导航+内容的布局界面,而在winform.WPF中实现其实也很容易,通过本文给大家介绍在winform下实现左右布局多窗口 ...
- [置顶] VC++界面编程之--使用分层窗口实现界面皮肤
使用分层界面来实现界面皮肤的好处是:可以保证图片边缘处理不失真,且能用于异形窗口上,如一些不规则的窗口,你很难用SetWindowRgn来达到理想效果. 在很多情况下,界面的漂亮与否,取决于PS的制作 ...
- VC++界面编程之--使用分层窗口实现界面皮肤
使用分层界面来实现界面皮肤的好处是:可以保证图片边缘处理不失真,且能用于异形窗口上,如一些不规则的窗口,你很难用SetWindowRgn来达到理想效果. 在很多情况下,界面的漂亮与否,取决于PS的制作 ...
- Java界面编程-建立一个可以画出图形的简单框架
引子:总共使用3个.java文件,建立一个简单界面编程的框架. 第1个文件:NotHelloWorldComponent.java //NotHelloWorldComponent.java 1 im ...
- 一个最简单的Delphi2010的PNG异形窗口方法
同事演示了一个.NET的的PNG异形窗口.挺漂亮.于是也想用Delphi显摆一个. 关于Delphi用PNG做异形窗口的资料有不少.都是用GDIPlus或者TPNGImage组件加载PNG图像做的.但 ...
- Win32编程API 基础篇 -- 2.一个简单的窗口 根据英文教程翻译
一个简单的窗口 例子:简单的窗口 有时人们在IRC提问,”我应该怎样制作一个窗口”...嗯,这恐怕不是完全这么简单好回答!其实这并不难一旦你明白你在做什么,但在你得到一个可展示的窗口之前还有一些事情需 ...
- 图形界面编程成就了C++
听有人说C#.VB比C++好是因为做界面方便还算傻得可爱,听有人说用C++做数值计算而不屑于做界面可就对不起咱C++的恩人了.这我可要说道说道. 想当年C++刚出江湖,名门出身,自立门派,想抢Obje ...
随机推荐
- leetcode:ZigZag Conversion 曲线转换
Question: The string "PAYPALISHIRING" is written in a zigzag pattern on a given number of ...
- bzoj 2038 [2009国家集训队]小Z的袜子(hose)(莫队算法)
[题目链接] http://www.lydsy.com/JudgeOnline/problem.php?id=2038 [题意] 给定一个有颜色的序列,回答若干个询问:区间内任选两个颜色相同的概率. ...
- vs2013下自动注释的运用
1.首先是VAssistX,可以在VS的工具下,拓展和更新里面找到,然后下载安装即可: 以下为大家介绍一下怎么添加函数头注释:随便打开一个C++的工程,找到一个方法,右击函数名,然后依次点击“Refa ...
- Flex通信-Java服务端通信实例
转自:http://blessht.iteye.com/blog/1132934Flex与Java通信的方式有很多种,比较常用的有以下方式: WebService:一种跨语言的在线服务,只要用特定语言 ...
- 演义江湖PC端意见汇总
写在前面: 1.自己的游戏自己玩玩爽不爽,自己爽了才能说玩家可能会接受,自己都玩不下去玩家凭什么玩你的游戏 2.如果你负责美术,那么你到游戏中看看,你如果不能接受,玩家也会觉得游戏很丑 3.如果你负责 ...
- Time vs Story Points Estimation [转]
One of the most common questions we get is whether to estimate in time or points. It seems like poin ...
- 【多线程】Java并发编程:Lock(转载)
原文链接:http://www.cnblogs.com/dolphin0520/p/3923167.html Java并发编程:Lock 在上一篇文章中我们讲到了如何使用关键字synchronized ...
- <转>Linux环境进程间通信(二): 信号(下)
原文地址为:http://www.ibm.com/developerworks/cn/linux/l-ipc/part2/index2.html 原文为: 一.信号生命周期 从信号发送到信号处理函数的 ...
- apache配置虚拟主机后,启动速度慢
apache配置虚拟主机后,启动速度慢且提示“the requested operation has failed” 可以通过在cmd下启动,来查找问题(命令中的“apache2.2”,是服务名,根据 ...
- POJ 3298 Antimonotonicity (思维)
题目链接:http://poj.org/problem?id=3298 找一个最长不要求连续的子序列,如a1 > a3 < a6 > a7 ... 举个例子模拟一下差不多明白了,a[ ...