home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / Enigma_Cod19480211132005.psc / frmMain.frm < prev   
Text File  |  2005-11-12  |  3KB  |  96 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Begin VB.Form frmMain 
  4.    Caption         =   " Enigma Codebook Tool"
  5.    ClientHeight    =   6225
  6.    ClientLeft      =   60
  7.    ClientTop       =   630
  8.    ClientWidth     =   11805
  9.    Icon            =   "frmMain.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    LockControls    =   -1  'True
  12.    ScaleHeight     =   6225
  13.    ScaleWidth      =   11805
  14.    StartUpPosition =   2  'CenterScreen
  15.    Begin VB.TextBox txtCodeBook 
  16.       BackColor       =   &H008080FF&
  17.       BeginProperty Font 
  18.          Name            =   "Courier New"
  19.          Size            =   9.75
  20.          Charset         =   0
  21.          Weight          =   400
  22.          Underline       =   0   'False
  23.          Italic          =   0   'False
  24.          Strikethrough   =   0   'False
  25.       EndProperty
  26.       ForeColor       =   &H000000FF&
  27.       Height          =   5415
  28.       Left            =   0
  29.       Locked          =   -1  'True
  30.       MultiLine       =   -1  'True
  31.       ScrollBars      =   3  'Both
  32.       TabIndex        =   0
  33.       Top             =   0
  34.       Width           =   8895
  35.    End
  36.    Begin MSComDlg.CommonDialog comDlg 
  37.       Left            =   120
  38.       Top             =   5640
  39.       _ExtentX        =   847
  40.       _ExtentY        =   847
  41.       _Version        =   393216
  42.       CancelError     =   -1  'True
  43.    End
  44.    Begin VB.Menu mnuSheet 
  45.       Caption         =   "&Codebook"
  46.       Begin VB.Menu mnuSelect 
  47.          Caption         =   "&Select..."
  48.       End
  49.       Begin VB.Menu ln0 
  50.          Caption         =   "-"
  51.       End
  52.       Begin VB.Menu mnuCreate 
  53.          Caption         =   "&Create..."
  54.       End
  55.       Begin VB.Menu ln1 
  56.          Caption         =   "-"
  57.       End
  58.       Begin VB.Menu mnuPageSetup 
  59.          Caption         =   "&Page Setup..."
  60.       End
  61.       Begin VB.Menu mnuPrint 
  62.          Caption         =   "&Print"
  63.       End
  64.       Begin VB.Menu ln2 
  65.          Caption         =   "-"
  66.       End
  67.       Begin VB.Menu mnuExit 
  68.          Caption         =   "E&xit"
  69.       End
  70.    End
  71.    Begin VB.Menu mnuAbout 
  72.       Caption         =   "&About"
  73.    End
  74.    Begin VB.Menu mnuHelp 
  75.       Caption         =   "&Help"
  76.    End
  77. End
  78. Attribute VB_Name = "frmMain"
  79. Attribute VB_GlobalNameSpace = False
  80. Attribute VB_Creatable = False
  81. Attribute VB_PredeclaredId = True
  82. Attribute VB_Exposed = False
  83. Option Explicit
  84.  
  85. Private Sub Form_Resize()
  86. If Me.Width < 1000 Or Me.Height < 1000 Then Exit Sub
  87. Me.txtCodeBook.Width = Me.Width - 100
  88. Me.txtCodeBook.Height = Me.Height - 675
  89. End Sub
  90.  
  91. Private Sub mnuAbout_Click()
  92. frmAbout.Show (vbModal)
  93. End Sub
  94.  
  95. Private Sub mnuHelp_Click()
  96. Call