form1.frm

一个可用来检测ＬＣＤ显示器有无坏点的小工具

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H00000000&
   BorderStyle     =   0  'None
   ClientHeight    =   5460
   ClientLeft      =   105
   ClientTop       =   105
   ClientWidth     =   7140
   ControlBox      =   0   'False
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   5460
   ScaleWidth      =   7140
   ShowInTaskbar   =   0   'False
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   10
      Left            =   1320
      Top             =   960
   End
   Begin VB.Image Image1 
      Height          =   900
      Left            =   1920
      Picture         =   "Form1.frx":1982
      Top             =   2160
      Width           =   3000
   End
   Begin VB.Menu popmun 
      Caption         =   "右键菜单"
      Visible         =   0   'False
      Begin VB.Menu munHBJT 
         Caption         =   "黑白交替"
         Begin VB.Menu munSS10 
            Caption         =   "10毫秒闪烁"
         End
         Begin VB.Menu munSS100 
            Caption         =   "100毫秒闪烁"
         End
         Begin VB.Menu munSS1000 
            Caption         =   "1000毫秒闪烁"
         End
      End
      Begin VB.Menu munCSJC 
         Caption         =   "纯色检测"
         Begin VB.Menu munBS 
            Caption         =   "白色"
         End
         Begin VB.Menu munHS 
            Caption         =   "黑色"
         End
         Begin VB.Menu munRED 
            Caption         =   "红色"
         End
         Begin VB.Menu munBlue 
            Caption         =   "蓝色"
         End
         Begin VB.Menu munHUS 
            Caption         =   "黄色"
         End
         Begin VB.Menu munLS 
            Caption         =   "绿色"
         End
      End
      Begin VB.Menu munJBSD 
         Caption         =   "渐变色带"
      End
      Begin VB.Menu munSP 
         Caption         =   "色盘"
      End
      Begin VB.Menu munFG 
         Caption         =   "-"
      End
      Begin VB.Menu munTC 
         Caption         =   "退出"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2007/11/06
'描    述：LCD显示器检测工具
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************


Private Sub Form_Activate()
Me.Image1.Top = (Me.ScaleHeight / 2) - (Me.Image1.Height / 2)
Me.Image1.Left = (Me.ScaleWidth / 2) - (Me.Image1.Width / 2)
End Sub

Private Sub Form_Click()
Me.Timer1.Enabled = False
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
    PopupMenu popmun, 0
End If
Me.Image1.Visible = False
End Sub

Private Sub Image1_Click()
Me.Image1.Visible = False
End Sub

Private Sub munBlue_Click()
Me.BackColor = &HFF0000
End Sub

Private Sub munBS_Click()
Me.BackColor = &HFFFFFF
End Sub


Private Sub munHS_Click()
Me.BackColor = &H0&
End Sub

Private Sub munHUS_Click()
Me.BackColor = &HFFFF&
End Sub

Private Sub munJBSD_Click()
Me.BackColor = &H0&
Form2.Show
End Sub

Private Sub munLS_Click()
Me.BackColor = &HFF00&
End Sub

Private Sub munRED_Click()
Me.BackColor = &HFF&
End Sub

Private Sub munSP_Click()
Me.BackColor = &H0&
Form3.Show
End Sub

Private Sub munSS10_Click()
Me.Timer1.Interval = 10
Me.Timer1.Enabled = True
End Sub

Private Sub munSS100_Click()
Me.Timer1.Interval = 100
Me.Timer1.Enabled = True
End Sub

Private Sub munSS1000_Click()
Me.Timer1.Interval = 1000
Me.Timer1.Enabled = True
End Sub

Private Sub munTC_Click()
End
End Sub

Private Sub Timer1_Timer()
If Me.BackColor = &HFFFFFF Then
    Me.BackColor = &H0&
Else
    Me.BackColor = &HFFFFFF
End If
End Sub