文件名称:vb圆形窗体
文件大小:84KB
文件格式:RAR
更新时间:2014-10-20 11:01:31
vb圆形窗体
VERSION 5.00 Begin VB.Form Form1 BackColor = &H80000000& Caption = "椭圆窗体" ClientHeight = 3330 ClientLeft = 60 ClientTop = 345 ClientWidth = 4860 FillColor = &H00FF0000& BeginProperty Font Name = "宋体" Size = 12 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Icon = "Form1.frx":0000 LinkTopic = "Form1" Picture = "Form1.frx":000C ScaleHeight = 3330 ScaleWidth = 4860 StartUpPosition = 2 '屏幕中心 End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True 'Download by http://www.codefans.net Attribute VB_Exposed = False 'CODE Manger By BcodeXRose 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() Dim rwnd, x2, y2 x2 = ScaleX(Me.Width, vbTwips, vbPixels) y2 = ScaleY(Me.Height, vbTwips, vbPixels) SetWindowRgn Me.hWnd, CreateEllipticRgn(0, 20, x2, y2), True End Sub
【文件预览】:
codefans.net
----圆形框()
--------例10.19.vbw(50B)
--------例10.11.vbw(38B)
--------MSSCCPRJ.SCC(2KB)
--------Form1.frx(82KB)
--------Class1.cls(676B)
--------Form1.frm(2KB)
--------例10.19.vbp(737B)