home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD53704302000.psc / CodeLib_V2 / CodeLib.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  2000-01-25  |  38.2 KB  |  1,104 lines
  1. VERSION 5.00
  2. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  4. Begin VB.Form CodeLib 
  5.    AutoRedraw      =   -1  'True
  6.    Caption         =   "CodeLib V2.0"
  7.    ClientHeight    =   6660
  8.    ClientLeft      =   60
  9.    ClientTop       =   345
  10.    ClientWidth     =   10470
  11.    Icon            =   "CodeLib.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    Moveable        =   0   'False
  15.    ScaleHeight     =   444
  16.    ScaleMode       =   3  'Pixel
  17.    ScaleWidth      =   698
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.PictureBox Pic5 
  20.       BorderStyle     =   0  'None
  21.       Height          =   195
  22.       Left            =   7065
  23.       ScaleHeight     =   195
  24.       ScaleWidth      =   195
  25.       TabIndex        =   19
  26.       Top             =   1305
  27.       Width           =   195
  28.    End
  29.    Begin VB.PictureBox Pic1 
  30.       AutoSize        =   -1  'True
  31.       BorderStyle     =   0  'None
  32.       Height          =   480
  33.       Left            =   9765
  34.       Picture         =   "CodeLib.frx":030A
  35.       ScaleHeight     =   480
  36.       ScaleWidth      =   480
  37.       TabIndex        =   8
  38.       Top             =   1170
  39.       Width           =   480
  40.    End
  41.    Begin MSComctlLib.Toolbar Toolbar1 
  42.       Height          =   780
  43.       Left            =   90
  44.       TabIndex        =   5
  45.       Top             =   180
  46.       Width           =   10245
  47.       _ExtentX        =   18071
  48.       _ExtentY        =   1376
  49.       ButtonWidth     =   1561
  50.       ButtonHeight    =   1376
  51.       Style           =   1
  52.       ImageList       =   "ImageList1"
  53.       _Version        =   393216
  54.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  55.          NumButtons      =   15
  56.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  57.             Caption         =   "Save DB"
  58.             Key             =   "key1"
  59.             Object.ToolTipText     =   "Save the Database"
  60.             ImageIndex      =   1
  61.          EndProperty
  62.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  63.             Caption         =   "Print Text"
  64.             Key             =   "key2"
  65.             Object.ToolTipText     =   "Print Code or Helpfile"
  66.             ImageIndex      =   2
  67.          EndProperty
  68.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  69.             Style           =   3
  70.          EndProperty
  71.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  72.             Caption         =   "Copy Code"
  73.             Key             =   "key3"
  74.             Object.ToolTipText     =   "Copy selected Code to Clipboard"
  75.             ImageIndex      =   3
  76.          EndProperty
  77.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  78.             Caption         =   "Kill Code"
  79.             Key             =   "key4"
  80.             Object.ToolTipText     =   "Remove selected Code/Help/Notes"
  81.             ImageIndex      =   4
  82.          EndProperty
  83.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  84.             Caption         =   "Rename"
  85.             Key             =   "key7"
  86.             Object.ToolTipText     =   "Rename selected Code"
  87.             ImageIndex      =   7
  88.          EndProperty
  89.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  90.             Caption         =   "Move"
  91.             Key             =   "key10"
  92.             Object.ToolTipText     =   "Move selected Code to another Category"
  93.             ImageIndex      =   10
  94.          EndProperty
  95.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  96.             Style           =   3
  97.          EndProperty
  98.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  99.             Caption         =   "Category"
  100.             Key             =   "key5"
  101.             Object.ToolTipText     =   "Add new Category"
  102.             ImageIndex      =   5
  103.          EndProperty
  104.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  105.             Caption         =   "Rename"
  106.             Key             =   "key6"
  107.             Object.ToolTipText     =   "Rename selected Category"
  108.             ImageIndex      =   6
  109.          EndProperty
  110.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  111.             Caption         =   "Kill Categ."
  112.             Key             =   "key11"
  113.             Object.ToolTipText     =   "Remove selected Category"
  114.             ImageIndex      =   11
  115.          EndProperty
  116.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  117.             Style           =   3
  118.          EndProperty
  119.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  120.             Caption         =   "Search"
  121.             Key             =   "key8"
  122.             Object.ToolTipText     =   "Search for Code or Helpfiles"
  123.             ImageIndex      =   8
  124.          EndProperty
  125.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  126.             Style           =   3
  127.          EndProperty
  128.          BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  129.             Caption         =   "Help"
  130.             Key             =   "key9"
  131.             Object.ToolTipText     =   "Help-Files"
  132.             ImageIndex      =   9
  133.          EndProperty
  134.       EndProperty
  135.    End
  136.    Begin VB.ComboBox Combo1 
  137.       Appearance      =   0  'Flat
  138.       BackColor       =   &H00E0E0E0&
  139.       ForeColor       =   &H00FF0000&
  140.       Height          =   315
  141.       Left            =   90
  142.       TabIndex        =   4
  143.       Text            =   "Combo1"
  144.       Top             =   1710
  145.       Width           =   2400
  146.    End
  147.    Begin VB.ListBox List1 
  148.       BackColor       =   &H00E0E0E0&
  149.       ForeColor       =   &H00FF0000&
  150.       Height          =   3180
  151.       Left            =   90
  152.       Sorted          =   -1  'True
  153.       TabIndex        =   1
  154.       Top             =   2835
  155.       Width           =   2400
  156.    End
  157.    Begin TabDlg.SSTab SSTab1 
  158.       Height          =   4965
  159.       Left            =   2610
  160.       TabIndex        =   0
  161.       Top             =   1710
  162.       Width           =   7845
  163.       _ExtentX        =   13838
  164.       _ExtentY        =   8758
  165.       _Version        =   393216
  166.       Tabs            =   4
  167.       Tab             =   2
  168.       TabsPerRow      =   4
  169.       TabHeight       =   476
  170.       ShowFocusRect   =   0   'False
  171.       BackColor       =   12632256
  172.       ForeColor       =   16711680
  173.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  174.          Name            =   "MS Sans Serif"
  175.          Size            =   9.75
  176.          Charset         =   0
  177.          Weight          =   700
  178.          Underline       =   0   'False
  179.          Italic          =   0   'False
  180.          Strikethrough   =   0   'False
  181.       EndProperty
  182.       TabCaption(0)   =   "Code"
  183.       TabPicture(0)   =   "CodeLib.frx":0BD4
  184.       Tab(0).ControlEnabled=   0   'False
  185.       Tab(0).Control(0)=   "Pic7"
  186.       Tab(0).Control(1)=   "Pic8"
  187.       Tab(0).Control(2)=   "ImageList1"
  188.       Tab(0).Control(3)=   "Text1(0)"
  189.       Tab(0).Control(4)=   "Label10"
  190.       Tab(0).Control(5)=   "Label7"
  191.       Tab(0).Control(6)=   "Label8"
  192.       Tab(0).Control(7)=   "Label1(0)"
  193.       Tab(0).ControlCount=   8
  194.       TabCaption(1)   =   "Help"
  195.       TabPicture(1)   =   "CodeLib.frx":0BF0
  196.       Tab(1).ControlEnabled=   0   'False
  197.       Tab(1).Control(0)=   "Pic2"
  198.       Tab(1).Control(1)=   "Text1(1)"
  199.       Tab(1).Control(2)=   "Label1(1)"
  200.       Tab(1).ControlCount=   3
  201.       TabCaption(2)   =   "Notes"
  202.       TabPicture(2)   =   "CodeLib.frx":0C0C
  203.       Tab(2).ControlEnabled=   -1  'True
  204.       Tab(2).Control(0)=   "Label1(2)"
  205.       Tab(2).Control(0).Enabled=   0   'False
  206.       Tab(2).Control(1)=   "Text1(2)"
  207.       Tab(2).Control(1).Enabled=   0   'False
  208.       Tab(2).Control(2)=   "Pic3"
  209.       Tab(2).Control(2).Enabled=   0   'False
  210.       Tab(2).ControlCount=   3
  211.       TabCaption(3)   =   "Edit Code"
  212.       TabPicture(3)   =   "CodeLib.frx":0C28
  213.       Tab(3).ControlEnabled=   0   'False
  214.       Tab(3).Control(0)=   "Label1(3)"
  215.       Tab(3).Control(1)=   "Text1(3)"
  216.       Tab(3).Control(2)=   "Pic4"
  217.       Tab(3).ControlCount=   3
  218.       Begin VB.PictureBox Pic7 
  219.          BackColor       =   &H00FF00FF&
  220.          Height          =   195
  221.          Left            =   -70725
  222.          ScaleHeight     =   135
  223.          ScaleWidth      =   135
  224.          TabIndex        =   22
  225.          Top             =   360
  226.          Width           =   195
  227.       End
  228.       Begin VB.PictureBox Pic8 
  229.          BackColor       =   &H00FF00FF&
  230.          Height          =   195
  231.          Left            =   -70725
  232.          ScaleHeight     =   135
  233.          ScaleWidth      =   135
  234.          TabIndex        =   21
  235.          Top             =   585
  236.          Width           =   195
  237.       End
  238.       Begin VB.PictureBox Pic4 
  239.          Height          =   195
  240.          Left            =   -70050
  241.          ScaleHeight     =   135
  242.          ScaleWidth      =   135
  243.          TabIndex        =   17
  244.          Top             =   540
  245.          Width           =   195
  246.       End
  247.       Begin VB.PictureBox Pic3 
  248.          Height          =   195
  249.          Left            =   4275
  250.          ScaleHeight     =   135
  251.          ScaleWidth      =   135
  252.          TabIndex        =   15
  253.          Top             =   540
  254.          Width           =   195
  255.       End
  256.       Begin VB.PictureBox Pic2 
  257.          Height          =   195
  258.          Left            =   -70725
  259.          ScaleHeight     =   9
  260.          ScaleMode       =   3  'Pixel
  261.          ScaleWidth      =   9
  262.          TabIndex        =   14
  263.          Top             =   540
  264.          Width           =   195
  265.       End
  266.       Begin VB.TextBox Text1 
  267.          BackColor       =   &H00A0D0D0&
  268.          ForeColor       =   &H00FF0000&
  269.          Height          =   4065
  270.          Index           =   3
  271.          Left            =   -74865
  272.          MultiLine       =   -1  'True
  273.          ScrollBars      =   3  'Both
  274.          TabIndex        =   13
  275.          Top             =   810
  276.          Width           =   7575
  277.       End
  278.       Begin VB.TextBox Text1 
  279.          BackColor       =   &H00A0D0D0&
  280.          ForeColor       =   &H00FF0000&
  281.          Height          =   4065
  282.          Index           =   2
  283.          Left            =   135
  284.          MultiLine       =   -1  'True
  285.          ScrollBars      =   3  'Both
  286.          TabIndex        =   10
  287.          Top             =   810
  288.          Width           =   7575
  289.       End
  290.       Begin VB.TextBox Text1 
  291.          BackColor       =   &H00A0D0D0&
  292.          ForeColor       =   &H00FF0000&
  293.          Height          =   4065
  294.          Index           =   1
  295.          Left            =   -74865
  296.          MultiLine       =   -1  'True
  297.          ScrollBars      =   3  'Both
  298.          TabIndex        =   9
  299.          Top             =   810
  300.          Width           =   7575
  301.       End
  302.       Begin MSComctlLib.ImageList ImageList1 
  303.          Left            =   -74415
  304.          Top             =   3348
  305.          _ExtentX        =   1005
  306.          _ExtentY        =   1005
  307.          BackColor       =   -2147483643
  308.          ImageWidth      =   32
  309.          ImageHeight     =   32
  310.          MaskColor       =   12632256
  311.          _Version        =   393216
  312.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  313.             NumListImages   =   11
  314.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  315.                Picture         =   "CodeLib.frx":0C44
  316.                Key             =   ""
  317.             EndProperty
  318.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  319.                Picture         =   "CodeLib.frx":1520
  320.                Key             =   ""
  321.             EndProperty
  322.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  323.                Picture         =   "CodeLib.frx":20F4
  324.                Key             =   ""
  325.             EndProperty
  326.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  327.                Picture         =   "CodeLib.frx":2F48
  328.                Key             =   ""
  329.             EndProperty
  330.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  331.                Picture         =   "CodeLib.frx":3D9C
  332.                Key             =   ""
  333.             EndProperty
  334.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  335.                Picture         =   "CodeLib.frx":4678
  336.                Key             =   ""
  337.             EndProperty
  338.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  339.                Picture         =   "CodeLib.frx":4F54
  340.                Key             =   ""
  341.             EndProperty
  342.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  343.                Picture         =   "CodeLib.frx":5830
  344.                Key             =   ""
  345.             EndProperty
  346.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  347.                Picture         =   "CodeLib.frx":610C
  348.                Key             =   ""
  349.             EndProperty
  350.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  351.                Picture         =   "CodeLib.frx":7E18
  352.                Key             =   ""
  353.             EndProperty
  354.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  355.                Picture         =   "CodeLib.frx":9B24
  356.                Key             =   ""
  357.             EndProperty
  358.          EndProperty
  359.       End
  360.       Begin VB.TextBox Text1 
  361.          BackColor       =   &H00A0D0D0&
  362.          ForeColor       =   &H00FF0000&
  363.          Height          =   4065
  364.          Index           =   0
  365.          Left            =   -74865
  366.          MultiLine       =   -1  'True
  367.          ScrollBars      =   3  'Both
  368.          TabIndex        =   2
  369.          Top             =   810
  370.          Width           =   7575
  371.       End
  372.       Begin VB.Label Label10 
  373.          Alignment       =   2  'Center
  374.          BackColor       =   &H00C0C0C0&
  375.          BorderStyle     =   1  'Fixed Single
  376.          BeginProperty Font 
  377.             Name            =   "MS Sans Serif"
  378.             Size            =   8.25
  379.             Charset         =   0
  380.             Weight          =   700
  381.             Underline       =   0   'False
  382.             Italic          =   0   'False
  383.             Strikethrough   =   0   'False
  384.          EndProperty
  385.          ForeColor       =   &H00C00000&
  386.          Height          =   255
  387.          Left            =   -68970
  388.          TabIndex        =   27
  389.          Top             =   495
  390.          Width           =   1680
  391.       End
  392.       Begin VB.Label Label7 
  393.          Caption         =   "Helpfile present"
  394.          BeginProperty Font 
  395.             Name            =   "MS Sans Serif"
  396.             Size            =   8.25
  397.             Charset         =   0
  398.             Weight          =   700
  399.             Underline       =   0   'False
  400.             Italic          =   0   'False
  401.             Strikethrough   =   0   'False
  402.          EndProperty
  403.          ForeColor       =   &H000000C0&
  404.          Height          =   240
  405.          Left            =   -70455
  406.          TabIndex        =   24
  407.          Top             =   360
  408.          Width           =   1500
  409.       End
  410.       Begin VB.Label Label8 
  411.          Caption         =   "Notes present"
  412.          BeginProperty Font 
  413.             Name            =   "MS Sans Serif"
  414.             Size            =   8.25
  415.             Charset         =   0
  416.             Weight          =   700
  417.             Underline       =   0   'False
  418.             Italic          =   0   'False
  419.             Strikethrough   =   0   'False
  420.          EndProperty
  421.          ForeColor       =   &H000000C0&
  422.          Height          =   240
  423.          Left            =   -70455
  424.          TabIndex        =   23
  425.          Top             =   585
  426.          Width           =   1500
  427.       End
  428.       Begin VB.Label Label1 
  429.          Alignment       =   2  'Center
  430.          BackColor       =   &H00C0C000&
  431.          BorderStyle     =   1  'Fixed Single
  432.          BeginProperty Font 
  433.             Name            =   "MS Sans Serif"
  434.             Size            =   8.25
  435.             Charset         =   0
  436.             Weight          =   700
  437.             Underline       =   0   'False
  438.             Italic          =   0   'False
  439.             Strikethrough   =   0   'False
  440.          EndProperty
  441.          ForeColor       =   &H00C00000&
  442.          Height          =   255
  443.          Index           =   3
  444.          Left            =   -74865
  445.          TabIndex        =   16
  446.          Top             =   495
  447.          Width           =   4785
  448.       End
  449.       Begin VB.Label Label1 
  450.          Alignment       =   2  'Center
  451.          BackColor       =   &H00C0C000&
  452.          BorderStyle     =   1  'Fixed Single
  453.          BeginProperty Font 
  454.             Name            =   "MS Sans Serif"
  455.             Size            =   8.25
  456.             Charset         =   0
  457.             Weight          =   700
  458.             Underline       =   0   'False
  459.             Italic          =   0   'False
  460.             Strikethrough   =   0   'False
  461.          EndProperty
  462.          ForeColor       =   &H00C00000&
  463.          Height          =   255
  464.          Index           =   2
  465.          Left            =   135
  466.          TabIndex        =   12
  467.          Top             =   495
  468.          Width           =   4020
  469.       End
  470.       Begin VB.Label Label1 
  471.          Alignment       =   2  'Center
  472.          BackColor       =   &H00C0C000&
  473.          BorderStyle     =   1  'Fixed Single
  474.          BeginProperty Font 
  475.             Name            =   "MS Sans Serif"
  476.             Size            =   8.25
  477.             Charset         =   0
  478.             Weight          =   700
  479.             Underline       =   0   'False
  480.             Italic          =   0   'False
  481.             Strikethrough   =   0   'False
  482.          EndProperty
  483.          ForeColor       =   &H00C00000&
  484.          Height          =   255
  485.          Index           =   1
  486.          Left            =   -74865
  487.          TabIndex        =   11
  488.          Top             =   495
  489.          Width           =   4020
  490.       End
  491.       Begin VB.Label Label1 
  492.          Alignment       =   2  'Center
  493.          BackColor       =   &H00C0C000&
  494.          BorderStyle     =   1  'Fixed Single
  495.          BeginProperty Font 
  496.             Name            =   "MS Sans Serif"
  497.             Size            =   8.25
  498.             Charset         =   0
  499.             Weight          =   700
  500.             Underline       =   0   'False
  501.             Italic          =   0   'False
  502.             Strikethrough   =   0   'False
  503.          EndProperty
  504.          ForeColor       =   &H00C00000&
  505.          Height          =   255
  506.          Index           =   0
  507.          Left            =   -74865
  508.          TabIndex        =   3
  509.          Top             =   495
  510.          Width           =   4020
  511.       End
  512.    End
  513.    Begin VB.Label Label11 
  514.       Alignment       =   2  'Center
  515.       BackColor       =   &H00C00000&
  516.       Caption         =   " Number of Code-snippets: 111"
  517.       BeginProperty Font 
  518.          Name            =   "MS Sans Serif"
  519.          Size            =   8.25
  520.          Charset         =   0
  521.          Weight          =   700
  522.          Underline       =   0   'False
  523.          Italic          =   0   'False
  524.          Strikethrough   =   0   'False
  525.       EndProperty
  526.       ForeColor       =   &H00FFFF80&
  527.       Height          =   420
  528.       Left            =   135
  529.       TabIndex        =   26
  530.       Top             =   6165
  531.       Width           =   2310
  532.    End
  533.    Begin VB.Label Label9 
  534.       Alignment       =   2  'Center
  535.       BackColor       =   &H00E0E0E0&
  536.       BeginProperty Font 
  537.          Name            =   "MS Sans Serif"
  538.          Size            =   8.25
  539.          Charset         =   0
  540.          Weight          =   700
  541.          Underline       =   0   'False
  542.          Italic          =   0   'False
  543.          Strikethrough   =   0   'False
  544.       EndProperty
  545.       ForeColor       =   &H00808000&
  546.       Height          =   195
  547.       Left            =   135
  548.       TabIndex        =   25
  549.       Top             =   2520
  550.       Width           =   2265
  551.    End
  552.    Begin VB.Label Label6 
  553.       Alignment       =   2  'Center
  554.       Caption         =   "Database dirty"
  555.       BeginProperty Font 
  556.          Name            =   "MS Sans Serif"
  557.          Size            =   8.25
  558.          Charset         =   0
  559.          Weight          =   700
  560.          Underline       =   0   'False
  561.          Italic          =   0   'False
  562.          Strikethrough   =   0   'False
  563.       EndProperty
  564.       ForeColor       =   &H000040C0&
  565.       Height          =   195
  566.       Left            =   7470
  567.       TabIndex        =   20
  568.       Top             =   1305
  569.       Width           =   1800
  570.    End
  571.    Begin VB.Label Label5 
  572.       Alignment       =   2  'Center
  573.       Caption         =   "Clipboard empty"
  574.       BeginProperty Font 
  575.          Name            =   "MS Sans Serif"
  576.          Size            =   8.25
  577.          Charset         =   0
  578.          Weight          =   700
  579.          Underline       =   0   'False
  580.          Italic          =   0   'False
  581.          Strikethrough   =   0   'False
  582.       EndProperty
  583.       ForeColor       =   &H000040C0&
  584.       Height          =   195
  585.       Left            =   2700
  586.       TabIndex        =   18
  587.       Top             =   1305
  588.       Width           =   3750
  589.    End
  590.    Begin VB.Label Label4 
  591.       Alignment       =   2  'Center
  592.       Caption         =   "Loading database..."
  593.       BeginProperty Font 
  594.          Name            =   "MS Sans Serif"
  595.          Size            =   8.25
  596.          Charset         =   0
  597.          Weight          =   700
  598.          Underline       =   0   'False
  599.          Italic          =   0   'False
  600.          Strikethrough   =   0   'False
  601.       EndProperty
  602.       ForeColor       =   &H000040C0&
  603.       Height          =   195
  604.       Left            =   135
  605.       TabIndex        =   7
  606.       Top             =   1305
  607.       Width           =   2355
  608.    End
  609.    Begin VB.Label Label2 
  610.       Alignment       =   2  'Center
  611.       BackColor       =   &H00E0E0E0&
  612.       BeginProperty Font 
  613.          Name            =   "MS Sans Serif"
  614.          Size            =   8.25
  615.          Charset         =   0
  616.          Weight          =   700
  617.          Underline       =   0   'False
  618.          Italic          =   0   'False
  619.          Strikethrough   =   0   'False
  620.       EndProperty
  621.       ForeColor       =   &H00808000&
  622.       Height          =   195
  623.       Left            =   135
  624.       TabIndex        =   6
  625.       Top             =   2160
  626.       Width           =   2265
  627.    End
  628.    Begin VB.Menu mnuCode 
  629.       Caption         =   "Code"
  630.       Visible         =   0   'False
  631.       Begin VB.Menu mnuCopyCode 
  632.          Caption         =   "Copy Code"
  633.       End
  634.       Begin VB.Menu bar0 
  635.          Caption         =   "-"
  636.       End
  637.       Begin VB.Menu mnuKillCode 
  638.          Caption         =   "Kill Code"
  639.       End
  640.       Begin VB.Menu bar1 
  641.          Caption         =   "-"
  642.       End
  643.       Begin VB.Menu mnuRenameCode 
  644.          Caption         =   "Rename Code"
  645.       End
  646.       Begin VB.Menu bar2 
  647.          Caption         =   "-"
  648.       End
  649.       Begin VB.Menu mnuMoveCode 
  650.          Caption         =   "Move Code"
  651.       End
  652.       Begin VB.Menu bar3 
  653.          Caption         =   "-"
  654.       End
  655.       Begin VB.Menu mnuPrintCod 
  656.          Caption         =   "Print Code"
  657.       End
  658.    End
  659. Attribute VB_Name = "CodeLib"
  660. Attribute VB_GlobalNameSpace = False
  661. Attribute VB_Creatable = False
  662. Attribute VB_PredeclaredId = True
  663. Attribute VB_Exposed = False
  664.     Dim YPos%, TH%
  665. Private Sub Combo1_Click()
  666. List1.Clear
  667. For xx = 0 To 2
  668. Label1(xx).Caption = Empty
  669. Text1(xx).Text = ""
  670. Next xx
  671. Label2.Caption = Combo1.List(Combo1.ListIndex)
  672. CatIdx = Val(Left(Combo1.List(Combo1.ListIndex), 2))
  673. 'Label3.Caption = "Category: " & CatIdx
  674. SearchItems
  675. Pic7.Visible = False
  676. Label7.Visible = False
  677. Pic8.Visible = False
  678. Label8.Visible = False
  679. Pic2.BackColor = RGB(192, 192, 192)
  680. Pic3.BackColor = RGB(192, 192, 192)
  681. Pic1.SetFocus
  682. End Sub
  683. Private Sub Form_Activate()
  684. Combo1.Text = "Category"
  685. Label4.Caption = "Ready !"
  686. Label4.Tag = ""
  687. If SSTab1.Tab <> 0 Then
  688. End If
  689. End Sub
  690. Private Sub Form_Load()
  691. On Error Resume Next
  692. Title = "CodeLib V2.0"
  693. CodeLib.ScaleMode = 1
  694. TH = Me.TextHeight(a)
  695. CodeLib.ScaleMode = 3
  696. T3D CodeLib, Toolbar1, 3, T3dRaiseInset
  697. T3D CodeLib, Label4, 5, T3dRaiseRaise
  698. T3D CodeLib, Label5, 5, T3dRaiseRaise
  699. T3D CodeLib, Pic5, 5, T3dRaiseRaise
  700. T3D CodeLib, Label2, 3, T3dRaiseRaise
  701. T3D CodeLib, Label9, 3, T3dRaiseRaise
  702. T3D CodeLib, Label6, 5, T3dRaiseRaise
  703. T3D Search, Search.Label1(0), 10, T3dRaiseInset
  704. T3D Search, Search.Label1(0), 5, T3dRaiseRaise
  705. T3D Search, Search.Drive1, 5, T3dRaiseRaise
  706. T3D Search, Search.Dir1, 5, T3dRaiseRaise
  707. T3D Search, Search.File1, 5, T3dRaiseRaise
  708. T3D Search, Search.Text1, 5, T3dRaiseRaise
  709. T3D Search2, Search2.Text1, 5, T3dRaiseRaise
  710. T3D Search2, Search2.Combo1, 3, T3dRaiseRaise
  711. T3D Search2, Search2.Label1, 7, T3dRaiseRaise
  712. T3D Search2, Search2.Label2, 5, T3dRaiseRaise
  713. T3D Search2, Search2.Label3, 5, T3dRaiseRaise
  714. T3D Search3, Search3.Label1, 7, T3dRaiseRaise
  715. T3D Search3, Search3.Combo1, 5, T3dRaiseRaise
  716. T3D Move1, Move1.Combo1, 5, T3dRaiseRaise
  717. T3D Move1, Move1.Label1, 5, T3dRaiseRaise
  718. T3D HelpScreen, HelpScreen.Label1, 4, T3dInsetInset
  719. T3D HelpScreen, HelpScreen.Label1, 8, T3dInsetInset
  720. T3D HelpScreen, HelpScreen.Label1, 12, T3dInsetInset
  721. 'Label10.Caption = " Lines of text: "
  722. 'T3D CodeLib, Label10, 3, T3dRaiseRaise
  723. T3D CodeLib, Label11, 3, T3dInsetInset
  724. Setline CodeLib, 1
  725. Setline CodeLib, 74, False
  726. Pic2.BackColor = RGB(192, 192, 192)
  727. Pic3.BackColor = RGB(192, 192, 192)
  728. Pic4.BackColor = RGB(192, 192, 192)
  729. Pic5.BackColor = RGB(192, 192, 192)
  730. Label6.Caption = "Database clear"
  731. Label4.Tag = "0"
  732. Label4.Caption = "Loading Database"
  733. SSTab1.Tab = 0
  734. Pic7.Visible = False
  735. Label7.Visible = False
  736. Pic8.Visible = False
  737. Label8.Visible = False
  738. LoadCat
  739. LoadLib
  740. SizeCombo CodeLib, Combo1
  741. SizeCombo Move1, Move1.Combo1
  742. SizeCombo Search3, Search3.Combo1
  743. Label11.Caption = "Number of Code-snippets:" & vbCr & CodeCount
  744. Search.Drive1.Drive = "C:\"
  745. Search.Dir1.Path = "C:\"
  746. CodeLib.Move (Screen.Width / 2) - (CodeLib.Width / 2), (Screen.Height / 2) - (CodeLib.Height / 2), 10590, 7065
  747. CodeLib.Show
  748. DoEvents
  749. Start.Show 1
  750. End Sub
  751. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  752. If Label4.Tag = "" Then Label4.Caption = ""
  753. End Sub
  754. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  755. Cancel = True
  756. Msbox "Do you want to quit ?", Title, mbYesNo, mbQuestion
  757. If MBReturn = 1 Then Exit Sub
  758. 'OK !Quit
  759. If Pic5.BackColor = 0 Then 'database dirty
  760.     Msbox "The database is dirty and should be saved..." & vbCr & vbCr & "Save the Database ?", Title, mbYesNo, mbQuestion
  761.     If MBReturn = 1 Then End
  762.     SaveLib
  763. End If
  764. End Sub
  765. Private Sub Form_Resize()
  766. On Error Resume Next
  767. CodeLib.Move (Screen.Width / 2) - (CodeLib.Width / 2), (Screen.Height / 2) - (CodeLib.Height / 2), 10590, 7065
  768. End Sub
  769. Private Sub List1_Click()
  770. SSTab1.Tab = 0
  771. Idx1 = List1.ListIndex
  772. For xx = 0 To 2
  773. Label1(xx).Caption = Label2.Caption & " " & List1.List(Idx1)
  774. Text1(xx).Text = CLdata(xx + 2, List1.ItemData(Idx1))
  775. Next xx
  776. If CLdata(3, List1.ItemData(Idx1)) <> "" Then
  777. Pic7.Visible = True
  778. Label7.Visible = True
  779. Pic7.Visible = False
  780. Label7.Visible = False
  781. End If
  782. If CLdata(4, List1.ItemData(Idx1)) <> "" Then
  783. Pic8.Visible = True
  784. Label8.Visible = True
  785. Pic8.Visible = False
  786. Label8.Visible = False
  787. End If
  788. Text1(3).Text = Text1(0).Text 'copy to editbox
  789. Label1(3).Caption = "Edit Code for: " & List1.List(Idx1)
  790. Pic2.BackColor = RGB(192, 192, 192)
  791. Pic3.BackColor = RGB(192, 192, 192)
  792. Pic4.BackColor = RGB(192, 192, 192)
  793. End Sub
  794. Private Sub mnuCopyCode_Click()
  795. If Text1(0).Text = "" Then
  796.     Msbox "No Code selected", Title, mbOkonly, mbInfo
  797.     Exit Sub
  798. End If
  799. Clipboard.Clear
  800. Clipboard.SetText Text1(0).Text
  801. Label5.Caption = "Clipboard filled with " & List1.List(Idx1)
  802. End Sub
  803. Private Sub mnuKillCode_Click()
  804. If Text1(0).Text = "" Then
  805.     Msbox "No Code selected", Title, mbOkonly, mbInfo
  806.     Exit Sub
  807. End If
  808. Msbox "You want to delete the Code " & List1.List(Idx1) & " in the category " & Label2.Caption & vbCr & "Also the helpfile and notes will be deleted from the database..." & vbCr & vbCr & "Are you sure about this ?", Title, mbYesNo, mbQuestion
  809. If MBReturn = 1 Then Exit Sub
  810. KillEntry
  811. End Sub
  812. Private Sub mnuMoveCode_Click()
  813. If Text1(0).Text = "" Then
  814. Msbox "No Code selected...", Title, mbOkonly, mbInfo
  815. Exit Sub
  816. End If
  817. Move1.Label1.Caption = "Move the selected Code:" & vbCr & List1.List(List1.ListIndex)
  818. Move1.Show 1
  819. End Sub
  820. Private Sub mnuPrintCod_Click()
  821. If Text1(0).Text = "" Then
  822.     Msbox "No Code selected", Title, mbOkonly, mbInfo
  823.     Exit Sub
  824. End If
  825. If SSTab1.Tab = 2 Or SSTab1.Tab = 3 Then
  826. Msbox "No printing here...", Title, mbOkonly, mbInfo
  827. Exit Sub
  828. End If
  829. If SSTab1.Tab = 1 And Text1(1).Text = "" Then
  830.     Msbox "No Helpfile present...", Title, mbOkonly, mbInfo
  831.     Exit Sub
  832. End If
  833. If SSTab1.Tab = 0 Then Msbox "Print Code of the " & List1.List(Idx1) & " ?", Title, mbYesNo, mbQuestion
  834. If SSTab1.Tab = 1 Then Msbox "Print helpfile of the " & List1.List(Idx1) & " ?", Title, mbYesNo, mbQuestion
  835. If MBReturn = 1 Then Exit Sub 'No selected
  836. 'OK ! Print !
  837. Msbox "Turn on the printer...", Title, mbPrintNoWay, mbPrint
  838. If MBReturn = 1 Then Exit Sub
  839. Printer.FontSize = 10
  840. Printer.Print
  841. Printer.Print
  842. Printer.CurrentX = 1000
  843. Printer.Print Label1(SSTab1.Tab).Caption
  844. Printer.Print
  845. Printer.Print Text1(SSTab1.Tab).Text
  846. Printer.EndDoc
  847. End Sub
  848. Private Sub mnuRenameCode_Click()
  849. If Text1(0).Text = "" Then
  850. Msbox "No Code selected...", Title, mbOkonly, mbInfo
  851. Exit Sub
  852. End If
  853. key72:
  854. InBox "Rename the Code: " & vbCr & CLdata(1, List1.ItemData(Idx1)), CLdata(1, List1.ItemData(Idx1)), Title
  855. If IbReturn = "" Then Exit Sub 'exit
  856.     For xx = 0 To 999
  857.     If LCase(Trim(IbReturn)) = LCase(CLdata(1, xx)) Then
  858.     Msbox "This Codename already exists !", Title, mbOkonly, mbCritical
  859.     xx = 999
  860.     GoTo key72
  861.     End If
  862.     Next xx
  863. RenameCode
  864. End Sub
  865. Private Sub pic1_GotFocus()
  866. Combo1.Text = "Category"
  867. End Sub
  868. Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  869.     YPos = Y \ TH + List1.TopIndex
  870.         If YPos < List1.ListCount Then
  871.         Label4.Caption = "(" & CatIdx & ") " & List1.List(YPos)
  872.         Else
  873.         Label4.Caption = ""
  874.         End If
  875. End Sub
  876. Private Sub Text1_LostFocus(Index As Integer)
  877. If Index = 1 And Pic2.BackColor = 0 Then
  878. Pic2.BackColor = RGB(192, 192, 192)
  879. Pic5.BackColor = 0
  880.     If CLdata(3, List1.ItemData(Idx1)) <> "" Then
  881.     Pic7.Visible = True
  882.     Label7.Visible = True
  883.     Else
  884.     Pic7.Visible = False
  885.     Label7.Visible = False
  886.     End If
  887. Label6.Caption = "Database dirty"
  888. CLdata(3, List1.ItemData(Idx1)) = Text1(1).Text
  889. End If
  890. If Index = 2 And Pic3.BackColor = 0 Then 'notes dirty
  891. Pic3.BackColor = RGB(192, 192, 192)
  892. Pic5.BackColor = 0
  893.     If CLdata(4, List1.ItemData(Idx1)) <> "" Then
  894.     Pic8.Visible = True
  895.     Label8.Visible = True
  896.     Else
  897.     Pic8.Visible = False
  898.     Label8.Visible = False
  899.     End If
  900. Label6.Caption = "Database dirty"
  901. CLdata(4, List1.ItemData(Idx1)) = Text1(2).Text
  902. End If
  903. If Index = 3 And Pic4.BackColor = 0 Then 'Edit code dirty
  904. Msbox "The Code has been changed !" & vbCr & vbCr & "Do you want to replace the actual Code with the new one ?" & vbCr & vbCr & "Note that the changed Code can not be tested !", Title, mbOKCancel, mbQuestion
  905. Pic4.BackColor = RGB(192, 192, 192)
  906.     If MBReturn = 1 Then 'cancel selected
  907.     Text1(3).Text = CLdata(2, List1.ItemData(Idx1))
  908.     Pic4.BackColor = RGB(192, 192, 192)
  909.     Exit Sub
  910.     End If
  911.     'Ok ! Copy everything
  912.     CLdata(2, List1.ItemData(Idx1)) = Text1(3).Text
  913.     Text1(0).Text = Text1(3).Text
  914.     Pic5.BackColor = 0
  915.     Label6.Caption = "Database dirty"
  916. End If
  917. End Sub
  918. Private Sub SSTab1_Click(PreviousTab As Integer)
  919. T3D CodeLib, Label10, 3, T3dNone
  920. Label10.Caption = " Lines of text: " & GetLineCount(Text1(SSTab1.Tab)) & " "
  921. T3D CodeLib, Label10, 3, T3dRaiseRaise
  922. Pic1.SetFocus
  923. DoEvents
  924. On Error Resume Next
  925. If CLdata(3, List1.ItemData(Idx1)) <> "" Then
  926. Pic7.Visible = True
  927. Label7.Visible = True
  928. Pic7.Visible = False
  929. Label7.Visible = False
  930. End If
  931. If CLdata(4, List1.ItemData(Idx1)) <> "" Then
  932. Pic8.Visible = True
  933. Label8.Visible = True
  934. Pic8.Visible = False
  935. Label8.Visible = False
  936. End If
  937. If SSTab1.Tab <> 0 And Text1(0).Text = "" Then
  938. SSTab1.Tab = 0
  939. Msbox "Cannot acces Help, Notes or Edit !" & vbCr & "There's no Code selected !", Title, mbOkonly, mbInfo
  940. End If
  941. If SSTab1.Tab = 3 Then 'Edit code
  942. Text1(3).SetFocus
  943. End If
  944. End Sub
  945. Private Sub SSTab1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  946. If Label4.Tag <> "" Then Exit Sub
  947. If SSTab1.Tab = 0 Then Label4.Caption = "View Code"
  948. If SSTab1.Tab = 1 Then Label4.Caption = "View/Add/Edit Helpfiles"
  949. If SSTab1.Tab = 2 Then Label4.Caption = "View/Add/Edit Notes"
  950. If SSTab1.Tab = 3 Then Label4.Caption = "Edit Code"
  951. End Sub
  952. Private Sub Text1_Change(Index As Integer)
  953. If Index = 1 Then Pic2.BackColor = 0
  954. If Index = 2 Then Pic3.BackColor = 0
  955. If Index = 3 Then Pic4.BackColor = 0
  956. If Text1(0).Text = "" Then
  957. Label10.Caption = ""
  958. Label10.Caption = " Lines of text: " & GetLineCount(Text1(Index)) & " "
  959. End If
  960. End Sub
  961. Private Sub Text1_GotFocus(Index As Integer)
  962. On Error Resume Next
  963. If Index = 0 Then Pic1.SetFocus
  964. End Sub
  965. Private Sub Text1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  966.    Dim lRetVal As Long
  967.     If Button = vbRightButton Then
  968.         lRetVal = SendMessage(Me.hwnd, WM_RBUTTONDOWN, 0, 0)
  969.   If Index <> 0 Then Exit Sub
  970.   If Text1(0) = "" Then Exit Sub
  971.        Call PopupMenu(mnuCode, 4)
  972.     End If
  973. End Sub
  974. Private Sub Text1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  975. If Label4.Tag <> "" Then Exit Sub
  976. If Index = 0 Then Label4.Caption = "Code Window"
  977. If Index = 1 Then Label4.Caption = "Help Window"
  978. If Index = 2 Then Label4.Caption = "Notes Window"
  979. If Index = 3 Then Label4.Caption = "Edit Code Window"
  980. End Sub
  981. Private Sub Toolbar1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  982. If Label4.Tag <> "" Then Exit Sub
  983. Label4.Caption = ""
  984. If X > 0 And X < 870 Then Label4.Caption = "Save Database"
  985. If X > 885 And X < 1755 Then Label4.Caption = "Print Code/Helpfile"
  986. If X > 1890 And X < 2760 Then Label4.Caption = "Copy to Clipboard"
  987. If X > 2775 And X < 3645 Then Label4.Caption = "Remove Code/Help/Notes"
  988. If X > 3660 And X < 4530 Then Label4.Caption = "Rename selected Code"
  989. If X > 4545 And X < 5415 Then Label4.Caption = "Move selected Code"
  990. If X > 5550 And X < 6420 Then Label4.Caption = "Add new Category"
  991. If X > 6435 And X < 7305 Then Label4.Caption = "Rename selected Category"
  992. If X > 7320 And X < 8190 Then Label4.Caption = "Remove selected Category"
  993. If X > 8325 And X < 9195 Then Label4.Caption = "Search Code/Helpfiles"
  994. If X > 9330 And X < 10200 Then Label4.Caption = "Help on the CodeLib"
  995. End Sub
  996. Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  997. Pic1.SetFocus
  998. DoEvents
  999. Select Case Button.Key
  1000. Case "key3" 'Code to clipboard
  1001. mnuCopyCode_Click
  1002. '---------------------
  1003. Case "key4" 'Delete code
  1004. mnuKillCode_Click
  1005. '---------------------
  1006. Case "key1" 'save database
  1007. If Pic5.BackColor <> 0 Then
  1008. Msbox "The database has not been changed, so there's no need to save it...", Title, mbOkonly, mbInfo
  1009. Exit Sub
  1010. End If
  1011. Msbox "Save the database ?", Title, mbYesNo, mbQuestion
  1012. If MBReturn = 1 Then Exit Sub 'No
  1013. SaveLib
  1014. Pic5.BackColor = RGB(192, 192, 192)
  1015. Label6.Caption = "Database clear"
  1016. '---------------------
  1017. Case "key2" 'print out code
  1018. mnuPrintCod_Click
  1019. '---------------------
  1020. Case "key5" 'new category
  1021. Cat1.Text1.Text = "New Category"
  1022. Cat1.Text1.SelLength = Len(Cat1.Text1.Text)
  1023. Cat1.Command1.Enabled = False
  1024. Cat1.Show 1
  1025. '---------------------
  1026. Case "key6" 'Rename category
  1027. If Label2.Caption = "" Then
  1028. Msbox "No category selected...", Title, mbOkonly, mbInfo
  1029. Exit Sub
  1030. End If
  1031. key62:
  1032. InBox "Rename the category: " & vbCr & Cat(CatIdx), Cat(CatIdx), Title
  1033. If IbReturn = "" Then Exit Sub 'exit
  1034.     For xx = 0 To 99
  1035.     If LCase(Trim(IbReturn)) = LCase(Cat(xx)) Then
  1036.     Msbox "This category already exists !", Title, mbOkonly, mbCritical
  1037.     xx = 99
  1038.     GoTo key62
  1039.     End If
  1040.     Next xx
  1041. Label2.Caption = Format(CatIdx, "00") & "  " & IbReturn
  1042. Cat(CatIdx) = IbReturn
  1043. 'save categories
  1044. On Error GoTo SaveCat2
  1045. ff = FreeFile
  1046. Open App.Path & "\Data\Cat.ini" For Output As #ff
  1047. For xx = 0 To 99
  1048. If Cat(xx) = "" Then Exit For
  1049. Print #ff, Cat(xx)
  1050. Next xx
  1051. Close #ff
  1052. LoadCat
  1053. Exit Sub
  1054. SaveCat2:
  1055. Close #ff
  1056. Msbox "There's an error while" & vbCr & "saving the Category-data..." & vbCr & vbCr & "Error: " & Err & "  " & Err.Description, Title, mbOkonly, mbCritical
  1057. Exit Sub
  1058. '---------------------
  1059. Case "key7" 'rename code
  1060. mnuRenameCode_Click
  1061. '---------------------
  1062. Case "key8" 'Search code
  1063. Search.Show 1
  1064. '---------------------
  1065. Case "key10" 'Move code to another category
  1066. mnuMoveCode_Click
  1067. '---------------------
  1068. Case "key11" 'kill category
  1069. If Label2.Caption = "" Then
  1070. Msbox "No category selected...", Title, mbOkonly, mbInfo
  1071. Exit Sub
  1072. End If
  1073. For xx = 0 To 999
  1074. If CLdata(0, xx) = CatIdx And CLdata(1, xx) <> "" Then
  1075. Msbox "This Category '" & Cat(CatIdx) & "' is not empty. You can only remove empty Categories...", Title, mbOkonly, mbCritical
  1076. Exit Sub
  1077. End If
  1078. Next xx
  1079. Msbox "Are you sure to remove the selected Category '" & Cat(CatIdx) & "' ?", Title, mbYesNo, mbQuestion
  1080. If MBReturn = 1 Then Exit Sub 'No
  1081. Cat(CatIdx) = ""
  1082. 'save categories
  1083. On Error GoTo SaveCat3
  1084. ff = FreeFile
  1085. Open App.Path & "\Data\Cat.ini" For Output As #ff
  1086. For xx = 0 To 99
  1087. 'If Cat(xx) = "" Then Exit For
  1088. Print #ff, Cat(xx)
  1089. Next xx
  1090. Close #ff
  1091. LoadCat
  1092. Label2.Caption = ""
  1093. Label9.Caption = ""
  1094. Exit Sub
  1095. SaveCat3:
  1096. Close #ff
  1097. Msbox "There's an error while" & vbCr & "saving the Category-data..." & vbCr & vbCr & "Error: " & Err & "  " & Err.Description, Title, mbOkonly, mbCritical
  1098. Exit Sub
  1099. '---------------------
  1100. Case "key9" 'Helpfiles
  1101. HelpScreen.Show 1
  1102. End Select
  1103. End Sub
  1104.