vb圆形窗体

时间:2014-10-20 11:01:31
【文件属性】:

文件名称: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)

网友评论

  • 不错。学习下
  • 比较实用,谢谢