form1.frm

来自「一套收费计算机系统」· FRM 代码 · 共 933 行 · 第 1/3 页

FRM
933 行
字号
123
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   6195
      TabIndex        =   5
      Top             =   2400
      Visible         =   0   'False
      Width           =   315
   End
   Begin VB.Label Label5 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "一"
      BeginProperty Font 
         Name            =   "华文新魏"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   5880
      TabIndex        =   4
      Top             =   2400
      Visible         =   0   'False
      Width           =   315
   End
   Begin VB.Image Image2 
      Appearance      =   0  'Flat
      Height          =   255
      Left            =   5640
      Picture         =   "Form1.frx":E3FAC
      Stretch         =   -1  'True
      Top             =   4550
      Visible         =   0   'False
      Width           =   3060
   End
   Begin VB.Label Label4 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "武"
      BeginProperty Font 
         Name            =   "华文新魏"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   0
      TabIndex        =   3
      Top             =   4430
      Visible         =   0   'False
      Width           =   315
   End
   Begin VB.Label Label3 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "张   "
      BeginProperty Font 
         Name            =   "华文新魏"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   0
      TabIndex        =   2
      Top             =   4425
      Visible         =   0   'False
      Width           =   585
   End
   Begin VB.Label Label1 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "制："
      BeginProperty Font 
         Name            =   "华文新魏"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   0
      TabIndex        =   1
      Top             =   4430
      Visible         =   0   'False
      Width           =   615
   End
   Begin VB.Label Label2 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "编"
      BeginProperty Font 
         Name            =   "华文新魏"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   0
      TabIndex        =   0
      Top             =   4430
      Width           =   315
   End
   Begin VB.Image Image1 
      Appearance      =   0  'Flat
      Height          =   255
      Left            =   960
      Picture         =   "Form1.frx":E5760
      Stretch         =   -1  'True
      Top             =   4550
      Visible         =   0   'False
      Width           =   1695
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
LyfTools2.HideTaskBar True
End Sub

Private Sub Label14_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then '下一个 按下
Label14.Visible = False
Label17.Visible = True
End If
End Sub

Private Sub Label14_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then '下一个 弹起
Label17.Visible = False
Label14.Visible = True
Unload Form1
LyfTools2.HideTaskBar False
Load MDIForm1
MDIForm1.Show
End If
End Sub

Private Sub Label15_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then '关闭 按下
Label15.Visible = False
Label16.Visible = True
End If
End Sub

Private Sub Label15_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then '关闭 弹起
Label16.Visible = False
Label15.Visible = True
Unload Me
LyfTools2.HideTaskBar False
End If
End Sub

Private Sub Timer1_Timer()
If Label2.Left <= 1300 Then '编 的飞入
   Label2.Visible = True
   Label2.Move Label2.Left + 200, Label2.Top
Else
  If Label1.Left <= 1715 Then '制 的飞入
    Label1.Visible = True
    Label1.Move Label1.Left + 200, Label1.Top
  Else
    If Label3.Left <= 2330 Then '张 的飞入
      Label3.Visible = True
      Label3.Move Label3.Left + 200, Label3.Top
    Else
      If Label4.Left <= 2745 Then '武 的飞入
        Label4.Visible = True
        Label4.Move Label4.Left + 200, Label4.Top
      Else
        Image1.Visible = True
        
        If Label5.Top <= 2600 Then '一 的坠入
        Label5.Visible = True
        Label5.Move Label5.Left, Label5.Top + 100
        Else
          If Label5.Top <= 2800 Then '搏 的坠入
          Label6.Visible = True
            If Label5.Top <= 4300 Then
            Label5.Move Label5.Left, Label5.Top + 100
            Label6.Move Label6.Left, Label6.Top + 100
            Else
            If Label6.Top <= 4300 Then
            Label6.Move Label6.Left, Label6.Top + 100
            End If
            End If
          Else
            If Label5.Top <= 3000 Then 'MIS 的坠入
            Label7.Visible = True
              If Label5.Top <= 4300 Then
              Label5.Move Label5.Left, Label5.Top + 100
              Label6.Move Label6.Left, Label6.Top + 100
              Label7.Move Label7.Left, Label7.Top + 100
              Else
              If Label6.Top <= 4300 Then
              Label6.Move Label6.Left, Label6.Top + 100
              Label7.Move Label7.Left, Label7.Top + 100
              Else
              If Label7.Top <= 4360 Then
              Label7.Move Label7.Left, Label7.Top + 100
              End If
              End If
              End If
            Else
              If Label5.Top <= 3200 Then '软 的坠入
              Label8.Visible = True
                If Label5.Top <= 4300 Then
                Label5.Move Label5.Left, Label5.Top + 100
                Label8.Move Label8.Left, Label8.Top + 100
                Label7.Move Label7.Left, Label7.Top + 100
                Label6.Move Label6.Left, Label6.Top + 100
                Else
                If Label6.Top <= 4300 Then
                Label6.Move Label6.Left, Label6.Top + 100
                Label8.Move Label8.Left, Label8.Top + 100
                Label7.Move Label7.Left, Label7.Top + 100
                Else
                If Label7.Top <= 4360 Then
                Label7.Move Label7.Left, Label7.Top + 100
                Label8.Move Label8.Left, Label8.Top + 100
                Else
                If Label8.Top <= 4300 Then
                Label8.Move Label8.Left, Label8.Top + 100
                End If
                End If
                End If
                End If
              Else
                If Label5.Top <= 3400 Then '件 的坠入
                Label9.Visible = True
                  If Label5.Top <= 4300 Then
                  Label5.Move Label5.Left, Label5.Top + 100
                  Label9.Move Label9.Left, Label9.Top + 100
                  Label8.Move Label8.Left, Label8.Top + 100
                  Label7.Move Label7.Left, Label7.Top + 100
                  Label6.Move Label6.Left, Label6.Top + 100
                  Else
                  If Label6.Top <= 4300 Then
                  Label6.Move Label6.Left, Label6.Top + 100
                  Label9.Move Label9.Left, Label9.Top + 100
                  Label8.Move Label8.Left, Label8.Top + 100
                  Label7.Move Label7.Left, Label7.Top + 100
                  Else
                  If Label7.Top <= 4360 Then
                  Label7.Move Label7.Left, Label7.Top + 100
                  Label9.Move Label9.Left, Label9.Top + 100
                  Label8.Move Label8.Left, Label8.Top + 100
                  Else
                  If Label8.Top <= 4300 Then
                  Label8.Move Label8.Left, Label8.Top + 100
                  Label9.Move Label9.Left, Label9.Top + 100
                  Else
                  If Label9.Top <= 4300 Then
                  Label9.Move Label9.Left, Label9.Top + 100
                  End If
                  End If
                  End If
                  End If
                  End If
                Else
                  If Label5.Top <= 3600 Then '设 的坠入
                  Label10.Visible = True
                    If Label5.Top <= 4300 Then
                    Label5.Move Label5.Left, Label5.Top + 100
                    Label10.Move Label10.Left, Label10.Top + 100
                    Label9.Move Label9.Left, Label9.Top + 100
                    Label8.Move Label8.Left, Label8.Top + 100
                    Label7.Move Label7.Left, Label7.Top + 100
                    Label6.Move Label6.Left, Label6.Top + 100
                    Else
123

form1.frm - 源码说明

本页面展示了「一套收费计算机系统」中的 form1.frm 源码文件，采用 FRM 编程语言编写，共 933 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与收费相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?