home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Flash_And_2153035242009.psc / Flash_Menu_Bar / Form1.frm < prev    next >
Text File  |  2009-05-24  |  2KB  |  75 lines
  1. VERSION 5.00
  2. Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "Flash10b.ocx"
  3. Begin VB.Form Form1 
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    ClientHeight    =   8775
  6.    ClientLeft      =   15
  7.    ClientTop       =   15
  8.    ClientWidth     =   13500
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   8775
  14.    ScaleWidth      =   13500
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin ShockwaveFlashObjectsCtl.ShockwaveFlash Swf1 
  18.       Height          =   8775
  19.       Left            =   0
  20.       TabIndex        =   0
  21.       Top             =   0
  22.       Width           =   13455
  23.       _cx             =   23733
  24.       _cy             =   15478
  25.       FlashVars       =   ""
  26.       Movie           =   "md"
  27.       Src             =   "md"
  28.       WMode           =   "Transparent"
  29.       Play            =   "-1"
  30.       Loop            =   "-1"
  31.       Quality         =   "High"
  32.       SAlign          =   ""
  33.       Menu            =   "-1"
  34.       Base            =   ""
  35.       AllowScriptAccess=   ""
  36.       Scale           =   "ShowAll"
  37.       DeviceFont      =   "0"
  38.       EmbedMovie      =   "0"
  39.       BGColor         =   ""
  40.       SWRemote        =   ""
  41.       MovieData       =   ""
  42.       SeamlessTabbing =   "1"
  43.       Profile         =   "0"
  44.       ProfileAddress  =   ""
  45.       ProfilePort     =   "0"
  46.       AllowNetworking =   "all"
  47.       AllowFullScreen =   "true"
  48.    End
  49. End
  50. Attribute VB_Name = "Form1"
  51. Attribute VB_GlobalNameSpace = False
  52. Attribute VB_Creatable = False
  53. Attribute VB_PredeclaredId = True
  54. Attribute VB_Exposed = False
  55.  
  56. Private Sub Form_Load()
  57.     Swf1.Movie = App.Path & "\MyMenuBar.Swf"
  58.     Me.Top = 500
  59.     Me.Left = 500
  60. End Sub
  61.  
  62. Private Sub Swf1_FSCommand(ByVal command As String, ByVal args As String)
  63.     Select Case command
  64.         Case "Exit"
  65.             If MsgBox("Do you want to exit?", vbQuestion + vbYesNo, "Exit") = vbYes Then
  66.                 Unload Me
  67.             End If
  68.         Case Else
  69.             MsgBox "You clicked on " & UCase(command), vbInformation, "Clicked"
  70.     End Select
  71.     
  72. End Sub
  73.  
  74.  
  75.