创建不规则窗口
敬业的IT人
互联网
佚名
2008-1-3 17:57:14
Win32API有很多让你意想不到的功能。要创建特殊的不规则窗口看上去似乎很难。但我们如果我们说我们用几行代码就可以实现，这似乎不可思议。但事实就是如此！请试试：
PrivateDeclareFunctionCreateEllipticRgnLib"gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong)AsLong
PrivateDeclareFunctionSetWindowRgnLib"user32"(ByValhWndAsLong,ByValhRgnAsLong,ByValbRedrawAsBoolean)AsLong
PrivateSubForm_Load()
Show'Theform!
SetWindowRgnhWnd,CreateEllipticRgn(0,0,300,200),True
EndSub
上述代码可以创建一个椭圆形状的窗口。怎么样？->
PrivateDeclareFunctionCreateEllipticRgnLib"gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong)AsLong
PrivateDeclareFunctionSetWindowRgnLib"user32"(ByValhWndAsLong,ByValhRgnAsLong,ByValbRedrawAsBoolean)AsLong
PrivateSubForm_Load()
Show'Theform!
SetWindowRgnhWnd,CreateEllipticRgn(0,0,300,200),True
EndSub
上述代码可以创建一个椭圆形状的窗口。怎么样？->
- 最新文章
- 利用VBScript实现倒计时[01-03]
- 用类来编写数据库程序[01-03]
- 创建ActiveX接口以移植Excel工作表[01-03]
- VB中调用WindowsAPI的注意事项[01-03]
- VisualBasic设计图形浏览器示例[01-03]
- VBCOM基础讲座之创建测试程序[01-03]
- 相关文章
