frmshadow.frm

非常漂亮的VB控件

VERSION 5.00
Begin VB.Form frmShadow 
   BackColor       =   &H00404040&
   BorderStyle     =   0  'None
   Caption         =   "Form9"
   ClientHeight    =   645
   ClientLeft      =   -4995
   ClientTop       =   -4995
   ClientWidth     =   855
   Enabled         =   0   'False
   ForeColor       =   &H00808000&
   Icon            =   "frmShadow.frx":0000
   LinkTopic       =   "Form9"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   645
   ScaleWidth      =   855
   ShowInTaskbar   =   0   'False
End
Attribute VB_Name = "frmShadow"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "RVB_UniqueId" ,"4151A23603B9"
Option Explicit

Private Sub Form_Load()
Dim myRgn As Long, myRgn2 As Long

   Me.Width = frmToolTip.ScaleWidth
   Me.Height = frmToolTip.ScaleHeight
   
   myRgn = CreateRoundRectRgn(0, iFlag, (frmToolTip.Shape1.Width + 15) / 15, (frmToolTip.Shape1.Height + 15) / 15 + iFlag, 13, 13)
   myRgn2 = CreatePolygonRgn(myP(0), 4, 1)
   
   CombineRgn myRgn, myRgn2, myRgn, 2
   SetWindowRgn Me.hWnd, myRgn, True
   
   SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, &H10 Or &H2 Or &H1 Or &H40 Or &H200
   
   If isWinXP Then
      AdjustWindowStyle Me.hWnd
      SetLayeredWindowAttributes Me.hWnd, 0&, 100, LWA_ALPHA
   End If
   
   DeleteObject myRgn
   DeleteObject myRgn2

End Sub