VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 如何创建椭圆形的窗体?
发表评论(0)作者:, 平台:, 阅读:10068, 日期: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



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