home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / ActiveX Controlls / XP Suite / DATA1.CAB / XP_Command_Button_Sample_Files / Form5.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2003-04-24  |  16.9 KB  |  473 lines
  1. VERSION 5.00
  2. Object = "{083C8784-F106-4CC2-9930-876218A6B74C}#1.1#0"; "ciaXPButton.ocx"
  3. Object = "{506637F7-8E95-462C-A587-891B4935F57D}#1.0#0"; "ciaXPPanel.ocx"
  4. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  5. Object = "{CF5AF5C7-0AF7-4B49-9CE9-2CD700C0995F}#1.0#0"; "ciaXPPopupMenu.ocx"
  6. Begin VB.Form Form5 
  7.    Caption         =   "Form5"
  8.    ClientHeight    =   3390
  9.    ClientLeft      =   60
  10.    ClientTop       =   450
  11.    ClientWidth     =   8580
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   3390
  14.    ScaleWidth      =   8580
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin ciaXPPopupMenu.XPMenu XPMenu1 
  17.       Left            =   150
  18.       Top             =   1860
  19.       _ExtentX        =   847
  20.       _ExtentY        =   820
  21.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  22.          Name            =   "MS Sans Serif"
  23.          Size            =   8.25
  24.          Charset         =   0
  25.          Weight          =   400
  26.          Underline       =   0   'False
  27.          Italic          =   0   'False
  28.          Strikethrough   =   0   'False
  29.       EndProperty
  30.    End
  31.    Begin MSComctlLib.ImageList ImageList1 
  32.       Left            =   75
  33.       Top             =   1140
  34.       _ExtentX        =   1005
  35.       _ExtentY        =   1005
  36.       BackColor       =   -2147483643
  37.       ImageWidth      =   16
  38.       ImageHeight     =   16
  39.       MaskColor       =   12632256
  40.       _Version        =   393216
  41.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  42.          NumListImages   =   12
  43.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  44.             Picture         =   "Form5.frx":0000
  45.             Key             =   ""
  46.          EndProperty
  47.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  48.             Picture         =   "Form5.frx":055A
  49.             Key             =   ""
  50.          EndProperty
  51.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  52.             Picture         =   "Form5.frx":0AB4
  53.             Key             =   ""
  54.          EndProperty
  55.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  56.             Picture         =   "Form5.frx":100E
  57.             Key             =   ""
  58.          EndProperty
  59.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  60.             Picture         =   "Form5.frx":1568
  61.             Key             =   ""
  62.          EndProperty
  63.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  64.             Picture         =   "Form5.frx":212A
  65.             Key             =   ""
  66.          EndProperty
  67.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  68.             Picture         =   "Form5.frx":2684
  69.             Key             =   ""
  70.          EndProperty
  71.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  72.             Picture         =   "Form5.frx":2BDE
  73.             Key             =   ""
  74.          EndProperty
  75.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  76.             Picture         =   "Form5.frx":3138
  77.             Key             =   ""
  78.          EndProperty
  79.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  80.             Picture         =   "Form5.frx":3692
  81.             Key             =   ""
  82.          EndProperty
  83.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  84.             Picture         =   "Form5.frx":3BEC
  85.             Key             =   ""
  86.          EndProperty
  87.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  88.             Picture         =   "Form5.frx":4146
  89.             Key             =   ""
  90.          EndProperty
  91.       EndProperty
  92.    End
  93.    Begin ciaXPPanel.XPPanel XPPanel1 
  94.       Align           =   1  'Align Top
  95.       Height          =   885
  96.       Left            =   0
  97.       TabIndex        =   0
  98.       Top             =   0
  99.       Width           =   8580
  100.       _ExtentX        =   15134
  101.       _ExtentY        =   1561
  102.       Begin ciaXPButton.XPButton XPButton1 
  103.          Height          =   750
  104.          Index           =   0
  105.          Left            =   60
  106.          TabIndex        =   1
  107.          Top             =   45
  108.          Width           =   960
  109.          _ExtentX        =   1693
  110.          _ExtentY        =   1323
  111.          Caption         =   ""
  112.          ButtonStyle     =   2
  113.          Picture         =   "Form5.frx":46A0
  114.          PictureWidth    =   38
  115.          PictureHeight   =   45
  116.          PictureSize     =   2
  117.          OriginalPicSizeW=   38
  118.          OriginalPicSizeH=   45
  119.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  120.             Name            =   "MS Sans Serif"
  121.             Size            =   8.25
  122.             Charset         =   0
  123.             Weight          =   400
  124.             Underline       =   0   'False
  125.             Italic          =   0   'False
  126.             Strikethrough   =   0   'False
  127.          EndProperty
  128.          XPShowBorderAlways=   -1  'True
  129.          MaskColor       =   16711935
  130.          BackStyle       =   0
  131.          DropDown        =   -1  'True
  132.       End
  133.       Begin ciaXPButton.XPButton XPButton1 
  134.          Height          =   750
  135.          Index           =   1
  136.          Left            =   7005
  137.          TabIndex        =   2
  138.          Top             =   45
  139.          Width           =   1020
  140.          _ExtentX        =   1799
  141.          _ExtentY        =   1323
  142.          Caption         =   ""
  143.          ButtonStyle     =   2
  144.          Picture         =   "Form5.frx":5B56
  145.          PictureWidth    =   47
  146.          PictureHeight   =   48
  147.          PictureSize     =   2
  148.          OriginalPicSizeW=   47
  149.          OriginalPicSizeH=   48
  150.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  151.             Name            =   "MS Sans Serif"
  152.             Size            =   8.25
  153.             Charset         =   0
  154.             Weight          =   400
  155.             Underline       =   0   'False
  156.             Italic          =   0   'False
  157.             Strikethrough   =   0   'False
  158.          EndProperty
  159.          XPShowBorderAlways=   -1  'True
  160.          MaskColor       =   16711935
  161.          BackStyle       =   0
  162.          DropDown        =   -1  'True
  163.       End
  164.       Begin ciaXPButton.XPButton XPButton1 
  165.          Height          =   750
  166.          Index           =   2
  167.          Left            =   5985
  168.          TabIndex        =   3
  169.          Top             =   45
  170.          Width           =   1005
  171.          _ExtentX        =   1773
  172.          _ExtentY        =   1323
  173.          Caption         =   ""
  174.          ButtonStyle     =   2
  175.          Picture         =   "Form5.frx":76A8
  176.          PictureWidth    =   47
  177.          PictureHeight   =   48
  178.          PictureSize     =   2
  179.          OriginalPicSizeW=   47
  180.          OriginalPicSizeH=   48
  181.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  182.             Name            =   "MS Sans Serif"
  183.             Size            =   8.25
  184.             Charset         =   0
  185.             Weight          =   400
  186.             Underline       =   0   'False
  187.             Italic          =   0   'False
  188.             Strikethrough   =   0   'False
  189.          EndProperty
  190.          XPShowBorderAlways=   -1  'True
  191.          MaskColor       =   16711935
  192.          BackStyle       =   0
  193.          DropDown        =   -1  'True
  194.       End
  195.       Begin ciaXPButton.XPButton XPButton1 
  196.          Height          =   750
  197.          Index           =   3
  198.          Left            =   4950
  199.          TabIndex        =   4
  200.          Top             =   45
  201.          Width           =   735
  202.          _ExtentX        =   1296
  203.          _ExtentY        =   1323
  204.          Caption         =   ""
  205.          ButtonStyle     =   2
  206.          Picture         =   "Form5.frx":91FA
  207.          PictureWidth    =   45
  208.          PictureHeight   =   46
  209.          PictureSize     =   2
  210.          OriginalPicSizeW=   45
  211.          OriginalPicSizeH=   46
  212.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  213.             Name            =   "MS Sans Serif"
  214.             Size            =   8.25
  215.             Charset         =   0
  216.             Weight          =   400
  217.             Underline       =   0   'False
  218.             Italic          =   0   'False
  219.             Strikethrough   =   0   'False
  220.          EndProperty
  221.          XPShowBorderAlways=   -1  'True
  222.          MaskColor       =   16711935
  223.          BackStyle       =   0
  224.       End
  225.       Begin ciaXPButton.XPButton XPButton1 
  226.          Height          =   750
  227.          Index           =   4
  228.          Left            =   4200
  229.          TabIndex        =   5
  230.          Top             =   45
  231.          Width           =   735
  232.          _ExtentX        =   1296
  233.          _ExtentY        =   1323
  234.          Caption         =   ""
  235.          ButtonStyle     =   2
  236.          Picture         =   "Form5.frx":AABC
  237.          PictureWidth    =   47
  238.          PictureHeight   =   46
  239.          PictureSize     =   2
  240.          OriginalPicSizeW=   47
  241.          OriginalPicSizeH=   46
  242.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  243.             Name            =   "MS Sans Serif"
  244.             Size            =   8.25
  245.             Charset         =   0
  246.             Weight          =   400
  247.             Underline       =   0   'False
  248.             Italic          =   0   'False
  249.             Strikethrough   =   0   'False
  250.          EndProperty
  251.          XPShowBorderAlways=   -1  'True
  252.          MaskColor       =   16711935
  253.          BackStyle       =   0
  254.       End
  255.       Begin ciaXPButton.XPButton XPButton1 
  256.          Height          =   750
  257.          Index           =   5
  258.          Left            =   3450
  259.          TabIndex        =   6
  260.          Top             =   45
  261.          Width           =   735
  262.          _ExtentX        =   1296
  263.          _ExtentY        =   1323
  264.          Caption         =   ""
  265.          ButtonStyle     =   2
  266.          Picture         =   "Form5.frx":C4EE
  267.          PictureWidth    =   47
  268.          PictureHeight   =   46
  269.          PictureSize     =   2
  270.          OriginalPicSizeW=   47
  271.          OriginalPicSizeH=   46
  272.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  273.             Name            =   "MS Sans Serif"
  274.             Size            =   8.25
  275.             Charset         =   0
  276.             Weight          =   400
  277.             Underline       =   0   'False
  278.             Italic          =   0   'False
  279.             Strikethrough   =   0   'False
  280.          EndProperty
  281.          XPShowBorderAlways=   -1  'True
  282.          MaskColor       =   16711935
  283.          BackStyle       =   0
  284.       End
  285.       Begin ciaXPButton.XPButton XPButton1 
  286.          Height          =   750
  287.          Index           =   6
  288.          Left            =   2070
  289.          TabIndex        =   7
  290.          Top             =   45
  291.          Width           =   1080
  292.          _ExtentX        =   1905
  293.          _ExtentY        =   1323
  294.          Caption         =   ""
  295.          ButtonStyle     =   2
  296.          Picture         =   "Form5.frx":DF20
  297.          PictureWidth    =   48
  298.          PictureHeight   =   45
  299.          PictureSize     =   2
  300.          OriginalPicSizeW=   48
  301.          OriginalPicSizeH=   45
  302.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  303.             Name            =   "MS Sans Serif"
  304.             Size            =   8.25
  305.             Charset         =   0
  306.             Weight          =   400
  307.             Underline       =   0   'False
  308.             Italic          =   0   'False
  309.             Strikethrough   =   0   'False
  310.          EndProperty
  311.          XPShowBorderAlways=   -1  'True
  312.          MaskColor       =   16711935
  313.          BackStyle       =   0
  314.          DropDown        =   -1  'True
  315.       End
  316.       Begin ciaXPButton.XPButton XPButton1 
  317.          Height          =   750
  318.          Index           =   7
  319.          Left            =   1035
  320.          TabIndex        =   8
  321.          Top             =   45
  322.          Width           =   1020
  323.          _ExtentX        =   1799
  324.          _ExtentY        =   1323
  325.          Caption         =   ""
  326.          ButtonStyle     =   2
  327.          Picture         =   "Form5.frx":F8C2
  328.          PictureWidth    =   48
  329.          PictureHeight   =   47
  330.          PictureSize     =   2
  331.          OriginalPicSizeW=   48
  332.          OriginalPicSizeH=   47
  333.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  334.             Name            =   "MS Sans Serif"
  335.             Size            =   8.25
  336.             Charset         =   0
  337.             Weight          =   400
  338.             Underline       =   0   'False
  339.             Italic          =   0   'False
  340.             Strikethrough   =   0   'False
  341.          EndProperty
  342.          XPShowBorderAlways=   -1  'True
  343.          MaskColor       =   16711935
  344.          BackStyle       =   0
  345.          DropDown        =   -1  'True
  346.       End
  347.    End
  348.    Begin ciaXPButton.XPButton ciaButton10 
  349.       Height          =   360
  350.       Left            =   7305
  351.       TabIndex        =   10
  352.       Top             =   2940
  353.       Width           =   1065
  354.       _ExtentX        =   1879
  355.       _ExtentY        =   635
  356.       Caption         =   "Exit"
  357.       OriginalPicSizeW=   0
  358.       OriginalPicSizeH=   0
  359.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  360.          Name            =   "MS Sans Serif"
  361.          Size            =   8.25
  362.          Charset         =   0
  363.          Weight          =   400
  364.          Underline       =   0   'False
  365.          Italic          =   0   'False
  366.          Strikethrough   =   0   'False
  367.       EndProperty
  368.       MouseIcon       =   "Form5.frx":11384
  369.       MousePointer    =   99
  370.    End
  371.    Begin ciaXPButton.XPButton ciaButton9 
  372.       Height          =   360
  373.       Left            =   6180
  374.       TabIndex        =   11
  375.       Top             =   2940
  376.       Width           =   1065
  377.       _ExtentX        =   1879
  378.       _ExtentY        =   635
  379.       Caption         =   "Next >>"
  380.       OriginalPicSizeW=   0
  381.       OriginalPicSizeH=   0
  382.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  383.          Name            =   "MS Sans Serif"
  384.          Size            =   8.25
  385.          Charset         =   0
  386.          Weight          =   400
  387.          Underline       =   0   'False
  388.          Italic          =   0   'False
  389.          Strikethrough   =   0   'False
  390.       EndProperty
  391.       MouseIcon       =   "Form5.frx":1169E
  392.       MousePointer    =   99
  393.    End
  394.    Begin VB.Label Label1 
  395.       Caption         =   $"Form5.frx":119B8
  396.       Height          =   705
  397.       Left            =   1140
  398.       TabIndex        =   9
  399.       Top             =   1095
  400.       Width           =   6870
  401.    End
  402. Attribute VB_Name = "Form5"
  403. Attribute VB_GlobalNameSpace = False
  404. Attribute VB_Creatable = False
  405. Attribute VB_PredeclaredId = True
  406. Attribute VB_Exposed = False
  407. Private Type POINTAPI
  408.         X As Long
  409.         Y As Long
  410. End Type
  411. Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  412. Dim Menu1 As XPMenuLib
  413. Dim subMenu1 As XPMenuLib
  414. Dim subMenu2 As XPMenuLib
  415. Dim subMenu3 As XPMenuLib
  416. Private Sub ciaButton10_Click()
  417. End Sub
  418. Private Sub ciaButton9_Click()
  419. Form6.Show
  420. Unload Me
  421. End Sub
  422. Private Sub Form_Load()
  423. XPMenu1.SetImageList ImageList1
  424. Set Menu1 = XPMenu1.AddMenu("Menu1")
  425. Set subMenu1 = XPMenu1.AddMenu("subMenu1")
  426. Set subMenu2 = XPMenu1.AddMenu("subMenu2")
  427. Set subMenu3 = XPMenu1.AddMenu("subMenu3")
  428. With subMenu3
  429.     .AddItem 10, "Toggle Operator Certification", menuTextItem
  430.     .AddItem 0, "Edit Certification Tables", menuTextItem
  431.     .AddItem 9, "View Who's Certified", menuTextItem
  432. End With
  433. With subMenu2
  434.     .AddItem 10, "Toggle Security", menuTextItem
  435.     .AddItem 0, "Edit Security Access", menuTextItem
  436.     .AddItem 9, "View Security Log-Ins", menuSubMenu, , , , , , subMenu3
  437. End With
  438. With subMenu1
  439.     .AddItem 10, "ISO Document", menuTextItem
  440.     .AddItem 0, "CAD Drawing", menuSubMenu, , , , , , subMenu2
  441.     .AddItem 9, "Historical Database ", menuTextItem
  442. End With
  443. With Menu1
  444.     .AddItem 10, "New", menuSubMenu, , , , , , subMenu1
  445.     .AddItem 3, "Open", menuTextItem
  446.     .AddItem 0, "", menuSeperator
  447.     .AddItem 0, "Save", menuTextItem
  448.     .AddItem 0, "Save As", menuTextItem
  449.     .AddItem 0, "", menuSeperator
  450.     .AddItem 1, "Exit", menuTextItem
  451. End With
  452. Me.Move (Screen.Width - Me.ScaleWidth) \ 2, (Screen.Height - Me.ScaleHeight) \ 2
  453. End Sub
  454. Private Sub Form_Unload(Cancel As Integer)
  455. Set Menu1 = Nothing
  456. Set subMenu1 = Nothing
  457. Set subMenu2 = Nothing
  458. Set subMenu3 = Nothing
  459. End Sub
  460. Private Sub XPButton1_Click(Index As Integer)
  461. Select Case Index
  462.     Case 3, 4, 5
  463.         MsgBox "Button ID = " & Index
  464. End Select
  465. End Sub
  466. Private Sub XPButton1_DropDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  467. Dim pos As POINTAPI
  468. GetCursorPos pos
  469. XPMenu1.ShowMenu "Menu1", pos.X, pos.Y, TopCenter
  470. End Sub
  471. Private Sub XPMenu1_Click(menuName As String, itemNum As Integer, itemText As String)
  472. End Sub
  473.