www.pudn.com > vbgame.rar > frmopin.frm

VERSION 5.00 
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX" 
Begin VB.Form frmopin  
   BorderStyle     =   3  'Fixed Dialog 
   Caption         =   "选项" 
   ClientHeight    =   2925 
   ClientLeft      =   3525 
   ClientTop       =   3210 
   ClientWidth     =   4545 
   LinkTopic       =   "Form6" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   2925 
   ScaleWidth      =   4545 
   ShowInTaskbar   =   0   'False 
   Begin VB.CommandButton Command5  
      Caption         =   "背景图片..." 
      Height          =   375 
      Left            =   3000 
      TabIndex        =   14 
      Top             =   120 
      Width           =   1455 
   End 
   Begin MSComDlg.CommonDialog CommonDialog1  
      Left            =   3720 
      Top             =   1680 
      _ExtentX        =   847 
      _ExtentY        =   847 
      _Version        =   393216 
   End 
   Begin VB.Frame Frame2  
      Caption         =   "预览" 
      Height          =   735 
      Left            =   1800 
      TabIndex        =   6 
      Top             =   2160 
      Width           =   1455 
      Begin VB.Label Label2  
         Height          =   375 
         Left            =   120 
         TabIndex        =   7 
         Top             =   240 
         Width           =   1215 
      End 
   End 
   Begin VB.CommandButton Command4  
      Caption         =   "自定义颜色..." 
      Height          =   375 
      Left            =   240 
      TabIndex        =   5 
      Top             =   2400 
      Width           =   1335 
   End 
   Begin VB.Frame Frame1  
      Caption         =   "选择颜色" 
      Height          =   1575 
      Left            =   240 
      TabIndex        =   4 
      Top             =   480 
      Width           =   3015 
      Begin VB.OptionButton Option6  
         BackColor       =   &H00000000& 
         Caption         =   "黑" 
         ForeColor       =   &H00FFFFFF& 
         Height          =   255 
         Left            =   1920 
         TabIndex        =   13 
         Top             =   1200 
         Width           =   615 
      End 
      Begin VB.OptionButton Option5  
         BackColor       =   &H00FFFFFF& 
         Caption         =   "白" 
         Height          =   255 
         Left            =   1920 
         TabIndex        =   12 
         Top             =   720 
         Width           =   615 
      End 
      Begin VB.OptionButton Option4  
         BackColor       =   &H00FF80FF& 
         Caption         =   "橙" 
         Height          =   255 
         Left            =   1920 
         TabIndex        =   11 
         Top             =   240 
         Width           =   615 
      End 
      Begin VB.OptionButton Option3  
         BackColor       =   &H0000FF00& 
         Caption         =   "绿" 
         Height          =   255 
         Left            =   600 
         TabIndex        =   10 
         Top             =   1200 
         Width           =   615 
      End 
      Begin VB.OptionButton Option2  
         BackColor       =   &H0000FFFF& 
         Caption         =   "黄" 
         Height          =   255 
         Left            =   600 
         TabIndex        =   9 
         Top             =   720 
         Width           =   615 
      End 
      Begin VB.OptionButton Option1  
         BackColor       =   &H000000FF& 
         Caption         =   "红" 
         Height          =   255 
         Left            =   600 
         TabIndex        =   8 
         Top             =   240 
         Width           =   615 
      End 
   End 
   Begin VB.CommandButton Command3  
      Caption         =   "帮助" 
      Height          =   375 
      Left            =   3360 
      TabIndex        =   3 
      Top             =   2400 
      Width           =   975 
   End 
   Begin VB.CommandButton Command2  
      Caption         =   "取消" 
      Height          =   375 
      Left            =   3480 
      TabIndex        =   2 
      Top             =   1440 
      Width           =   975 
   End 
   Begin VB.CommandButton Command1  
      Caption         =   "确定" 
      Height          =   375 
      Left            =   3480 
      TabIndex        =   1 
      Top             =   720 
      Width           =   975 
   End 
   Begin VB.Label Label1  
      AutoSize        =   -1  'True 
      Caption         =   "定义背景颜色" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   12 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   240 
      Left            =   360 
      TabIndex        =   0 
      Top             =   120 
      Width           =   1440 
   End 
End 
Attribute VB_Name = "frmopin" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub Command1_Click() 
Form1.Label1.BackColor = Label2.BackColor 
Form1.Label3.BackColor = Label2.BackColor 
Form1.Label4.BackColor = Label2.BackColor 
Form1.Label2.BackColor = Label2.BackColor 
Form1.Frame1.BackColor = Label2.BackColor 
Form1.Option2.BackColor = Label2.BackColor 
Form1.Option1.BackColor = Label2.BackColor 
Form1.Command1.BackColor = Label2.BackColor 
Form1.Command2.BackColor = Label2.BackColor 
Form1.BackColor = Label2.BackColor 
Unload Me 
End Sub 
 
Private Sub Command2_Click() 
Unload Me 
End Sub 
 
Private Sub Command3_Click() 
frmhelp.Show 
End Sub 
 
Private Sub Command4_Click() 
CommonDialog1.Flags = &H1 
CommonDialog1.Color = BackColor 
CommonDialog1.Action = 3 
frmopin.Label2.BackColor = CommonDialog1.Color 
End Sub 
 
Private Sub Option1_Click() 
Label2.BackColor = Option1.BackColor 
End Sub 
 
Private Sub Option2_Click() 
Label2.BackColor = Option2.BackColor 
End Sub 
 
 
Private Sub Option3_Click() 
Label2.BackColor = Option3.BackColor 
End Sub 
 
Private Sub Option4_Click() 
Label2.BackColor = Option4.BackColor 
End Sub 
 
Private Sub Option5_Click() 
Label2.BackColor = Option5.BackColor 
End Sub 
 
Private Sub Option6_Click() 
Label2.BackColor = Option6.BackColor 
End Sub