home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Chaos v1_01837941420.psc / frmmvsetup.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-03-18  |  13.3 KB  |  461 lines
  1. VERSION 5.00
  2. Begin VB.Form frmmvsetup 
  3.    BorderStyle     =   4  'Festes Werkzeugfenster
  4.    Caption         =   "Chaos"
  5.    ClientHeight    =   1800
  6.    ClientLeft      =   45
  7.    ClientTop       =   285
  8.    ClientWidth     =   6450
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   1800
  13.    ScaleWidth      =   6450
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   3  'Windows-Standard
  16.    Begin VB.TextBox Text1 
  17.       BeginProperty Font 
  18.          Name            =   "Courier"
  19.          Size            =   9.75
  20.          Charset         =   0
  21.          Weight          =   400
  22.          Underline       =   0   'False
  23.          Italic          =   0   'False
  24.          Strikethrough   =   0   'False
  25.       EndProperty
  26.       Height          =   2655
  27.       Left            =   120
  28.       Locked          =   -1  'True
  29.       MultiLine       =   -1  'True
  30.       ScrollBars      =   2  'Vertikal
  31.       TabIndex        =   39
  32.       Text            =   "frmmvsetup.frx":0000
  33.       Top             =   1920
  34.       Width           =   6200
  35.    End
  36.    Begin VB.CommandButton Command2 
  37.       Caption         =   "More->>"
  38.       Height          =   255
  39.       Left            =   5400
  40.       TabIndex        =   38
  41.       Top             =   1440
  42.       Width           =   975
  43.    End
  44.    Begin VB.TextBox stufe 
  45.       Alignment       =   2  'Zentriert
  46.       Appearance      =   0  '2D
  47.       Height          =   285
  48.       Left            =   5400
  49.       TabIndex        =   37
  50.       Text            =   "5"
  51.       Top             =   480
  52.       Width           =   975
  53.    End
  54.    Begin VB.TextBox f 
  55.       Alignment       =   2  'Zentriert
  56.       Appearance      =   0  '2D
  57.       Height          =   285
  58.       Index           =   4
  59.       Left            =   4320
  60.       TabIndex        =   36
  61.       Text            =   "0.000"
  62.       Top             =   1440
  63.       Width           =   855
  64.    End
  65.    Begin VB.TextBox f 
  66.       Alignment       =   2  'Zentriert
  67.       Appearance      =   0  '2D
  68.       Height          =   285
  69.       Index           =   3
  70.       Left            =   4320
  71.       TabIndex        =   35
  72.       Text            =   "0.000"
  73.       Top             =   1200
  74.       Width           =   855
  75.    End
  76.    Begin VB.TextBox f 
  77.       Alignment       =   2  'Zentriert
  78.       Appearance      =   0  '2D
  79.       Height          =   285
  80.       Index           =   2
  81.       Left            =   4320
  82.       TabIndex        =   34
  83.       Text            =   ".5"
  84.       Top             =   960
  85.       Width           =   855
  86.    End
  87.    Begin VB.TextBox f 
  88.       Alignment       =   2  'Zentriert
  89.       Appearance      =   0  '2D
  90.       Height          =   285
  91.       Index           =   1
  92.       Left            =   4320
  93.       TabIndex        =   33
  94.       Text            =   "0.000"
  95.       Top             =   720
  96.       Width           =   855
  97.    End
  98.    Begin VB.TextBox f 
  99.       Alignment       =   2  'Zentriert
  100.       Appearance      =   0  '2D
  101.       Height          =   285
  102.       Index           =   0
  103.       Left            =   4320
  104.       TabIndex        =   32
  105.       Text            =   "0.000"
  106.       Top             =   480
  107.       Width           =   855
  108.    End
  109.    Begin VB.CommandButton Command1 
  110.       Caption         =   "Start"
  111.       Default         =   -1  'True
  112.       Height          =   375
  113.       Left            =   5400
  114.       TabIndex        =   31
  115.       Top             =   960
  116.       Width           =   975
  117.    End
  118.    Begin VB.TextBox e 
  119.       Alignment       =   2  'Zentriert
  120.       Appearance      =   0  '2D
  121.       Height          =   285
  122.       Index           =   4
  123.       Left            =   3480
  124.       TabIndex        =   30
  125.       Text            =   "0.000"
  126.       Top             =   1440
  127.       Width           =   855
  128.    End
  129.    Begin VB.TextBox e 
  130.       Alignment       =   2  'Zentriert
  131.       Appearance      =   0  '2D
  132.       Height          =   285
  133.       Index           =   3
  134.       Left            =   3480
  135.       TabIndex        =   29
  136.       Text            =   "0.000"
  137.       Top             =   1200
  138.       Width           =   855
  139.    End
  140.    Begin VB.TextBox e 
  141.       Alignment       =   2  'Zentriert
  142.       Appearance      =   0  '2D
  143.       Height          =   285
  144.       Index           =   2
  145.       Left            =   3480
  146.       TabIndex        =   28
  147.       Text            =   ".25"
  148.       Top             =   960
  149.       Width           =   855
  150.    End
  151.    Begin VB.TextBox e 
  152.       Alignment       =   2  'Zentriert
  153.       Appearance      =   0  '2D
  154.       Height          =   285
  155.       Index           =   1
  156.       Left            =   3480
  157.       TabIndex        =   27
  158.       Text            =   ".5"
  159.       Top             =   720
  160.       Width           =   855
  161.    End
  162.    Begin VB.TextBox e 
  163.       Alignment       =   2  'Zentriert
  164.       Appearance      =   0  '2D
  165.       Height          =   285
  166.       Index           =   0
  167.       Left            =   3480
  168.       TabIndex        =   26
  169.       Text            =   "0.000"
  170.       Top             =   480
  171.       Width           =   855
  172.    End
  173.    Begin VB.TextBox d 
  174.       Alignment       =   2  'Zentriert
  175.       Appearance      =   0  '2D
  176.       Height          =   285
  177.       Index           =   4
  178.       Left            =   2640
  179.       TabIndex        =   25
  180.       Text            =   "0.000"
  181.       Top             =   1440
  182.       Width           =   855
  183.    End
  184.    Begin VB.TextBox d 
  185.       Alignment       =   2  'Zentriert
  186.       Appearance      =   0  '2D
  187.       Height          =   285
  188.       Index           =   3
  189.       Left            =   2640
  190.       TabIndex        =   24
  191.       Text            =   "0.000"
  192.       Top             =   1200
  193.       Width           =   855
  194.    End
  195.    Begin VB.TextBox d 
  196.       Alignment       =   2  'Zentriert
  197.       Appearance      =   0  '2D
  198.       Height          =   285
  199.       Index           =   2
  200.       Left            =   2640
  201.       TabIndex        =   23
  202.       Text            =   ".5"
  203.       Top             =   960
  204.       Width           =   855
  205.    End
  206.    Begin VB.TextBox d 
  207.       Alignment       =   2  'Zentriert
  208.       Appearance      =   0  '2D
  209.       Height          =   285
  210.       Index           =   1
  211.       Left            =   2640
  212.       TabIndex        =   22
  213.       Text            =   ".5"
  214.       Top             =   720
  215.       Width           =   855
  216.    End
  217.    Begin VB.TextBox d 
  218.       Alignment       =   2  'Zentriert
  219.       Appearance      =   0  '2D
  220.       Height          =   285
  221.       Index           =   0
  222.       Left            =   2640
  223.       TabIndex        =   21
  224.       Text            =   ".5"
  225.       Top             =   480
  226.       Width           =   855
  227.    End
  228.    Begin VB.TextBox c 
  229.       Alignment       =   2  'Zentriert
  230.       Appearance      =   0  '2D
  231.       Height          =   285
  232.       Index           =   4
  233.       Left            =   1800
  234.       TabIndex        =   20
  235.       Text            =   "0.000"
  236.       Top             =   1440
  237.       Width           =   855
  238.    End
  239.    Begin VB.TextBox c 
  240.       Alignment       =   2  'Zentriert
  241.       Appearance      =   0  '2D
  242.       Height          =   285
  243.       Index           =   3
  244.       Left            =   1800
  245.       TabIndex        =   19
  246.       Text            =   "0.000"
  247.       Top             =   1200
  248.       Width           =   855
  249.    End
  250.    Begin VB.TextBox c 
  251.       Alignment       =   2  'Zentriert
  252.       Appearance      =   0  '2D
  253.       Height          =   285
  254.       Index           =   2
  255.       Left            =   1800
  256.       TabIndex        =   18
  257.       Text            =   "0.000"
  258.       Top             =   960
  259.       Width           =   855
  260.    End
  261.    Begin VB.TextBox c 
  262.       Alignment       =   2  'Zentriert
  263.       Appearance      =   0  '2D
  264.       Height          =   285
  265.       Index           =   1
  266.       Left            =   1800
  267.       TabIndex        =   17
  268.       Text            =   "0.000"
  269.       Top             =   720
  270.       Width           =   855
  271.    End
  272.    Begin VB.TextBox c 
  273.       Alignment       =   2  'Zentriert
  274.       Appearance      =   0  '2D
  275.       Height          =   285
  276.       Index           =   0
  277.       Left            =   1800
  278.       TabIndex        =   16
  279.       Text            =   "0.000"
  280.       Top             =   480
  281.       Width           =   855
  282.    End
  283.    Begin VB.TextBox b 
  284.       Alignment       =   2  'Zentriert
  285.       Appearance      =   0  '2D
  286.       Height          =   285
  287.       Index           =   4
  288.       Left            =   960
  289.       TabIndex        =   15
  290.       Text            =   "0.000"
  291.       Top             =   1440
  292.       Width           =   855
  293.    End
  294.    Begin VB.TextBox b 
  295.       Alignment       =   2  'Zentriert
  296.       Appearance      =   0  '2D
  297.       Height          =   285
  298.       Index           =   3
  299.       Left            =   960
  300.       TabIndex        =   14
  301.       Text            =   "0.000"
  302.       Top             =   1200
  303.       Width           =   855
  304.    End
  305.    Begin VB.TextBox b 
  306.       Alignment       =   2  'Zentriert
  307.       Appearance      =   0  '2D
  308.       Height          =   285
  309.       Index           =   2
  310.       Left            =   960
  311.       TabIndex        =   13
  312.       Text            =   "0.000"
  313.       Top             =   960
  314.       Width           =   855
  315.    End
  316.    Begin VB.TextBox b 
  317.       Alignment       =   2  'Zentriert
  318.       Appearance      =   0  '2D
  319.       Height          =   285
  320.       Index           =   1
  321.       Left            =   960
  322.       TabIndex        =   12
  323.       Text            =   "0.000"
  324.       Top             =   720
  325.       Width           =   855
  326.    End
  327.    Begin VB.TextBox b 
  328.       Alignment       =   2  'Zentriert
  329.       Appearance      =   0  '2D
  330.       Height          =   285
  331.       Index           =   0
  332.       Left            =   960
  333.       TabIndex        =   11
  334.       Text            =   "0.000"
  335.       Top             =   480
  336.       Width           =   855
  337.    End
  338.    Begin VB.TextBox a 
  339.       Alignment       =   2  'Zentriert
  340.       Appearance      =   0  '2D
  341.       Height          =   285
  342.       Index           =   4
  343.       Left            =   120
  344.       TabIndex        =   10
  345.       Text            =   "0.000"
  346.       Top             =   1440
  347.       Width           =   855
  348.    End
  349.    Begin VB.TextBox a 
  350.       Alignment       =   2  'Zentriert
  351.       Appearance      =   0  '2D
  352.       Height          =   285
  353.       Index           =   3
  354.       Left            =   120
  355.       TabIndex        =   9
  356.       Text            =   "0.000"
  357.       Top             =   1200
  358.       Width           =   855
  359.    End
  360.    Begin VB.TextBox a 
  361.       Alignment       =   2  'Zentriert
  362.       Appearance      =   0  '2D
  363.       Height          =   285
  364.       Index           =   2
  365.       Left            =   120
  366.       TabIndex        =   8
  367.       Text            =   ".5"
  368.       Top             =   960
  369.       Width           =   855
  370.    End
  371.    Begin VB.TextBox a 
  372.       Alignment       =   2  'Zentriert
  373.       Appearance      =   0  '2D
  374.       Height          =   285
  375.       Index           =   1
  376.       Left            =   120
  377.       TabIndex        =   7
  378.       Text            =   ".5"
  379.       Top             =   720
  380.       Width           =   855
  381.    End
  382.    Begin VB.TextBox a 
  383.       Alignment       =   2  'Zentriert
  384.       Appearance      =   0  '2D
  385.       Height          =   285
  386.       Index           =   0
  387.       Left            =   120
  388.       TabIndex        =   6
  389.       Text            =   ".5"
  390.       Top             =   480
  391.       Width           =   855
  392.    End
  393.    Begin VB.Label Label6 
  394.       AutoSize        =   -1  'True
  395.       Caption         =   "b"
  396.       Height          =   195
  397.       Left            =   1320
  398.       TabIndex        =   5
  399.       Top             =   120
  400.       Width           =   90
  401.    End
  402.    Begin VB.Label Label5 
  403.       AutoSize        =   -1  'True
  404.       Caption         =   "c"
  405.       Height          =   195
  406.       Left            =   2160
  407.       TabIndex        =   4
  408.       Top             =   120
  409.       Width           =   90
  410.    End
  411.    Begin VB.Label Label4 
  412.       AutoSize        =   -1  'True
  413.       Caption         =   "d"
  414.       Height          =   195
  415.       Left            =   3000
  416.       TabIndex        =   3
  417.       Top             =   120
  418.       Width           =   90
  419.    End
  420.    Begin VB.Label Label3 
  421.       AutoSize        =   -1  'True
  422.       Caption         =   "f"
  423.       Height          =   195
  424.       Left            =   4680
  425.       TabIndex        =   2
  426.       Top             =   120
  427.       Width           =   45
  428.    End
  429.    Begin VB.Label Label2 
  430.       AutoSize        =   -1  'True
  431.       Caption         =   "e"
  432.       Height          =   195
  433.       Left            =   3840
  434.       TabIndex        =   1
  435.       Top             =   120
  436.       Width           =   90
  437.    End
  438.    Begin VB.Label Label1 
  439.       AutoSize        =   -1  'True
  440.       Caption         =   "a"
  441.       Height          =   195
  442.       Left            =   480
  443.       TabIndex        =   0
  444.       Top             =   120
  445.       Width           =   90
  446.    End
  447. Attribute VB_Name = "frmmvsetup"
  448. Attribute VB_GlobalNameSpace = False
  449. Attribute VB_Creatable = False
  450. Attribute VB_PredeclaredId = True
  451. Attribute VB_Exposed = False
  452. Private Sub Command1_Click()
  453. frmMvkm.Show
  454. End Sub
  455. Private Sub Command2_Click()
  456. If Me.Height = 2130 Then
  457.     Me.Height = 5055
  458.     Me.Height = 2130
  459. End If
  460. End Sub
  461.