发表评论(0)作者:, 平台:, 阅读:10559, 日期:2000-03-12
如何创建椭圆形的窗体?
当然是用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
上述代码可以创建一个椭圆形状的窗口。
当然是用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
上述代码可以创建一个椭圆形状的窗口。