home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / newrouts / addrout.cls < prev    next >
Encoding:
Text File  |  1997-06-13  |  1.1 KB  |  40 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "clsAddARoutine"
  6. Attribute VB_Creatable = True
  7. Attribute VB_Exposed = False
  8.  
  9. Sub AfterClick()
  10.     '**************************************
  11.     '* Author : Michael J. Cox
  12.     '* Date : 6/13/97
  13.     '* Email : mikec247@ix.netcom.com
  14.     '*
  15.     '* Desc:
  16.     '*   This module is called when the menu item
  17.     '*   is clicked.
  18.     '*
  19.     '*   This routine gets the default Author's
  20.     '*   name, Max comment box length and load the
  21.     '*   main form.
  22.     '***********************************
  23.     
  24.     'Get the default user name
  25.     If gAuthorName$ = "" Then gAuthorName$ = GetSetting("NewRouts", "UserConf", "AuthorName", "")
  26.     If gMaxLen% < 1 Then gMaxLen% = Val(GetSetting("NewRouts", "UserConf", "MaxLen", "60"))
  27.     
  28.     gIsFunction = False
  29.     
  30.     frmNewRouts.optSub = True
  31.     frmNewRouts.Caption = "Add a Sub Procedure"
  32.     frmNewRouts.cboRetType.Enabled = gIsFunction
  33.     
  34.     'Populate screen with default data
  35.     frmNewRouts.txtAuthor.Text = gAuthorName$
  36.     frmNewRouts.txtMaxLen.Text = Str$(gMaxLen%)
  37.     
  38.     frmNewRouts.Show vbModal
  39. End Sub
  40.