home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / XP_Style_B1762706272004.psc / Form1.frm < prev    next >
Text File  |  2004-06-27  |  5KB  |  171 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   7080
  6.    ClientLeft      =   60
  7.    ClientTop       =   450
  8.    ClientWidth     =   4410
  9.    ForeColor       =   &H00000000&
  10.    LinkTopic       =   "Form1"
  11.    Picture         =   "Form1.frx":0000
  12.    ScaleHeight     =   7080
  13.    ScaleWidth      =   4410
  14.    StartUpPosition =   1  'Fenstermitte
  15.    Begin MSComDlg.CommonDialog CommonDialogButtonCol 
  16.       Left            =   345
  17.       Top             =   255
  18.       _ExtentX        =   847
  19.       _ExtentY        =   847
  20.       _Version        =   393216
  21.    End
  22.    Begin Projekt1.Button ButtonExit 
  23.       Height          =   765
  24.       Left            =   1530
  25.       TabIndex        =   0
  26.       ToolTipText     =   "Exit"
  27.       Top             =   4785
  28.       Width           =   1230
  29.       _ExtentX        =   2170
  30.       _ExtentY        =   1349
  31.       ForeColor       =   255
  32.       TX              =   "Exit"
  33.       ENAB            =   -1  'True
  34.       BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  35.          Name            =   "MS Sans Serif"
  36.          Size            =   13.5
  37.          Charset         =   0
  38.          Weight          =   700
  39.          Underline       =   0   'False
  40.          Italic          =   0   'False
  41.          Strikethrough   =   0   'False
  42.       EndProperty
  43.    End
  44.    Begin Projekt1.Button ButtonChangeCol 
  45.       Height          =   510
  46.       Left            =   1170
  47.       TabIndex        =   1
  48.       ToolTipText     =   "Change Button Color"
  49.       Top             =   3735
  50.       Width           =   1995
  51.       _ExtentX        =   3519
  52.       _ExtentY        =   1349
  53.       ForeColor       =   0
  54.       TX              =   "Change Button Color"
  55.       ENAB            =   -1  'True
  56.       BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  57.          Name            =   "MS Sans Serif"
  58.          Size            =   8.25
  59.          Charset         =   0
  60.          Weight          =   400
  61.          Underline       =   0   'False
  62.          Italic          =   0   'False
  63.          Strikethrough   =   0   'False
  64.       EndProperty
  65.    End
  66.    Begin Projekt1.Button Button1 
  67.       Height          =   510
  68.       Left            =   1170
  69.       TabIndex        =   2
  70.       Top             =   2715
  71.       Width           =   1995
  72.       _ExtentX        =   3519
  73.       _ExtentY        =   1349
  74.       ForeColor       =   0
  75.       TX              =   "Dummy"
  76.       ENAB            =   -1  'True
  77.       BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  78.          Name            =   "MS Sans Serif"
  79.          Size            =   8.25
  80.          Charset         =   0
  81.          Weight          =   400
  82.          Underline       =   0   'False
  83.          Italic          =   0   'False
  84.          Strikethrough   =   0   'False
  85.       EndProperty
  86.    End
  87.    Begin Projekt1.Button Button2 
  88.       Height          =   510
  89.       Left            =   1185
  90.       TabIndex        =   3
  91.       Top             =   1755
  92.       Width           =   1995
  93.       _ExtentX        =   3519
  94.       _ExtentY        =   1349
  95.       ForeColor       =   0
  96.       TX              =   "Dummy"
  97.       ENAB            =   -1  'True
  98.       BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  99.          Name            =   "MS Sans Serif"
  100.          Size            =   8.25
  101.          Charset         =   0
  102.          Weight          =   400
  103.          Underline       =   0   'False
  104.          Italic          =   0   'False
  105.          Strikethrough   =   0   'False
  106.       EndProperty
  107.    End
  108. End
  109. Attribute VB_Name = "Form1"
  110. Attribute VB_GlobalNameSpace = False
  111. Attribute VB_Creatable = False
  112. Attribute VB_PredeclaredId = True
  113. Attribute VB_Exposed = False
  114. 'This XP-Style Button can be placed on any background
  115. 'MouseOver and TabStop will be highlighted
  116. 'The color of the button can be adapted to any color during runtime
  117.  
  118. 'Please feel invited to visit my homepage
  119. 'http://home.t-online.de/home/l.kobarg/clk/
  120. 'There you can find a calculator using the XP-Style Button
  121.  
  122. 'if you got any improvements, maybe round, or oval shapes please let me know
  123. 'l.kobarg@t-onlien.de
  124.  
  125. 'Based on Leo Barsukov's cool Totally skinned Calculator********
  126. 'http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=38467&lngWId=1
  127.  
  128. 'and Gez Lemon's transparent tutorials
  129. 'http://www.juicystudio.com/tutorial/vb/winapi.asp
  130.  
  131. 'known issues:
  132. 'during programming the auto-type (auto completion) will not work properly
  133. 'if a form using the XP-Style button is open
  134.  
  135.  
  136. Dim AktButtonColor As Long
  137.  
  138.  
  139. Private Sub ButtonChangeCol_Click()
  140.     On Error Resume Next
  141.     
  142.     Err.Clear
  143.     CommonDialogButtonCol.CancelError = True
  144.     CommonDialogButtonCol.ShowColor
  145.     If Not (Err.Number > 0) Then
  146.         AktButtonColor = CommonDialogButtonCol.Color
  147.         SetButtonColor
  148.     End If
  149.     
  150. End Sub
  151.  
  152. Private Sub ButtonExit_Click()
  153.     End
  154. End Sub
  155.  
  156. Private Sub SetButtonColor()
  157.     ButtonChangeCol.cFace = AktButtonColor
  158.     ButtonExit.cFace = AktButtonColor
  159.     
  160.     ButtonChangeCol.Refesh
  161.     ButtonExit.Refesh
  162.  
  163. End Sub
  164.  
  165. Private Sub Form_Initialize()
  166.     AktButtonColor = 8454016
  167.     SetButtonColor
  168. End Sub
  169.  
  170.  
  171.