form1.frm

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

FRM
933 行
字号
123
                    If Label6.Top <= 4300 Then
                    Label6.Move Label6.Left, Label6.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
                    Else
                    If Label7.Top <= 4360 Then
                    Label7.Move Label7.Left, Label7.Top + 100
                    Label10.Move Label10.Left, Label10.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
                    Label10.Move Label10.Left, Label10.Top + 100
                    Label9.Move Label9.Left, Label9.Top + 100
                    Else
                    If Label9.Top <= 4300 Then
                    Label9.Move Label9.Left, Label9.Top + 100
                    Label10.Move Label10.Left, Label10.Top + 100
                    Else
                    If Label10.Top <= 4300 Then
                    Label10.Move Label10.Left, Label10.Top + 100
                    End If
                    End If
                    End If
                    End If
                    End If
                    End If
                  Else
                    If Label5.Top <= 3800 Then '计 的坠入
                    Label11.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
                      Label8.Move Label8.Left, Label8.Top + 100
                      Label9.Move Label9.Left, Label9.Top + 100
                      Label11.Move Label11.Left, Label11.Top + 100
                      Label10.Move Label10.Left, Label10.Top + 100
                      Else
                      If Label6.Top <= 4300 Then
                      Label6.Move Label6.Left, Label6.Top + 100
                      Label7.Move Label7.Left, Label7.Top + 100
                      Label8.Move Label8.Left, Label8.Top + 100
                      Label9.Move Label9.Left, Label9.Top + 100
                      Label10.Move Label10.Left, Label10.Top + 100
                      Label11.Move Label11.Left, Label11.Top + 100
                      Else
                      If Label7.Top <= 4360 Then
                      Label7.Move Label7.Left, Label7.Top + 100
                      Label8.Move Label8.Left, Label8.Top + 100
                      Label9.Move Label9.Left, Label9.Top + 100
                      Label10.Move Label10.Left, Label10.Top + 100
                      Label11.Move Label11.Left, Label11.Top + 100
                      Else
                      If Label8.Top <= 4300 Then
                      Label8.Move Label8.Left, Label8.Top + 100
                      Label9.Move Label9.Left, Label9.Top + 100
                      Label10.Move Label10.Left, Label10.Top + 100
                      Label11.Move Label11.Left, Label11.Top + 100
                      Else
                      If Label9.Top <= 4300 Then
                      Label9.Move Label9.Left, Label9.Top + 100
                      Label10.Move Label10.Left, Label10.Top + 100
                      Label11.Move Label11.Left, Label11.Top + 100
                      Else
                      If Label10.Top <= 4300 Then
                      Label10.Move Label10.Left, Label10.Top + 100
                      Label11.Move Label11.Left, Label11.Top + 100
                      Else
                      If Label11.Top <= 4300 Then
                      Label11.Move Label11.Left, Label11.Top + 100
                      End If
                      End If
                      End If
                      End If
                      End If
                      End If
                      End If
                    Else
                      If Label5.Top <= 4000 Then '公 的坠入
                      Label12.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
                        Label8.Move Label8.Left, Label8.Top + 100
                        Label9.Move Label9.Left, Label9.Top + 100
                        Label10.Move Label10.Left, Label10.Top + 100
                        Label11.Move Label11.Left, Label11.Top + 100
                        Label12.Move Label12.Left, Label12.Top + 100
                        Else
                        If Label6.Top <= 4300 Then
                        Label6.Move Label6.Left, Label6.Top + 100
                        Label7.Move Label7.Left, Label7.Top + 100
                        Label8.Move Label8.Left, Label8.Top + 100
                        Label9.Move Label9.Left, Label9.Top + 100
                        Label10.Move Label10.Left, Label10.Top + 100
                        Label11.Move Label11.Left, Label11.Top + 100
                        Label12.Move Label12.Left, Label12.Top + 100
                        Else
                        If Label7.Top <= 4360 Then
                        Label7.Move Label7.Left, Label7.Top + 100
                        Label8.Move Label8.Left, Label8.Top + 100
                        Label9.Move Label9.Left, Label9.Top + 100
                        Label10.Move Label10.Left, Label10.Top + 100
                        Label11.Move Label11.Left, Label11.Top + 100
                        Label12.Move Label12.Left, Label12.Top + 100
                        Else
                        If Label8.Top <= 4300 Then
                        Label8.Move Label8.Left, Label8.Top + 100
                        Label9.Move Label9.Left, Label9.Top + 100
                        Label10.Move Label10.Left, Label10.Top + 100
                        Label11.Move Label11.Left, Label11.Top + 100
                        Label12.Move Label12.Left, Label12.Top + 100
                        Else
                        If Label9.Top <= 4300 Then
                        Label9.Move Label9.Left, Label9.Top + 100
                        Label10.Move Label10.Left, Label10.Top + 100
                        Label11.Move Label11.Left, Label11.Top + 100
                        Label12.Move Label12.Left, Label12.Top + 100
                        Else
                        If Label10.Top <= 4300 Then
                        Label10.Move Label10.Left, Label10.Top + 100
                        Label11.Move Label11.Left, Label11.Top + 100
                        Label12.Move Label12.Left, Label12.Top + 100
                        Else
                        If Label11.Top <= 4300 Then
                        Label11.Move Label11.Left, Label11.Top + 100
                        Label12.Move Label12.Left, Label12.Top + 100
                        Else
                        If Label12.Top <= 4300 Then
                        Label12.Move Label12.Left, Label12.Top + 100
                        End If
                        End If
                        End If
                        End If
                        End If
                        End If
                        End If
                        End If
                        
                      Else
                        If Label5.Top <= 4300 Then '司 坠入
                        Label13.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
                          Label8.Move Label8.Left, Label8.Top + 100
                          Label9.Move Label9.Left, Label9.Top + 100
                          Label10.Move Label10.Left, Label10.Top + 100
                          Label11.Move Label11.Left, Label11.Top + 100
                          Label12.Move Label12.Left, Label12.Top + 100
                          Label13.Move Label13.Left, Label13.Top + 100
                          Else
                          If Label6.Top <= 4300 Then
                          Label6.Move Label6.Left, Label6.Top + 100
                          Label7.Move Label7.Left, Label7.Top + 100
                          Label8.Move Label8.Left, Label8.Top + 100
                          Label9.Move Label9.Left, Label9.Top + 100
                          Label10.Move Label10.Left, Label10.Top + 100
                          Label11.Move Label11.Left, Label11.Top + 100
                          Label12.Move Label12.Left, Label12.Top + 100
                          Label13.Move Label13.Left, Label13.Top + 100
                          Else
                          If Label7.Top <= 4360 Then
                          Label7.Move Label7.Left, Label7.Top + 100
                          Label8.Move Label8.Left, Label8.Top + 100
                          Label9.Move Label9.Left, Label9.Top + 100
                          Label10.Move Label10.Left, Label10.Top + 100
                          Label11.Move Label11.Left, Label11.Top + 100
                          Label12.Move Label12.Left, Label12.Top + 100
                          Label13.Move Label13.Left, Label13.Top + 100
                          Else
                          If Label8.Top <= 4300 Then
                          Label8.Move Label8.Left, Label8.Top + 100
                          Label9.Move Label9.Left, Label9.Top + 100
                          Label10.Move Label10.Left, Label10.Top + 100
                          Label11.Move Label11.Left, Label11.Top + 100
                          Label12.Move Label12.Left, Label12.Top + 100
                          Label13.Move Label13.Left, Label13.Top + 100
                          Else
                          If Label9.Top <= 4300 Then
                          Label9.Move Label9.Left, Label9.Top + 100
                          Label10.Move Label10.Left, Label10.Top + 100
                          Label11.Move Label11.Left, Label11.Top + 100
                          Label12.Move Label12.Left, Label12.Top + 100
                          Label13.Move Label13.Left, Label13.Top + 100
                          Else
                          If Label10.Top <= 4300 Then
                          Label10.Move Label10.Left, Label10.Top + 100
                          Label11.Move Label11.Left, Label11.Top + 100
                          Label12.Move Label12.Left, Label12.Top + 100
                          Label13.Move Label13.Left, Label13.Top + 100
                          Else
                          If Label11.Top <= 4300 Then
                          Label11.Move Label11.Left, Label11.Top + 100
                          Label12.Move Label12.Left, Label12.Top + 100
                          Label13.Move Label13.Left, Label13.Top + 100
                          Else
                          If Label12.Top <= 4300 Then
                          Label12.Move Label12.Left, Label12.Top + 100
                          Label13.Move Label13.Left, Label13.Top + 100
                          Else
                          If Label13.Top <= 4300 Then
                          Label13.Move Label13.Left, Label13.Top + 100
                          End If
                          End If
                          End If
                          End If
                          End If
                          End If
                          End If
                          End If
                          End If
            
                        Else
                        '以下是解决 司 坠到底后其它各字的继续坠落问题。
                           If Label6.Top <= 4300 Then
                            Label6.Move Label6.Left, Label6.Top + 100
                            Label7.Move Label7.Left, Label7.Top + 100
                            Label8.Move Label8.Left, Label8.Top + 100
                            Label9.Move Label9.Left, Label9.Top + 100
                            Label10.Move Label10.Left, Label10.Top + 100
                            Label11.Move Label11.Left, Label11.Top + 100
                            Label12.Move Label12.Left, Label12.Top + 100
                            Label13.Move Label13.Left, Label13.Top + 100
                           Else
                             If Label7.Top <= 4360 Then
                              Label7.Move Label7.Left, Label7.Top + 100
                              Label8.Move Label8.Left, Label8.Top + 100
                              Label9.Move Label9.Left, Label9.Top + 100
                              Label10.Move Label10.Left, Label10.Top + 100
                              Label11.Move Label11.Left, Label11.Top + 100
                              Label12.Move Label12.Left, Label12.Top + 100
                              Label13.Move Label13.Left, Label13.Top + 100
                              Else
                              If Label8.Top <= 4300 Then
                          Label8.Move Label8.Left, Label8.Top + 100
                          Label9.Move Label9.Left, Label9.Top + 100
                          Label10.Move Label10.Left, Label10.Top + 100
                          Label11.Move Label11.Left, Label11.Top + 100
                          Label12.Move Label12.Left, Label12.Top + 100
                          Label13.Move Label13.Left, Label13.Top + 100
                          Else
                              If Label9.Top <= 4300 Then
                          Label9.Move Label9.Left, Label9.Top + 100
                          Label10.Move Label10.Left, Label10.Top + 100
                          Label11.Move Label11.Left, Label11.Top + 100
                          Label12.Move Label12.Left, Label12.Top + 100
                          Label13.Move Label13.Left, Label13.Top + 100
                          Else
                          If Label10.Top <= 4300 Then
                          Label10.Move Label10.Left, Label10.Top + 100
                          Label11.Move Label11.Left, Label11.Top + 100
                          Label12.Move Label12.Left, Label12.Top + 100
                          Label13.Move Label13.Left, Label13.Top + 100
                          Else
                          If Label11.Top <= 4300 Then
                          Label11.Move Label11.Left, Label11.Top + 100
                          Label12.Move Label12.Left, Label12.Top + 100
                          Label13.Move Label13.Left, Label13.Top + 100
                          Else
                          If Label12.Top <= 4300 Then
                          Label12.Move Label12.Left, Label12.Top + 100
                          Label13.Move Label13.Left, Label13.Top + 100
                          Else
                          If Label13.Top <= 4300 Then
                          Label13.Move Label13.Left, Label13.Top + 100
                          Else
                              
                               Image2.Visible = True
                               Image3.Visible = True
                               Image4.Visible = True
                               Label14.Visible = True '下一个
                               Label15.Visible = True '关闭
                               Timer1.Interval = 0
                               Exit Sub
                               
                               End If
                               End If
                               End If
                               End If
                               End If
                               End If
                            End If
                            End If
                            
                  
                        End If
                      End If
                    End If
                  End If
                End If
              End If
            End If
          End If
        End If
        
        
        
      End If
    End If
  End If
End If

End Sub
123

form1.frm - 源码说明

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

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

⌨️ 快捷键说明

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