www.pudn.com > sdk3000demo.rar > ColorProperty.frm, change:2009-07-04,size:7215b


VERSION 5.00 
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" 
Begin VB.Form formColorProperty  
   Caption         =   "颜色属性设置" 
   ClientHeight    =   2775 
   ClientLeft      =   60 
   ClientTop       =   345 
   ClientWidth     =   6555 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   2775 
   ScaleWidth      =   6555 
   StartUpPosition =   3  'Windows Default 
   Begin MSComctlLib.Slider sliderBrightness  
      Height          =   360 
      Left            =   1680 
      TabIndex        =   0 
      Top             =   240 
      Width           =   3255 
      _ExtentX        =   5741 
      _ExtentY        =   635 
      _Version        =   393216 
      Max             =   255 
      SelStart        =   128 
      Value           =   128 
   End 
   Begin VB.CommandButton btnClose  
      Caption         =   "关闭" 
      Height          =   375 
      Left            =   5160 
      TabIndex        =   4 
      Top             =   480 
      Width           =   1095 
   End 
   Begin VB.CommandButton btnDefault  
      Caption         =   "默认颜色" 
      Height          =   375 
      Left            =   5160 
      TabIndex        =   5 
      Top             =   1080 
      Width           =   1095 
   End 
   Begin MSComctlLib.Slider sliderContrast  
      Height          =   360 
      Left            =   1680 
      TabIndex        =   1 
      Top             =   720 
      Width           =   3255 
      _ExtentX        =   5741 
      _ExtentY        =   635 
      _Version        =   393216 
      Max             =   127 
      SelStart        =   68 
      Value           =   68 
   End 
   Begin MSComctlLib.Slider sliderSaturation  
      Height          =   360 
      Left            =   1680 
      TabIndex        =   2 
      Top             =   1200 
      Width           =   3255 
      _ExtentX        =   5741 
      _ExtentY        =   635 
      _Version        =   393216 
      Max             =   127 
      SelStart        =   64 
      Value           =   64 
   End 
   Begin MSComctlLib.Slider sliderHue  
      Height          =   360 
      Left            =   1680 
      TabIndex        =   16 
      Top             =   1680 
      Width           =   3255 
      _ExtentX        =   5741 
      _ExtentY        =   635 
      _Version        =   393216 
      Min             =   -128 
      Max             =   127 
   End 
   Begin MSComctlLib.Slider sliderSharpness  
      Height          =   360 
      Left            =   1680 
      TabIndex        =   3 
      Top             =   2160 
      Width           =   3255 
      _ExtentX        =   5741 
      _ExtentY        =   635 
      _Version        =   393216 
      Min             =   -8 
      Max             =   7 
      SelStart        =   -5 
      Value           =   -5 
   End 
   Begin VB.Label Label10  
      Caption         =   "对比度:" 
      Height          =   255 
      Left            =   360 
      TabIndex        =   15 
      Top             =   720 
      Width           =   735 
   End 
   Begin VB.Label Label9  
      Caption         =   "饱和度:" 
      Height          =   255 
      Left            =   360 
      TabIndex        =   14 
      Top             =   1200 
      Width           =   735 
   End 
   Begin VB.Label Label8  
      Caption         =   "色度:" 
      Height          =   255 
      Left            =   360 
      TabIndex        =   13 
      Top             =   1680 
      Width           =   735 
   End 
   Begin VB.Label Label7  
      Caption         =   "锐度:" 
      Height          =   255 
      Left            =   360 
      TabIndex        =   12 
      Top             =   2160 
      Width           =   735 
   End 
   Begin VB.Label labelBrightness  
      Caption         =   "128" 
      Height          =   255 
      Left            =   1200 
      TabIndex        =   11 
      Top             =   240 
      Width           =   375 
   End 
   Begin VB.Label labelContrast  
      Caption         =   "68" 
      Height          =   255 
      Left            =   1200 
      TabIndex        =   10 
      Top             =   720 
      Width           =   375 
   End 
   Begin VB.Label labelSaturation  
      Caption         =   "64" 
      Height          =   255 
      Left            =   1200 
      TabIndex        =   9 
      Top             =   1200 
      Width           =   375 
   End 
   Begin VB.Label labelHue  
      Caption         =   "0" 
      Height          =   255 
      Left            =   1200 
      TabIndex        =   8 
      Top             =   1680 
      Width           =   375 
   End 
   Begin VB.Label labelSharpness  
      Caption         =   "-5" 
      Height          =   255 
      Left            =   1200 
      TabIndex        =   7 
      Top             =   2160 
      Width           =   375 
   End 
   Begin VB.Label Label1  
      Caption         =   "亮度:" 
      Height          =   255 
      Left            =   360 
      TabIndex        =   6 
      Top             =   240 
      Width           =   735 
   End 
End 
Attribute VB_Name = "formColorProperty" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 
'Download by http://www.codefans.net 
Private Sub btnClose_Click() 
 
    Call Unload(Me) 
     
End Sub 
 
Private Sub btnDefault_Click() 
 
    sliderBrightness.SelStart = 128 
    sliderContrast.SelStart = 68 
    sliderSaturation.SelStart = 64 
    sliderHue.SelStart = 0 
    sliderSharpness.SelStart = -5 
     
    Call sliderBrightness_Change 
    Call sliderContrast_Change 
    Call sliderSaturation_Change 
    Call sliderHue_Change 
    Call sliderSharpness_Change 
     
End Sub 
 
Private Sub Form_Load() 
 
    sliderBrightness.SelStart = formMain.SDK30001.Brightness 
    sliderContrast.SelStart = formMain.SDK30001.Contrast 
    sliderSaturation.SelStart = formMain.SDK30001.Saturation 
    sliderHue.SelStart = formMain.SDK30001.Hue 
    sliderSharpness.SelStart = formMain.SDK30001.Sharpness 
     
    Call sliderBrightness_Change 
    Call sliderContrast_Change 
    Call sliderSaturation_Change 
    Call sliderHue_Change 
    Call sliderSharpness_Change 
 
End Sub 
 
Private Sub sliderBrightness_Change() 
 
    labelBrightness.Caption = CStr(sliderBrightness.SelStart) 
    formMain.SDK30001.Brightness = sliderBrightness.SelStart 
     
End Sub 
 
Private Sub sliderContrast_Change() 
 
    labelContrast.Caption = CStr(sliderContrast.SelStart) 
    formMain.SDK30001.Contrast = sliderContrast.SelStart 
     
End Sub 
 
Private Sub sliderHue_Change() 
     
    labelHue.Caption = CStr(sliderHue.SelStart) 
    formMain.SDK30001.Hue = sliderHue.SelStart 
     
End Sub 
 
Private Sub sliderSaturation_Change() 
     
    labelSaturation.Caption = CStr(sliderSaturation.SelStart) 
    formMain.SDK30001.Saturation = sliderSaturation.SelStart 
         
End Sub 
 
Private Sub sliderSharpness_Change() 
     
    labelSharpness.Caption = CStr(sliderSharpness.SelStart) 
    formMain.SDK30001.Sharpness = sliderSharpness.SelStart 
     
End Sub