摘要载入中…　　　　请稍等…















内容载入中…　　　　请稍等…

如何创建椭圆形的窗体

 2009-1-5 21:14:36　　　来源：互联网　　
   

　·如何创建无Icon的窗体？　·实现窗体内部的左右移动 
如何创建椭圆形的窗体? 

当然是用Win32 API函数了，用VB50中文版的API文本查看器将下列API函数加入
窗体的通用代码中，就可以做一个椭圆窗口。


Private Declare Function CreateEllipticRgn Lib ″gdi32″(ByVal X1 As 
Long,ByVal Y1 As Long,ByVal X2 As Long,ByVal Y2 As Long)As Long


Private Declare Function SetWindowRgn Lib ″user32″(ByVal hWnd As Long,
ByVal hRgn As Long,ByVal bRedraw As Boolean)As Long


在Form_Load()窗体中加入如下代码：


Private Sub Form_Load()
Show
SetWindowRgn hWnd,CreateEllipticRgn(0,0,300,200),True
End Sub


上述代码可以创建一个椭圆形状的窗口。
　[1]