frmcclr.frm

一款漂亮的闹钟制作界面,希望能给你们带来帮助.

VERSION 5.00
Object = "{85FC5ECE-F183-4564-8CE8-E9F6B01B3C03}#1.0#0"; "ClrPckr.ocx"
Begin VB.Form frmCClr 
   BorderStyle     =   0  'None
   Caption         =   "颜色选择"
   ClientHeight    =   2640
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4365
   Icon            =   "frmCClr.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2640
   ScaleWidth      =   4365
   StartUpPosition =   2  '屏幕中心
   Begin Reminder.isButton isButton2 
      Height          =   330
      Left            =   2085
      TabIndex        =   9
      Top             =   2115
      Width           =   1125
      _ExtentX        =   1984
      _ExtentY        =   582
      Icon            =   "frmCClr.frx":038A
      Style           =   8
      Caption         =   "取消"
      IconAlign       =   0
      iNonThemeStyle  =   0
      Tooltiptitle    =   ""
      ToolTipIcon     =   0
      ToolTipType     =   1
      ttForeColor     =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      MaskColor       =   0
   End
   Begin Reminder.isButton isButton1 
      Default         =   -1  'True
      Height          =   330
      Left            =   570
      TabIndex        =   10
      Top             =   2115
      Width           =   1125
      _ExtentX        =   1984
      _ExtentY        =   582
      Icon            =   "frmCClr.frx":03A6
      Style           =   8
      Caption         =   "确定"
      IconAlign       =   0
      iNonThemeStyle  =   0
      Tooltiptitle    =   ""
      ToolTipIcon     =   0
      ToolTipType     =   1
      ttForeColor     =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      MaskColor       =   0
   End
   Begin Reminder.XPContainer XPContainer1 
      Height          =   2550
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   4170
      _ExtentX        =   7355
      _ExtentY        =   4498
      Caption         =   "颜色选择"
      Begin ClrPckr.ColorPicker ColorPicker1 
         Height          =   285
         Left            =   1215
         TabIndex        =   4
         Top             =   510
         Width           =   2175
         _ExtentX        =   3836
         _ExtentY        =   503
         Appearance      =   0
      End
      Begin ClrPckr.ColorPicker ColorPicker2 
         Height          =   285
         Left            =   1215
         TabIndex        =   3
         Top             =   870
         Width           =   2175
         _ExtentX        =   3836
         _ExtentY        =   503
         Appearance      =   0
      End
      Begin ClrPckr.ColorPicker ColorPicker3 
         Height          =   285
         Left            =   1215
         TabIndex        =   2
         Top             =   1245
         Width           =   2175
         _ExtentX        =   3836
         _ExtentY        =   503
         Appearance      =   0
      End
      Begin ClrPckr.ColorPicker ColorPicker4 
         Height          =   285
         Left            =   1215
         TabIndex        =   1
         Top             =   1635
         Width           =   2175
         _ExtentX        =   3836
         _ExtentY        =   503
         Appearance      =   0
      End
      Begin VB.Label Label4 
         BackStyle       =   0  'Transparent
         Caption         =   "刻度:"
         Height          =   375
         Left            =   480
         TabIndex        =   8
         Top             =   1665
         Width           =   495
      End
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         Caption         =   "秒针:"
         Height          =   375
         Left            =   480
         TabIndex        =   7
         Top             =   1290
         Width           =   495
      End
      Begin VB.Label Label2 
         BackStyle       =   0  'Transparent
         Caption         =   "分针:"
         Height          =   375
         Left            =   480
         TabIndex        =   6
         Top             =   915
         Width           =   495
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "时针:"
         Height          =   375
         Left            =   495
         TabIndex        =   5
         Top             =   555
         Width           =   495
      End
   End
End
Attribute VB_Name = "frmCClr"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
XPContainer1.hhhw = Me.hwnd
XPContainer1.Width = Me.Width
XPContainer1.Height = Me.Height
ColorPicker1.Color = Hline
ColorPicker2.Color = Mline
ColorPicker3.Color = Sline
ColorPicker4.Color = Ks
End Sub ' wssccc's qq  151884336

Private Sub isButton1_Click()
Hline = ColorPicker1.Color
Mline = ColorPicker2.Color
Sline = ColorPicker3.Color
Ks = ColorPicker4.Color
SaveSettings
frmMain.RefreshA
Unload Me
End Sub ' wssccc's qq  151884336

Private Sub isButton2_Click()
Unload Me
End Sub ' wssccc's qq  151884336