test.frm

两款透明和非透明Vista窗体控件比较,两款透明和非透明Vista窗体控件比较

VERSION 5.00
Object = "{91664DE8-5EEE-405D-8EA0-598A64857C1C}#35.0#0"; "VistaForm.ocx"
Begin VB.Form Form1 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   0  'None
   Caption         =   "Vistaform Control vb6"
   ClientHeight    =   4485
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   6975
   Icon            =   "test.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   299
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   465
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "退出"
      Height          =   555
      Left            =   2700
      TabIndex        =   1
      Top             =   3180
      Width           =   1815
   End
   Begin VistaformControl.vistaform vistaform1 
      Height          =   1980
      Left            =   1320
      TabIndex        =   0
      Top             =   660
      Width           =   4560
      _ExtentX        =   8043
      _ExtentY        =   3493
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/08/22
'描    述：透明Vista窗体控件示例 for VB6
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************

Option Explicit
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long

Public Function GetIDEmode() As Boolean '是否运行在VB IDE编辑模式1
Dim strFileName As String
Dim lngCount As Long
strFileName = String(255, 0)
lngCount = GetModuleFileName(App.hInstance, strFileName, 255)
strFileName = Left(strFileName, lngCount)


If UCase(Right(strFileName, 7)) <> "VB6.EXE" Then

GetIDEmode = True '不是运行在IDE
Else

GetIDEmode = False '是运行在IDE
End If

'//也可以获取VB的版本等信息
End Function

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()

    If GetIDEmode = False Then Unload Me: End

    '窗体图标设定:文件可以是:PNG/ICO/JPG/BMP等,大小为24*24
    '建议使用有透明通道的PNG文件或者ICO文件
    vistaform1.pngPath = App.Path & "\form.png"
    
    '窗体标题文字
    vistaform1.frmCaption = Me.Caption
    
    '窗体标题文字的位置:数值随窗体标题字体多少而定:80是1个字,200是10个字
    vistaform1.Captionlen = 120    '80-200
    
    vistaform1.Move -1000 '移动vista控件到左边
    
        
    '请参考下面的颜色代码
    vistaform1.Captioncolor = &HFF9ACD32   'YellowGreen'字体颜色

End Sub

