form1.frm

VB开发的用于测试CRT彩管热拱效应的源程序代码。

VERSION 5.00
Begin VB.Form Form1 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00E0E0E0&
   BorderStyle     =   0  'None
   ClientHeight    =   7320
   ClientLeft      =   105
   ClientTop       =   105
   ClientWidth     =   9525
   ControlBox      =   0   'False
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7320
   ScaleMode       =   0  'User
   ScaleWidth      =   9555.048
   ShowInTaskbar   =   0   'False
   Begin VB.TextBox Text1 
      Alignment       =   2  'Center
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3720
      TabIndex        =   0
      Top             =   3820
      Width           =   1095
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   9000
      Top             =   6240
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackColor       =   &H00E0E0E0&
      Caption         =   "秒"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   4920
      TabIndex        =   2
      Top             =   3900
      Width           =   300
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackColor       =   &H00E0E0E0&
      Caption         =   "设置移动速度："
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   1680
      TabIndex        =   1
      Top             =   3840
      Width           =   2100
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Integer
Dim p As Integer

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Text1.SetFocus
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub



Private Sub Form_Load()
Label1.Visible = False
Label2.Visible = False
Me.Top = 0:    Me.Left = 0:    Me.Height = Screen.Height:    Me.Width = Screen.Width
Me.BackColor = RGB(50, 50, 50)
Text1.Appearance = 0
Text1.BackColor = RGB(255, 255, 255)
Text1.BorderStyle = 0
Text1.Left = 0
Text1.Top = 0
Text1.Height = Screen.Height / 5
Text1.Width = Screen.Width / 5
i = 1
p = 1
'Timer1.Interval = Val(Text1.Text) * 1000
'Timer1.Enabled = True
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then End                    ' 按Esc键恢复原设置退出
End Sub

'Private Sub Timer1_Timer()
'On Error GoTo Perrf
'If Text1.Text <> "" Then Timer1.Interval = Val(Text1.Text) * 1000
'Perrf:    Resume Next
'Form1.SetFocus
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then End                    ' 按Esc键恢复原设置退出
If KeyAscii = 13 Then
 If i = 5 And p <> 5 Then
 Text1.Visible = False
  Text1.Left = 0
  Text1.Top = Text1.Top + Screen.Height / 5
  i = 1
  p = p + 1
  Text1.Visible = True
 Exit Sub
 End If
 If i = 5 And p = 5 Then
 Text1.Visible = False
  Text1.Left = 0
  i = 1
  Text1.Top = 0
  p = 1
 Text1.Visible = True
 Exit Sub
 End If
 Text1.Left = Text1.Left + Screen.Width / 5
 i = i + 1
End If
End Sub


'End Sub