home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / PGUIDE / CONTROLS / MAIN.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-01-20  |  6.6 KB  |  255 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    Caption         =   "
  4.    ClientHeight    =   2910
  5.    ClientLeft      =   210
  6.    ClientTop       =   1935
  7.    ClientWidth     =   4830
  8.    BeginProperty Font 
  9.       Name            =   "
  10.       Size            =   9
  11.       Charset         =   134
  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         =   "
  22. (&I)"
  23.       BeginProperty Font 
  24.          Name            =   "
  25.          Size            =   9
  26.          Charset         =   134
  27.          Weight          =   400
  28.          Underline       =   0   'False
  29.          Italic          =   0   'False
  30.          Strikethrough   =   0   'False
  31.       EndProperty
  32.       Height          =   375
  33.       Left            =   2520
  34.       TabIndex        =   5
  35.       Top             =   1440
  36.       Width           =   1935
  37.    End
  38.    Begin VB.CommandButton cmdOption 
  39.       Caption         =   "
  40. (&P)"
  41.       BeginProperty Font 
  42.          Name            =   "
  43.          Size            =   9
  44.          Charset         =   134
  45.          Weight          =   400
  46.          Underline       =   0   'False
  47.          Italic          =   0   'False
  48.          Strikethrough   =   0   'False
  49.       EndProperty
  50.       Height          =   375
  51.       Left            =   2520
  52.       TabIndex        =   4
  53.       Top             =   840
  54.       Width           =   1935
  55.    End
  56.    Begin VB.CommandButton cmdCheck 
  57.       Caption         =   "
  58. (&C)"
  59.       BeginProperty Font 
  60.          Name            =   "
  61.          Size            =   9
  62.          Charset         =   134
  63.          Weight          =   400
  64.          Underline       =   0   'False
  65.          Italic          =   0   'False
  66.          Strikethrough   =   0   'False
  67.       EndProperty
  68.       Height          =   375
  69.       Left            =   2520
  70.       TabIndex        =   3
  71.       Top             =   240
  72.       Width           =   1935
  73.    End
  74.    Begin VB.CommandButton cmdText 
  75.       Caption         =   "
  76. (&X)"
  77.       BeginProperty Font 
  78.          Name            =   "
  79.          Size            =   9
  80.          Charset         =   134
  81.          Weight          =   400
  82.          Underline       =   0   'False
  83.          Italic          =   0   'False
  84.          Strikethrough   =   0   'False
  85.       EndProperty
  86.       Height          =   375
  87.       Left            =   360
  88.       TabIndex        =   2
  89.       Top             =   1440
  90.       Width           =   1935
  91.    End
  92.    Begin VB.CommandButton cmdWordWrap 
  93.       Caption         =   "
  94. (&W)"
  95.       BeginProperty Font 
  96.          Name            =   "
  97.          Size            =   9
  98.          Charset         =   134
  99.          Weight          =   400
  100.          Underline       =   0   'False
  101.          Italic          =   0   'False
  102.          Strikethrough   =   0   'False
  103.       EndProperty
  104.       Height          =   375
  105.       Left            =   360
  106.       TabIndex        =   1
  107.       Top             =   840
  108.       Width           =   1935
  109.    End
  110.    Begin VB.CommandButton cmdButtons 
  111.       Caption         =   "
  112. (&B)"
  113.       BeginProperty Font 
  114.          Name            =   "
  115.          Size            =   9
  116.          Charset         =   134
  117.          Weight          =   400
  118.          Underline       =   0   'False
  119.          Italic          =   0   'False
  120.          Strikethrough   =   0   'False
  121.       EndProperty
  122.       Height          =   375
  123.       Left            =   360
  124.       TabIndex        =   0
  125.       Top             =   240
  126.       Width           =   1935
  127.    End
  128.    Begin VB.CommandButton cmdExit 
  129.       Cancel          =   -1  'True
  130.       Caption         =   "
  131. (&X)"
  132.       BeginProperty Font 
  133.          Name            =   "
  134.          Size            =   9
  135.          Charset         =   134
  136.          Weight          =   400
  137.          Underline       =   0   'False
  138.          Italic          =   0   'False
  139.          Strikethrough   =   0   'False
  140.       EndProperty
  141.       Height          =   375
  142.       Left            =   2520
  143.       TabIndex        =   6
  144.       Top             =   2160
  145.       Width           =   1935
  146.    End
  147.    Begin VB.Menu mnuFileMain 
  148.       Caption         =   "
  149. (&F)"
  150.       Begin VB.Menu mnuFileExit 
  151.          Caption         =   "
  152. (&X)"
  153.       End
  154.    End
  155.    Begin VB.Menu mnuOptionsMain 
  156.       Caption         =   "
  157. (&O)"
  158.       Begin VB.Menu mnuButtons 
  159.          Caption         =   "
  160. (&B)"
  161.       End
  162.       Begin VB.Menu mnuWordWrap 
  163.          Caption         =   "
  164. (&W)"
  165.       End
  166.       Begin VB.Menu mnuText 
  167.          Caption         =   "
  168. (&X)"
  169.       End
  170.       Begin VB.Menu mnuCheck 
  171.          Caption         =   "
  172. (&C)"
  173.       End
  174.       Begin VB.Menu mnuOption 
  175.          Caption         =   "
  176. (&P)"
  177.       End
  178.       Begin VB.Menu mnuImages 
  179.          Caption         =   "
  180. (&I)"
  181.       End
  182.    End
  183. Attribute VB_Name = "frmMain"
  184. Attribute VB_GlobalNameSpace = False
  185. Attribute VB_Creatable = False
  186. Attribute VB_PredeclaredId = True
  187. Attribute VB_Exposed = False
  188. Private Sub cmdButtons_Click()
  189.     ' 
  190.  Click 
  191.     mnuButtons_Click
  192. End Sub
  193. Private Sub cmdCheck_Click()
  194.     ' 
  195.  Click 
  196.     mnuCheck_Click
  197. End Sub
  198. Private Sub cmdExit_Click()
  199.     Unload Me       ' 
  200.     End             ' 
  201. End Sub
  202. Private Sub cmdImages_Click()
  203.     ' 
  204.  Click 
  205.     mnuImages_Click
  206. End Sub
  207. Private Sub cmdOption_Click()
  208.     ' 
  209.  Click 
  210.     mnuOption_Click
  211. End Sub
  212. Private Sub cmdText_Click()
  213.     ' 
  214.  Click 
  215.     mnuText_Click
  216. End Sub
  217. Private Sub cmdWordWrap_Click()
  218.     ' 
  219.  Click 
  220.     mnuWordWrap_Click
  221. End Sub
  222. Private Sub Form_Load()
  223.     frmMain.Height = 3600
  224.     frmMain.Width = 4965
  225. End Sub
  226. Private Sub mnuButtons_Click()
  227.     ' 
  228.     frmButton.Show
  229. End Sub
  230. Private Sub mnuCheck_Click()
  231.     ' 
  232.     frmCheck.Show
  233. End Sub
  234. Private Sub mnuFileExit_Click()
  235.     ' 
  236.  Click 
  237.     cmdExit_Click
  238. End Sub
  239. Private Sub mnuImages_Click()
  240.     ' 
  241.     frmImages.Show
  242. End Sub
  243. Private Sub mnuOption_Click()
  244.     ' 
  245.     frmOptions.Show
  246. End Sub
  247. Private Sub mnuText_Click()
  248.     ' 
  249.     frmText.Show
  250. End Sub
  251. Private Sub mnuWordWrap_Click()
  252.     ' 
  253.     frmWordWrap.Show
  254. End Sub
  255.