home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1999 April / CD_Shareware_Magazine_31.iso / Free / Prg / VertMenu.exe / Test.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-03-26  |  5.7 KB  |  159 lines
  1. VERSION 5.00
  2. Object = "*\AVertMenu.vbp"
  3. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.1#0"; "RICHTX32.OCX"
  4. Begin VB.Form Form1 
  5.    Caption         =   "Vertical Menu Demonstration - View KnowledgeBase Articles"
  6.    ClientHeight    =   6615
  7.    ClientLeft      =   1800
  8.    ClientTop       =   2595
  9.    ClientWidth     =   10575
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   441
  12.    ScaleMode       =   3  'Pixel
  13.    ScaleWidth      =   705
  14.    Begin VertMenu.VerticalMenu VerticalMenu1 
  15.       Height          =   6225
  16.       Left            =   180
  17.       TabIndex        =   0
  18.       Top             =   180
  19.       Width           =   1410
  20.       _ExtentX        =   2487
  21.       _ExtentY        =   10980
  22.       MenusMax        =   4
  23.       MenuCaption1    =   "Fixes"
  24.       MenuItemsMax1   =   7
  25.       MenuItemIcon11  =   "Test.frx":0000
  26.       MenuItemCaption11=   "Q100190"
  27.       MenuItemIcon12  =   "Test.frx":031A
  28.       MenuItemCaption12=   "Q100367"
  29.       MenuItemIcon13  =   "Test.frx":0634
  30.       MenuItemCaption13=   "Q101257"
  31.       MenuItemIcon14  =   "Test.frx":094E
  32.       MenuItemCaption14=   "Q113281"
  33.       MenuItemIcon15  =   "Test.frx":0C68
  34.       MenuItemCaption15=   "Q74517"
  35.       MenuItemIcon16  =   "Test.frx":0F82
  36.       MenuItemCaption16=   "Q84475"
  37.       MenuItemIcon17  =   "Test.frx":129C
  38.       MenuItemCaption17=   "Q93436"
  39.       MenuCaption2    =   "Problems"
  40.       MenuItemsMax2   =   5
  41.       MenuItemIcon21  =   "Test.frx":15B6
  42.       MenuItemCaption21=   "Q79094"
  43.       MenuItemIcon22  =   "Test.frx":18D0
  44.       MenuItemCaption22=   "Q79599"
  45.       MenuItemIcon23  =   "Test.frx":1BEA
  46.       MenuItemCaption23=   "Q82157"
  47.       MenuItemIcon24  =   "Test.frx":1F04
  48.       MenuItemCaption24=   "Q80645"
  49.       MenuItemIcon25  =   "Test.frx":221E
  50.       MenuItemCaption25=   "Q84483"
  51.       MenuCaption3    =   "Bugs"
  52.       MenuItemsMax3   =   6
  53.       MenuItemIcon31  =   "Test.frx":2538
  54.       MenuItemCaption31=   "Q100193"
  55.       MenuItemIcon32  =   "Test.frx":2852
  56.       MenuItemCaption32=   "Q115779"
  57.       MenuItemIcon33  =   "Test.frx":2B6C
  58.       MenuItemCaption33=   "Q139567"
  59.       MenuItemIcon34  =   "Test.frx":2E86
  60.       MenuItemCaption34=   "Q145618"
  61.       MenuItemIcon35  =   "Test.frx":31A0
  62.       MenuItemCaption35=   "Q76520"
  63.       MenuItemIcon36  =   "Test.frx":34BA
  64.       MenuItemCaption36=   "Q77393"
  65.       MenuCaption4    =   "Programs"
  66.       MenuItemsMax4   =   4
  67.       MenuItemIcon41  =   "Test.frx":37D4
  68.       MenuItemCaption41=   "Calculator"
  69.       MenuItemIcon42  =   "Test.frx":3AEE
  70.       MenuItemCaption42=   "Clock"
  71.       MenuItemIcon43  =   "Test.frx":3E08
  72.       MenuItemCaption43=   "Notepad"
  73.       MenuItemIcon44  =   "Test.frx":4122
  74.       MenuItemCaption44=   "Paint"
  75.    End
  76.    Begin RichTextLib.RichTextBox RichTextBox1 
  77.       Height          =   6225
  78.       Left            =   1755
  79.       TabIndex        =   1
  80.       Top             =   180
  81.       Width           =   8700
  82.       _ExtentX        =   15346
  83.       _ExtentY        =   10980
  84.       _Version        =   327680
  85.       Enabled         =   -1  'True
  86.       ScrollBars      =   3
  87.       DisableNoScroll =   -1  'True
  88.       TextRTF         =   $"Test.frx":443C
  89.    End
  90. Attribute VB_Name = "Form1"
  91. Attribute VB_GlobalNameSpace = False
  92. Attribute VB_Creatable = False
  93. Attribute VB_PredeclaredId = True
  94. Attribute VB_Exposed = False
  95. Option Explicit
  96. Private Sub VerticalMenu1_MenuItemClick(MenuNumber As Long, MenuItem As Long)
  97.     Dim Path As String
  98.     On Error Resume Next
  99.     Path = App.Path & "\"
  100.     Select Case MenuNumber
  101.         Case 1
  102.             Select Case MenuItem
  103.                 Case 1
  104.                     RichTextBox1.filename = Path & "Q100190.rtf"
  105.                 Case 2
  106.                     RichTextBox1.filename = Path & "Q100367.rtf"
  107.                 Case 3
  108.                     RichTextBox1.filename = Path & "Q101257.rtf"
  109.                 Case 4
  110.                     RichTextBox1.filename = Path & "Q113281.rtf"
  111.                 Case 5
  112.                     RichTextBox1.filename = Path & "Q74517.rtf"
  113.                 Case 6
  114.                     RichTextBox1.filename = Path & "Q84475.rtf"
  115.                 Case 7
  116.                     RichTextBox1.filename = Path & "Q93436.rtf"
  117.             End Select
  118.         Case 2
  119.             Select Case MenuItem
  120.                 Case 1
  121.                     RichTextBox1.filename = Path & "Q79094.rtf"
  122.                 Case 2
  123.                     RichTextBox1.filename = Path & "Q79599.rtf"
  124.                 Case 3
  125.                     RichTextBox1.filename = Path & "Q82157.rtf"
  126.                 Case 4
  127.                     RichTextBox1.filename = Path & "Q80645.rtf"
  128.                 Case 5
  129.                     RichTextBox1.filename = Path & "Q84483.rtf"
  130.             End Select
  131.         Case 3
  132.             Select Case MenuItem
  133.                 Case 1
  134.                     RichTextBox1.filename = Path & "Q100193.rtf"
  135.                 Case 2
  136.                     RichTextBox1.filename = Path & "Q115779.rtf"
  137.                 Case 3
  138.                     RichTextBox1.filename = Path & "Q139567.rtf"
  139.                 Case 4
  140.                     RichTextBox1.filename = Path & "Q145618.rtf"
  141.                 Case 5
  142.                     RichTextBox1.filename = Path & "Q76520.rtf"
  143.                 Case 6
  144.                     RichTextBox1.filename = Path & "Q77393.rtf"
  145.             End Select
  146.         Case 4
  147.             Select Case MenuItem
  148.                 Case 1
  149.                     Shell "calc.exe", vbNormalFocus
  150.                 Case 2
  151.                     Shell "clock.exe", vbNormalFocus
  152.                 Case 3
  153.                     Shell "notepad.exe", vbNormalFocus
  154.                 Case 4
  155.                     Shell "mspaint.exe", vbNormalFocus
  156.             End Select
  157.     End Select
  158. End Sub
  159.