Windows API函数调用范例源码大全(一) -- 完全自定义窗体和按钮

最新推荐文章于 2021-06-21 21:45:00 发布

原创

最新推荐文章于 2021-06-21 21:45:00 发布 · 2.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#windows #api #integer #function #image #button

这篇博客分享了一个使用VB实现的Windows API函数调用示例，包括创建圆角窗体和实现窗体拖拽功能。通过声明并使用API函数，如CreateRoundRectRgn和SetWindowRgn，创建具有20像素圆角的窗体，并利用ReleaseCapture和SendMessage实现窗体标题栏的拖动功能。此外，还展示了如何响应按钮点击事件，例如更改按钮图片。

以前是一直是用Dephi的,后来因为公司缘故,改用了vb,好久才习惯过来, 使用的时候遇到一个问题,每次要调用不熟悉的API函数时,都要搜索很久用法和格式, 于是有了一个想法,写一个实用的程序,在程序中将所有常用的API函数都囊括进去,分享出来, 让大家也省去很多时间.

不过自己很懒也很忙,写了一半没了兴趣,把其中一些源码实例分享出来,留给后人去做吧,先看一个自定义窗体和按钮的实例, 代码很简单, 我都注释好了,一看就明白,下面是界面,附件里是源代码,直接用就是了.

self-defined windows and buttons

这里是参考,主要看附件里的源码http://download1.youkuaiyun.com/down3/20070604/04153259905.zip

Option Explicit
'-----------------------------------------------------
'For Round Windows

'-----------------------------------------------------
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 SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As