发信人: michaelyuan()
整理人: winsy(2003-03-05 16:05:47), 站内信件
|
【 在 lazylu () 的大作中提到: 】
: 【 在 cobe (<marquee>就爱VB) 的大作中提到: 】
: : 【 在 kyo (司真) 的大作中提到: 】
: : .......
: 有VB的解决方案吗？
: .......
use api
CreateEllipticRgn
SetWindowRgn
Sub Form_Load()
Dim lRgn As Long
Dim bRgn As Long
lRgn=CreateEllipticRgn(0,0,500.500)
bRgn=SetWindowRgn(Command1.hwnd,lRgn,True)
End Sub
Welcome to http://michaelyuan.yeah.net
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.104.36.53]
|
|