home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / orbit / gridset.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-12-05  |  4.7 KB  |  170 lines
  1. VERSION 2.00
  2. Begin Form gridset 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Grid Settings"
  6.    ClientHeight    =   3195
  7.    ClientLeft      =   3660
  8.    ClientTop       =   2025
  9.    ClientWidth     =   3000
  10.    Height          =   3600
  11.    Left            =   3600
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   3195
  17.    ScaleWidth      =   3000
  18.    Top             =   1680
  19.    Width           =   3120
  20.    Begin SSPanel SSPanel2 
  21.       AutoSize        =   3  'AutoSize Child To Panel
  22.       BevelInner      =   1  'Inset
  23.       BevelWidth      =   2
  24.       ForeColor       =   &H00000000&
  25.       Height          =   615
  26.       Left            =   120
  27.       TabIndex        =   9
  28.       Top             =   2520
  29.       Width           =   2775
  30.       Begin CommandButton Command1 
  31.          Cancel          =   -1  'True
  32.          Caption         =   "O.K."
  33.          Height          =   405
  34.          Left            =   105
  35.          TabIndex        =   10
  36.          Top             =   105
  37.          Width           =   2565
  38.       End
  39.    End
  40.    Begin TextBox stepy 
  41.       Height          =   375
  42.       Left            =   1080
  43.       TabIndex        =   6
  44.       Top             =   2040
  45.       Width           =   1695
  46.    End
  47.    Begin TextBox stepx 
  48.       Height          =   375
  49.       Left            =   1080
  50.       TabIndex        =   5
  51.       Top             =   1560
  52.       Width           =   1695
  53.    End
  54.    Begin CheckBox yaxis 
  55.       BackColor       =   &H00C0C0C0&
  56.       Caption         =   "Y Axis"
  57.       Height          =   255
  58.       Left            =   120
  59.       TabIndex        =   8
  60.       Top             =   1200
  61.       Width           =   855
  62.    End
  63.    Begin CheckBox xaxis 
  64.       BackColor       =   &H00C0C0C0&
  65.       Caption         =   "X Axis"
  66.       Height          =   255
  67.       Left            =   120
  68.       TabIndex        =   7
  69.       Top             =   960
  70.       Width           =   855
  71.    End
  72.    Begin PictureBox graph 
  73.       AutoRedraw      =   -1  'True
  74.       Height          =   1335
  75.       Left            =   1200
  76.       ScaleHeight     =   1305
  77.       ScaleWidth      =   1545
  78.       TabIndex        =   2
  79.       Top             =   120
  80.       Width           =   1575
  81.    End
  82.    Begin SSPanel SSPanel1 
  83.       AutoSize        =   3  'AutoSize Child To Panel
  84.       BevelInner      =   1  'Inset
  85.       BevelWidth      =   2
  86.       ForeColor       =   &H00000000&
  87.       Height          =   735
  88.       Left            =   120
  89.       TabIndex        =   0
  90.       Top             =   120
  91.       Width           =   735
  92.       Begin PictureBox Picture2 
  93.          Height          =   525
  94.          Left            =   105
  95.          Picture         =   GRIDSET.FRX:0000
  96.          ScaleHeight     =   495
  97.          ScaleWidth      =   495
  98.          TabIndex        =   1
  99.          Top             =   105
  100.          Width           =   525
  101.       End
  102.    End
  103.    Begin Label Label2 
  104.       AutoSize        =   -1  'True
  105.       BackColor       =   &H00C0C0C0&
  106.       Caption         =   "Step in Y:"
  107.       Height          =   195
  108.       Left            =   120
  109.       TabIndex        =   4
  110.       Top             =   2040
  111.       Width           =   855
  112.    End
  113.    Begin Label Label1 
  114.       AutoSize        =   -1  'True
  115.       BackColor       =   &H00C0C0C0&
  116.       Caption         =   "Step in X:"
  117.       Height          =   195
  118.       Left            =   120
  119.       TabIndex        =   3
  120.       Top             =   1560
  121.       Width           =   855
  122.    End
  123. Sub Command1_Click ()
  124.     gridset.Hide
  125.     Unload gridset
  126. End Sub
  127. Sub Form_Load ()
  128.     graph.scalewidth = planet.graph.scalewidth
  129.     graph.scaleheight = planet.graph.scaleheight
  130.     stepx.text = Str$(gridx)
  131.     stepy.text = Str$(gridy)
  132. End Sub
  133. Sub stepx_Change ()
  134.     gridx = Val(stepx.text)
  135.     If xaxis.value = 1 And stepx.text <> "" Then griddraw "x", gridx, 0
  136. End Sub
  137. Sub stepy_Change ()
  138.     gridy = Val(stepy.text)
  139. End Sub
  140. Sub xaxis_Click ()
  141.     If stepx.text = "" Then
  142.         Beep
  143.         MsgBox "Please enter a Step.", 48, "orbital"
  144.         Exit Sub
  145.     End If
  146.     If xaxis.value = 1 Then
  147.         gridison = 1
  148.         griddraw "x", gridx, 0
  149.         Exit Sub
  150.     Else
  151.         gridison = 0
  152.         graph.Cls
  153.     End If
  154. End Sub
  155. Sub yaxis_Click ()
  156.     If stepy.text = "" Then
  157.         Beep
  158.         MsgBox "Please enter a Step.", 48, "orbital"
  159.         Exit Sub
  160.     End If
  161.     If yaxis.value = 1 Then
  162.         griddraw "y", gridy, 0
  163.         Exit Sub
  164.         Exit Sub
  165.     Else
  166.         gridison = 0
  167.         graph.Cls
  168.     End If
  169. End Sub
  170.