'颜色代码(把=后面的值复制到上面即可)
'   AliceBlue = &HFFF0F8FF
'   AntiqueWhite = &HFFFAEBD7
'   Aqua = &HFF00FFFF
'   Aquamarine = &HFF7FFFD4
'   Azure = &HFFF0FFFF
'   Beige = &HFFF5F5DC
'   Bisque = &HFFFFE4C4
'   Black = &HFF000000
'   BlanchedAlmond = &HFFFFEBCD
'   Blue = &HFF0000FF
'   BlueViolet = &HFF8A2BE2
'   Brown = &HFFA52A2A
'   BurlyWood = &HFFDEB887
'   CadetBlue = &HFF5F9EA0
'   Chartreuse = &HFF7FFF00
'   Chocolate = &HFFD2691E
'   Coral = &HFFFF7F50
'   CornflowerBlue = &HFF6495ED
'   Cornsilk = &HFFFFF8DC
'   Crimson = &HFFDC143C
'   Cyan = &HFF00FFFF
'   DarkBlue = &HFF00008B
'   DarkCyan = &HFF008B8B
'   DarkGoldenrod = &HFFB8860B
'   DarkGray = &HFFA9A9A9
'   DarkGreen = &HFF006400
'   DarkKhaki = &HFFBDB76B
'   DarkMagenta = &HFF8B008B
'   DarkOliveGreen = &HFF556B2F
'   DarkOrange = &HFFFF8C00
'   DarkOrchid = &HFF9932CC
'   DarkRed = &HFF8B0000
'   DarkSalmon = &HFFE9967A
'   DarkSeaGreen = &HFF8FBC8B
'   DarkSlateBlue = &HFF483D8B
'   DarkSlateGray = &HFF2F4F4F
'   DarkTurquoise = &HFF00CED1
'   DarkViolet = &HFF9400D3
'   DeepPink = &HFFFF1493
'   DeepSkyBlue = &HFF00BFFF
'   DimGray = &HFF696969
'   DodgerBlue = &HFF1E90FF
'   Firebrick = &HFFB22222
'   FloralWhite = &HFFFFFAF0
'   ForestGreen = &HFF228B22
'   Fuchsia = &HFFFF00FF
'   Gainsboro = &HFFDCDCDC
'   GhostWhite = &HFFF8F8FF
'   Gold = &HFFFFD700
'   Goldenrod = &HFFDAA520
'   Gray = &HFF808080
'   Green = &HFF008000
'   GreenYellow = &HFFADFF2F
'   Honeydew = &HFFF0FFF0
'   HotPink = &HFFFF69B4
'   IndianRed = &HFFCD5C5C
'   Indigo = &HFF4B0082
'   Ivory = &HFFFFFFF0
'   Khaki = &HFFF0E68C
'   Lavender = &HFFE6E6FA
'   LavenderBlush = &HFFFFF0F5
'
'   LawnGreen = &HFF7CFC00
'   LemonChiffon = &HFFFFFACD
'   LightBlue = &HFFADD8E6
'   LightCoral = &HFFF08080
'   LightCyan = &HFFE0FFFF
'   LightGoldenrodYellow = &HFFFAFAD2
'   LightGray = &HFFD3D3D3
'   LightGreen = &HFF90EE90
'   LightPink = &HFFFFB6C1
'   LightSalmon = &HFFFFA07A
'   LightSeaGreen = &HFF20B2AA
'   LightSkyBlue = &HFF87CEFA
'   LightSlateGray = &HFF778899
'   LightSteelBlue = &HFFB0C4DE
'   LightYellow = &HFFFFFFE0
'   Lime = &HFF00FF00
'   LimeGreen = &HFF32CD32
'   Linen = &HFFFAF0E6
'   Magenta = &HFFFF00FF
'   Maroon = &HFF800000
'   MediumAquamarine = &HFF66CDAA
'   MediumBlue = &HFF0000CD
'   MediumOrchid = &HFFBA55D3
'   MediumPurple = &HFF9370DB
'   MediumSeaGreen = &HFF3CB371
'   MediumSlateBlue = &HFF7B68EE
'   MediumSpringGreen = &HFF00FA9A
'   MediumTurquoise = &HFF48D1CC
'   MediumVioletRed = &HFFC71585
'   MidnightBlue = &HFF191970
'   MintCream = &HFFF5FFFA
'   MistyRose = &HFFFFE4E1
'   Moccasin = &HFFFFE4B5
'   NavajoWhite = &HFFFFDEAD
'   Navy = &HFF000080
'   OldLace = &HFFFDF5E6
'   Olive = &HFF808000
'   OliveDrab = &HFF6B8E23
'   Orange = &HFFFFA500
'   OrangeRed = &HFFFF4500
'   Orchid = &HFFDA70D6
'   PaleGoldenrod = &HFFEEE8AA
'   PaleGreen = &HFF98FB98
'   PaleTurquoise = &HFFAFEEEE
'   PaleVioletRed = &HFFDB7093
'   PapayaWhip = &HFFFFEFD5
'   PeachPuff = &HFFFFDAB9
'   Peru = &HFFCD853F
'   Pink = &HFFFFC0CB
'   Plum = &HFFDDA0DD
'   PowderBlue = &HFFB0E0E6
'   Purple = &HFF800080
'   Red = &HFFFF0000
'   RosyBrown = &HFFBC8F8F
'   RoyalBlue = &HFF4169E1
'   SaddleBrown = &HFF8B4513
'   Salmon = &HFFFA8072
'   SandyBrown = &HFFF4A460
'   SeaGreen = &HFF2E8B57
'   SeaShell = &HFFFFF5EE
'   Sienna = &HFFA0522D
'   Silver = &HFFC0C0C0
'   SkyBlue = &HFF87CEEB
'   SlateBlue = &HFF6A5ACD
'   SlateGray = &HFF708090
'   Snow = &HFFFFFAFA
'   SpringGreen = &HFF00FF7F
'   SteelBlue = &HFF4682B4
'   Tan = &HFFD2B48C
'   Teal = &HFF008080
'   Thistle = &HFFD8BFD8
'   Tomato = &HFFFF6347
'   Transparent = &HFFFFFF
'   Turquoise = &HFF40E0D0
'   Violet = &HFFEE82EE
'   Wheat = &HFFF5DEB3
'   White = &HFFFFFFFF
'   WhiteSmoke = &HFFF5F5F5
'   Yellow = &HFFFFFF00
'   YellowGreen = &HFF9ACD32