发信人: flashboy()
整理人: cobe(1999-12-15 16:21:13), 站内信件
|
一、怎样在VB中实现椭圆或圆形窗体？
API:CreateELlipticRgn、SetWindowRgn
代码：
Private Form1_Load()
Dim hRgn As Long
Dim lRes As Long
hRgn=CreateEllipticRgn(0,0,300,200)
lRes=SetWindowRgn(Me.hwnd,hRgn,True)
End Sub
注：hRgn=CreateEllipticRgn(0,0,300,200)中的四个参数分别是椭圆窗体的外切
矩形的左上角（0，0）和右下角（300，200）的坐标，根据这我们只要将它的两
条外切边设为相等则可以绘出圆形的窗体了！
二、怎样在VB中使标题栏闪烁？
API：FlashWindow
代码：
Private Sub Timer1_Timer()
FlashWindow Form1.hwnd,1
End Sub
注：如果想改变闪烁速率，则只要改变Timer1的 Interval属性即可!
TO BE CONTINUE。。。。。
--
真诚加上信赖这是我的网上原则！
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.103.32.131]
|
|