home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / PGUIDE / CONTROLS / MAIN.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-09-16  |  6.9 KB  |  234 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    Caption         =   "Control Examples"
  4.    ClientHeight    =   2910
  5.    ClientLeft      =   210
  6.    ClientTop       =   1935
  7.    ClientWidth     =   4830
  8.    BeginProperty Font 
  9.       Name            =   "MS Sans Serif"
  10.       Size            =   8.25
  11.       Charset         =   0
  12.       Weight          =   700
  13.       Underline       =   0   'False
  14.       Italic          =   0   'False
  15.       Strikethrough   =   0   'False
  16.    EndProperty
  17.    LinkTopic       =   "Form2"
  18.    ScaleHeight     =   2910
  19.    ScaleWidth      =   4830
  20.    Begin VB.CommandButton cmdImages 
  21.       Caption         =   "&Images"
  22.       BeginProperty Font 
  23.          Name            =   "MS Sans Serif"
  24.          Size            =   8.25
  25.          Charset         =   0
  26.          Weight          =   400
  27.          Underline       =   0   'False
  28.          Italic          =   0   'False
  29.          Strikethrough   =   0   'False
  30.       EndProperty
  31.       Height          =   375
  32.       Left            =   2640
  33.       TabIndex        =   5
  34.       Top             =   1440
  35.       Width           =   1575
  36.    End
  37.    Begin VB.CommandButton cmdOption 
  38.       Caption         =   "O&ption Buttons"
  39.       BeginProperty Font 
  40.          Name            =   "MS Sans Serif"
  41.          Size            =   8.25
  42.          Charset         =   0
  43.          Weight          =   400
  44.          Underline       =   0   'False
  45.          Italic          =   0   'False
  46.          Strikethrough   =   0   'False
  47.       EndProperty
  48.       Height          =   375
  49.       Left            =   2640
  50.       TabIndex        =   4
  51.       Top             =   840
  52.       Width           =   1575
  53.    End
  54.    Begin VB.CommandButton cmdCheck 
  55.       Caption         =   "&Check Box"
  56.       BeginProperty Font 
  57.          Name            =   "MS Sans Serif"
  58.          Size            =   8.25
  59.          Charset         =   0
  60.          Weight          =   400
  61.          Underline       =   0   'False
  62.          Italic          =   0   'False
  63.          Strikethrough   =   0   'False
  64.       EndProperty
  65.       Height          =   375
  66.       Left            =   2640
  67.       TabIndex        =   3
  68.       Top             =   240
  69.       Width           =   1575
  70.    End
  71.    Begin VB.CommandButton cmdText 
  72.       Caption         =   "Te&xt Box"
  73.       BeginProperty Font 
  74.          Name            =   "MS Sans Serif"
  75.          Size            =   8.25
  76.          Charset         =   0
  77.          Weight          =   400
  78.          Underline       =   0   'False
  79.          Italic          =   0   'False
  80.          Strikethrough   =   0   'False
  81.       EndProperty
  82.       Height          =   375
  83.       Left            =   480
  84.       TabIndex        =   2
  85.       Top             =   1440
  86.       Width           =   1575
  87.    End
  88.    Begin VB.CommandButton cmdWordWrap 
  89.       Caption         =   "&Word Wrap"
  90.       BeginProperty Font 
  91.          Name            =   "MS Sans Serif"
  92.          Size            =   8.25
  93.          Charset         =   0
  94.          Weight          =   400
  95.          Underline       =   0   'False
  96.          Italic          =   0   'False
  97.          Strikethrough   =   0   'False
  98.       EndProperty
  99.       Height          =   375
  100.       Left            =   480
  101.       TabIndex        =   1
  102.       Top             =   840
  103.       Width           =   1575
  104.    End
  105.    Begin VB.CommandButton cmdButtons 
  106.       Caption         =   "&Test Buttons"
  107.       BeginProperty Font 
  108.          Name            =   "MS Sans Serif"
  109.          Size            =   8.25
  110.          Charset         =   0
  111.          Weight          =   400
  112.          Underline       =   0   'False
  113.          Italic          =   0   'False
  114.          Strikethrough   =   0   'False
  115.       EndProperty
  116.       Height          =   375
  117.       Left            =   480
  118.       TabIndex        =   0
  119.       Top             =   240
  120.       Width           =   1575
  121.    End
  122.    Begin VB.CommandButton cmdExit 
  123.       Cancel          =   -1  'True
  124.       Caption         =   "E&xit"
  125.       BeginProperty Font 
  126.          Name            =   "MS Sans Serif"
  127.          Size            =   8.25
  128.          Charset         =   0
  129.          Weight          =   400
  130.          Underline       =   0   'False
  131.          Italic          =   0   'False
  132.          Strikethrough   =   0   'False
  133.       EndProperty
  134.       Height          =   375
  135.       Left            =   2640
  136.       TabIndex        =   6
  137.       Top             =   2160
  138.       Width           =   1575
  139.    End
  140.    Begin VB.Menu mnuFileMain 
  141.       Caption         =   "&File"
  142.       Begin VB.Menu mnuFileExit 
  143.          Caption         =   "E&xit"
  144.       End
  145.    End
  146.    Begin VB.Menu mnuOptionsMain 
  147.       Caption         =   "&Options"
  148.       Begin VB.Menu mnuButtons 
  149.          Caption         =   "&Test Buttons"
  150.       End
  151.       Begin VB.Menu mnuWordWrap 
  152.          Caption         =   "&WordWrap"
  153.       End
  154.       Begin VB.Menu mnuText 
  155.          Caption         =   "Te&xt Box Properties"
  156.       End
  157.       Begin VB.Menu mnuCheck 
  158.          Caption         =   "&Check Box"
  159.       End
  160.       Begin VB.Menu mnuOption 
  161.          Caption         =   "O&ption Buttons"
  162.       End
  163.       Begin VB.Menu mnuImages 
  164.          Caption         =   "&Images"
  165.       End
  166.    End
  167. Attribute VB_Name = "frmMain"
  168. Attribute VB_Base = "0{A2B7C66B-E9E1-11CF-84BA-00AA00C007F0}"
  169. Attribute VB_GlobalNameSpace = False
  170. Attribute VB_Creatable = False
  171. Attribute VB_TemplateDerived = False
  172. Attribute VB_PredeclaredId = True
  173. Attribute VB_Exposed = False
  174. Private Sub cmdButtons_Click()
  175.     ' invoke a Click event in the menu
  176.     mnuButtons_Click
  177. End Sub
  178. Private Sub cmdCheck_Click()
  179.     ' invoke a Click event in the menu
  180.     mnuCheck_Click
  181. End Sub
  182. Private Sub cmdExit_Click()
  183.     Unload Me       ' unload the form
  184.     End             ' end the application
  185. End Sub
  186. Private Sub cmdImages_Click()
  187.     ' invoke a Click event in the menu
  188.     mnuImages_Click
  189. End Sub
  190. Private Sub cmdOption_Click()
  191.     ' invoke a Click event in the menu
  192.     mnuOption_Click
  193. End Sub
  194. Private Sub cmdText_Click()
  195.     ' invoke a Click event in the menu
  196.     mnuText_Click
  197. End Sub
  198. Private Sub cmdWordWrap_Click()
  199.     ' invoke a Click event in the menu
  200.     mnuWordWrap_Click
  201. End Sub
  202. Private Sub Form_Load()
  203.     frmMain.Height = 3600
  204.     frmMain.Width = 4965
  205. End Sub
  206. Private Sub mnuButtons_Click()
  207.     ' display the form
  208.     frmButton.Show
  209. End Sub
  210. Private Sub mnuCheck_Click()
  211.     ' display the form
  212.     frmCheck.Show
  213. End Sub
  214. Private Sub mnuFileExit_Click()
  215.     ' invoke a Click event in the command button
  216.     cmdExit_Click
  217. End Sub
  218. Private Sub mnuImages_Click()
  219.     ' display the form
  220.     frmImages.Show
  221. End Sub
  222. Private Sub mnuOption_Click()
  223.     ' display the form
  224.     frmOptions.Show
  225. End Sub
  226. Private Sub mnuText_Click()
  227.     ' display the form
  228.     frmText.Show
  229. End Sub
  230. Private Sub mnuWordWrap_Click()
  231.     ' display the form
  232.     frmWordWrap.Show
  233. End Sub
  234.