home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD100309202000.psc / Modes.bas < prev    next >
Encoding:
BASIC Source File  |  2000-09-21  |  1.3 KB  |  54 lines
  1. Attribute VB_Name = "Modes_code"
  2. Option Explicit
  3.  
  4. ''''''''''''''''''''''''''''''''''''''''''''''''''
  5. ' If anyone has a better solution to all of the  '
  6. ' modules below, please send it to me at         '
  7. ' foxdetective007@mailcity.com                   '
  8. ''''''''''''''''''''''''''''''''''''''''''''''''''
  9.  
  10. Public S_R(1 To 20) As Double
  11. Public Index As Integer
  12. Public Mode_number As Integer
  13.  
  14. Public Sub Mode_Validation()
  15.  
  16. With frmMain
  17.  
  18. Select Case Mode_number
  19.   
  20.     Case "1"
  21.         .Mode_type = "DEG"
  22.         .Statistics_mode.Text = ""
  23.         .Mode_indicator.Text = ""
  24.         .Statistic_score.Text = ""
  25.         Misc.Mode_value = False
  26.         .Statistic_score.Visible = False
  27.     Case "2"
  28.         .Mode_type.Text = "DEG"
  29.         .Statistics_mode.Text = ""
  30.         .Mode_indicator.Text = ""
  31.         Misc.Mode_value = False
  32.         .Statistic_score.Visible = False
  33.     Case "3"
  34.         .Mode_type.Text = "RAD"
  35.         .Statistics_mode.Text = ""
  36.         .Mode_indicator.Text = ""
  37.         Misc.Mode_value = False
  38.         .Statistic_score.Visible = False
  39.     Case "4"
  40.         .Statistics_mode.Text = "SD"
  41.         .Mode_indicator.Text = ""
  42.         Misc.Mode_value = False
  43.         Dot = False
  44.         .Statistic_score.Visible = True
  45.         .Statistic_score.Text = "n"
  46.         Index = 0
  47.  
  48. End Select
  49.  
  50. End With
  51.  
  52. End Sub
  53.  
  54.