home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_2 / SIZECTRL / DEMOMAIN.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1993-03-01  |  1.3 KB  |  61 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "SIZ Custom Control Demonstration Program"
  4.    Height          =   780
  5.    Left            =   1215
  6.    LinkTopic       =   "Form1"
  7.    ScaleHeight     =   0
  8.    ScaleWidth      =   7545
  9.    Top             =   1275
  10.    Width           =   7755
  11.    Begin Menu FileMenu 
  12.       Caption         =   "&File"
  13.       Begin Menu ExitMenu 
  14.          Caption         =   "E&xit"
  15.       End
  16.    End
  17.    Begin Menu DemoMenu 
  18.       Caption         =   "&Demonstrations"
  19.       Begin Menu ResizeMenu 
  20.          Caption         =   "&Resize controls"
  21.       End
  22.       Begin Menu SelectMenu 
  23.          Caption         =   "&Select images"
  24.       End
  25.       Begin Menu ZorderMenu 
  26.          Caption         =   "&Zorder"
  27.       End
  28.    End
  29. Option Explicit
  30. Sub ExitMenu_Click ()
  31.   Unload Form4
  32.   Unload Form3
  33.   Unload Form2
  34.   Unload Form1
  35. End Sub
  36. Sub Form_Load ()
  37.   Load Form2
  38.   Load Form3
  39.   Load Form4
  40. End Sub
  41. Sub Form_Unload (Cancel As Integer)
  42.   Unload Form4
  43.   Unload Form3
  44.   Unload Form2
  45. End Sub
  46. Sub ResizeMenu_Click ()
  47.   Form4.Hide
  48.   Form3.Hide
  49.   Form2.Show
  50. End Sub
  51. Sub SelectMenu_Click ()
  52.   Form2.Hide
  53.   Form4.Hide
  54.   Form3.Show
  55. End Sub
  56. Sub ZorderMenu_Click ()
  57.   Form2.Hide
  58.   Form3.Hide
  59.   Form4.Show
  60. End Sub
  61.