home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD66196102000.psc / frmTest2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-06-10  |  2.2 KB  |  70 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form frmTest2 
  4.    Caption         =   "Test Form II"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   165
  7.    ClientTop       =   735
  8.    ClientWidth     =   4680
  9.    ForeColor       =   &H00008000&
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3195
  12.    ScaleWidth      =   4680
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin MSComctlLib.ImageList ImageList 
  15.       Left            =   2760
  16.       Top             =   240
  17.       _ExtentX        =   1005
  18.       _ExtentY        =   1005
  19.       BackColor       =   -2147483643
  20.       ImageWidth      =   16
  21.       ImageHeight     =   16
  22.       MaskColor       =   12632256
  23.       _Version        =   393216
  24.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  25.          NumListImages   =   1
  26.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  27.             Picture         =   "frmTest2.frx":0000
  28.             Key             =   ""
  29.             Object.Tag             =   "&Quit"
  30.          EndProperty
  31.       EndProperty
  32.    End
  33.    Begin VB.Menu mnuFile 
  34.       Caption         =   "File"
  35.       Begin VB.Menu mnuNew 
  36.          Caption         =   "&New"
  37.          Shortcut        =   ^N
  38.       End
  39.       Begin VB.Menu mnuLine 
  40.          Caption         =   "-"
  41.       End
  42.       Begin VB.Menu mnuQuit 
  43.          Caption         =   "&Quit"
  44.          Shortcut        =   ^Q
  45.       End
  46.    End
  47. Attribute VB_Name = "frmTest2"
  48. Attribute VB_GlobalNameSpace = False
  49. Attribute VB_Creatable = False
  50. Attribute VB_PredeclaredId = True
  51. Attribute VB_Exposed = False
  52. '''''''''''''''''''''''''''''''''''''''''''''''''''''
  53. '''''''''''''''''''''''''''''''''''''''''''''''''''''
  54. ''  frmTest2 Form
  55. ''  Copyright Olivier Martin 2000
  56. ''  martin.olivier@bigfoot.com
  57. ''  This form tests CoolMenu's functionality
  58. '''''''''''''''''''''''''''''''''''''''''''''''''''''
  59. '''''''''''''''''''''''''''''''''''''''''''''''''''''
  60. Option Explicit
  61. Private Sub Form_Load()
  62.   Call mCoolMenu.Install(Me.hWnd, , ImageList, True, True)
  63. End Sub
  64. Private Sub Form_Unload(Cancel As Integer)
  65.   Call mCoolMenu.Uninstall(Me.hWnd)
  66. End Sub
  67. Private Sub mnuQuit_Click()
  68.   Unload Me
  69. End Sub
  70.