home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / health / menu1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-07-21  |  10.0 KB  |  302 lines
  1. VERSION 2.00
  2. Begin Form menu1 
  3.    BackColor       =   &H00FF0000&
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   5070
  6.    ClientLeft      =   1215
  7.    ClientTop       =   1635
  8.    ClientWidth     =   7185
  9.    Height          =   5475
  10.    Left            =   1155
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   5070
  14.    ScaleWidth      =   7185
  15.    Top             =   1290
  16.    Width           =   7305
  17.    Begin SSPanel Panel3D1 
  18.       Alignment       =   6  'Center - TOP
  19.       BackColor       =   &H00C0C0C0&
  20.       BevelInner      =   1  'Inset
  21.       BevelOuter      =   0  'None
  22.       BevelWidth      =   3
  23.       Caption         =   "MENU"
  24.       Font3D          =   3  'Inset w/light shading
  25.       FontBold        =   -1  'True
  26.       FontItalic      =   0   'False
  27.       FontName        =   "Times New Roman"
  28.       FontSize        =   24
  29.       FontStrikethru  =   0   'False
  30.       FontUnderline   =   0   'False
  31.       ForeColor       =   &H00000000&
  32.       Height          =   5055
  33.       Left            =   0
  34.       TabIndex        =   11
  35.       Top             =   0
  36.       Width           =   7215
  37.       Begin SSCommand Command3D1 
  38.          Caption         =   "CANCEL"
  39.          Font3D          =   3  'Inset w/light shading
  40.          FontBold        =   -1  'True
  41.          FontItalic      =   0   'False
  42.          FontName        =   "Arial"
  43.          FontSize        =   12
  44.          FontStrikethru  =   0   'False
  45.          FontUnderline   =   0   'False
  46.          ForeColor       =   &H00000000&
  47.          Height          =   975
  48.          Index           =   11
  49.          Left            =   4560
  50.          Picture         =   MENU1.FRX:0000
  51.          TabIndex        =   12
  52.          Top             =   3480
  53.          Width           =   1935
  54.       End
  55.       Begin SSCommand Command3D1 
  56.          Caption         =   "EXIT"
  57.          Font3D          =   3  'Inset w/light shading
  58.          FontBold        =   -1  'True
  59.          FontItalic      =   0   'False
  60.          FontName        =   "Arial"
  61.          FontSize        =   12
  62.          FontStrikethru  =   0   'False
  63.          FontUnderline   =   0   'False
  64.          ForeColor       =   &H00000000&
  65.          Height          =   975
  66.          Index           =   10
  67.          Left            =   2640
  68.          Picture         =   MENU1.FRX:0302
  69.          TabIndex        =   0
  70.          Top             =   3480
  71.          Width           =   1935
  72.       End
  73.       Begin SSCommand Command3D1 
  74.          Caption         =   "SAVE DATA"
  75.          Font3D          =   3  'Inset w/light shading
  76.          FontBold        =   -1  'True
  77.          FontItalic      =   0   'False
  78.          FontName        =   "Arial"
  79.          FontSize        =   12
  80.          FontStrikethru  =   0   'False
  81.          FontUnderline   =   0   'False
  82.          ForeColor       =   &H00000000&
  83.          Height          =   975
  84.          Index           =   9
  85.          Left            =   720
  86.          Picture         =   MENU1.FRX:0604
  87.          TabIndex        =   10
  88.          Top             =   3480
  89.          Width           =   1935
  90.       End
  91.       Begin SSCommand Command3D1 
  92.          Caption         =   "CLEAR DATA"
  93.          Font3D          =   3  'Inset w/light shading
  94.          FontBold        =   -1  'True
  95.          FontItalic      =   0   'False
  96.          FontName        =   "Arial"
  97.          FontSize        =   12
  98.          FontStrikethru  =   0   'False
  99.          FontUnderline   =   0   'False
  100.          ForeColor       =   &H00000000&
  101.          Height          =   975
  102.          Index           =   8
  103.          Left            =   4560
  104.          Picture         =   MENU1.FRX:0906
  105.          TabIndex        =   9
  106.          Top             =   2520
  107.          Width           =   1935
  108.       End
  109.       Begin SSCommand Command3D1 
  110.          Caption         =   "SUMMARY"
  111.          Font3D          =   3  'Inset w/light shading
  112.          FontBold        =   -1  'True
  113.          FontItalic      =   0   'False
  114.          FontName        =   "Arial"
  115.          FontSize        =   12
  116.          FontStrikethru  =   0   'False
  117.          FontUnderline   =   0   'False
  118.          ForeColor       =   &H00000000&
  119.          Height          =   975
  120.          Index           =   7
  121.          Left            =   2640
  122.          Picture         =   MENU1.FRX:0C08
  123.          TabIndex        =   8
  124.          Top             =   2520
  125.          Width           =   1935
  126.       End
  127.       Begin SSCommand Command3D1 
  128.          Caption         =   "CLINICAL"
  129.          Font3D          =   3  'Inset w/light shading
  130.          FontBold        =   -1  'True
  131.          FontItalic      =   0   'False
  132.          FontName        =   "Arial"
  133.          FontSize        =   12
  134.          FontStrikethru  =   0   'False
  135.          FontUnderline   =   0   'False
  136.          ForeColor       =   &H00000000&
  137.          Height          =   975
  138.          Index           =   6
  139.          Left            =   720
  140.          Picture         =   MENU1.FRX:0F0A
  141.          TabIndex        =   7
  142.          Top             =   2520
  143.          Width           =   1935
  144.       End
  145.       Begin SSCommand Command3D1 
  146.          Caption         =   "PHYSICAL"
  147.          Font3D          =   3  'Inset w/light shading
  148.          FontBold        =   -1  'True
  149.          FontItalic      =   0   'False
  150.          FontName        =   "Arial"
  151.          FontSize        =   12
  152.          FontStrikethru  =   0   'False
  153.          FontUnderline   =   0   'False
  154.          ForeColor       =   &H00000000&
  155.          Height          =   975
  156.          Index           =   5
  157.          Left            =   4560
  158.          Picture         =   MENU1.FRX:120C
  159.          TabIndex        =   6
  160.          Top             =   1560
  161.          Width           =   1935
  162.       End
  163.       Begin SSCommand Command3D1 
  164.          Caption         =   "HISTORY"
  165.          Font3D          =   3  'Inset w/light shading
  166.          FontBold        =   -1  'True
  167.          FontItalic      =   0   'False
  168.          FontName        =   "Arial"
  169.          FontSize        =   12
  170.          FontStrikethru  =   0   'False
  171.          FontUnderline   =   0   'False
  172.          ForeColor       =   &H00000000&
  173.          Height          =   975
  174.          Index           =   4
  175.          Left            =   2640
  176.          Picture         =   MENU1.FRX:150E
  177.          TabIndex        =   5
  178.          Top             =   1560
  179.          Width           =   1935
  180.       End
  181.       Begin SSCommand Command3D1 
  182.          Caption         =   "DIAGNOSIS"
  183.          Font3D          =   3  'Inset w/light shading
  184.          FontBold        =   -1  'True
  185.          FontItalic      =   0   'False
  186.          FontName        =   "Arial"
  187.          FontSize        =   12
  188.          FontStrikethru  =   0   'False
  189.          FontUnderline   =   0   'False
  190.          ForeColor       =   &H00000000&
  191.          Height          =   975
  192.          Index           =   3
  193.          Left            =   720
  194.          Picture         =   MENU1.FRX:1810
  195.          TabIndex        =   4
  196.          Top             =   1560
  197.          Width           =   1935
  198.       End
  199.       Begin SSCommand Command3D1 
  200.          Caption         =   "ADMISSION"
  201.          Font3D          =   3  'Inset w/light shading
  202.          FontBold        =   -1  'True
  203.          FontItalic      =   0   'False
  204.          FontName        =   "Arial"
  205.          FontSize        =   12
  206.          FontStrikethru  =   0   'False
  207.          FontUnderline   =   0   'False
  208.          ForeColor       =   &H00000000&
  209.          Height          =   975
  210.          Index           =   2
  211.          Left            =   4560
  212.          Picture         =   MENU1.FRX:1B12
  213.          TabIndex        =   3
  214.          Top             =   600
  215.          Width           =   1935
  216.       End
  217.       Begin SSCommand Command3D1 
  218.          Caption         =   "IDENTITY"
  219.          Font3D          =   3  'Inset w/light shading
  220.          FontBold        =   -1  'True
  221.          FontItalic      =   0   'False
  222.          FontName        =   "Arial"
  223.          FontSize        =   12
  224.          FontStrikethru  =   0   'False
  225.          FontUnderline   =   0   'False
  226.          ForeColor       =   &H00000000&
  227.          Height          =   975
  228.          Index           =   1
  229.          Left            =   2640
  230.          Picture         =   MENU1.FRX:1E14
  231.          TabIndex        =   2
  232.          Top             =   600
  233.          Width           =   1935
  234.       End
  235.       Begin SSCommand Command3D1 
  236.          Caption         =   "COVER PAGE"
  237.          Font3D          =   3  'Inset w/light shading
  238.          FontBold        =   -1  'True
  239.          FontItalic      =   0   'False
  240.          FontName        =   "Arial"
  241.          FontSize        =   12
  242.          FontStrikethru  =   0   'False
  243.          FontUnderline   =   0   'False
  244.          ForeColor       =   &H00000000&
  245.          Height          =   975
  246.          Index           =   0
  247.          Left            =   720
  248.          Picture         =   MENU1.FRX:2116
  249.          TabIndex        =   1
  250.          Top             =   600
  251.          Width           =   1935
  252.       End
  253.    End
  254. Sub Command3D1_Click (Index As Integer)
  255. Select Case Index
  256. Case 0
  257. menuchoice = "new"
  258. admit.picture1.Cls
  259. admit.picture1.autoredraw = -1
  260. admit.picture1.Scale (0, 0)-(3, 4)
  261. admit.picture1.currentx = .8
  262. admit.picture1.currenty = 1.2
  263. admit.picture1.Print "CLICK"
  264. admit.picture1.currentx = 1
  265. admit.picture1.currenty = 2
  266. admit.picture1.Print " TO"
  267. admit.picture1.currentx = .73
  268. admit.picture1.currenty = 2.8
  269. admit.picture1.Print "BEGIN"
  270. Case 1
  271. menuchoice = "one"
  272. Case 2
  273. menuchoice = "two"
  274. Case 3
  275. menuchoice = "three"
  276. Case 4
  277. menuchoice = "four"
  278. Case 5
  279. menuchoice = "five"
  280. Case 6
  281. menuchoice = "six"
  282. Case 7
  283. menuchoice = "seven"
  284. Case 8
  285. menuchoice = "eight"
  286. admit.picture2.tag = "Clear"
  287. Case 9
  288. menuchoice = "nine"
  289. admit.picture2.tag = "Exit"
  290. Case 10
  291. menuchoice = "ten"
  292. Case 11
  293. menuchoice = "eleven"
  294. End Select
  295. menu1.Hide
  296. Unload menu1
  297. End Sub
  298. Sub Form_Load ()
  299. menuchoice = "old"
  300. menu1.Move (screen.width - menu1.width) / 2, (screen.height - menu1.height) / 2
  301. End Sub
  302.