home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / flasha1a / frmabout.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-10-11  |  4.2 KB  |  137 lines
  1. VERSION 5.00
  2. Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "SWFLASH.OCX"
  3. Begin VB.Form frmAbout 
  4.    BackColor       =   &H00000000&
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   3135
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   4095
  10.    ForeColor       =   &H00E0E0E0&
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3135
  13.    ScaleWidth      =   4095
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin ShockwaveFlashObjectsCtl.ShockwaveFlash Flash2 
  16.       Height          =   1455
  17.       Left            =   480
  18.       TabIndex        =   1
  19.       Top             =   1440
  20.       Width           =   3135
  21.       _cx             =   5530
  22.       _cy             =   2566
  23.       Movie           =   "c:\programming\flashabout\2.swf"
  24.       Src             =   "c:\programming\flashabout\2.swf"
  25.       WMode           =   "Window"
  26.       Play            =   -1  'True
  27.       Loop            =   -1  'True
  28.       Quality         =   "High"
  29.       SAlign          =   ""
  30.       Menu            =   -1  'True
  31.       Base            =   ""
  32.       Scale           =   "ShowAll"
  33.       DeviceFont      =   0   'False
  34.       EmbedMovie      =   0   'False
  35.       BGColor         =   ""
  36.       SWRemote        =   ""
  37.    End
  38.    Begin ShockwaveFlashObjectsCtl.ShockwaveFlash Flash1 
  39.       Height          =   975
  40.       Left            =   600
  41.       TabIndex        =   0
  42.       Top             =   240
  43.       Width           =   2895
  44.       _cx             =   4199410
  45.       _cy             =   4196024
  46.       Movie           =   "c:\programming\flashabout\1.swf"
  47.       Src             =   "c:\programming\flashabout\1.swf"
  48.       WMode           =   "Window"
  49.       Play            =   -1  'True
  50.       Loop            =   -1  'True
  51.       Quality         =   "High"
  52.       SAlign          =   ""
  53.       Menu            =   -1  'True
  54.       Base            =   ""
  55.       Scale           =   "ShowAll"
  56.       DeviceFont      =   0   'False
  57.       EmbedMovie      =   0   'False
  58.       BGColor         =   ""
  59.       SWRemote        =   ""
  60.    End
  61.    Begin VB.Line Line9 
  62.       BorderColor     =   &H00FFFFFF&
  63.       X1              =   240
  64.       X2              =   3840
  65.       Y1              =   3000
  66.       Y2              =   3000
  67.    End
  68.    Begin VB.Line Line8 
  69.       BorderColor     =   &H00FFFFFF&
  70.       X1              =   3840
  71.       X2              =   3840
  72.       Y1              =   720
  73.       Y2              =   3000
  74.    End
  75.    Begin VB.Line Line7 
  76.       BorderColor     =   &H00FFFFFF&
  77.       X1              =   240
  78.       X2              =   240
  79.       Y1              =   720
  80.       Y2              =   3000
  81.    End
  82.    Begin VB.Line Line6 
  83.       BorderColor     =   &H00FFFFFF&
  84.       X1              =   3840
  85.       X2              =   3600
  86.       Y1              =   720
  87.       Y2              =   720
  88.    End
  89.    Begin VB.Line Line5 
  90.       BorderColor     =   &H00FFFFFF&
  91.       X1              =   480
  92.       X2              =   240
  93.       Y1              =   720
  94.       Y2              =   720
  95.    End
  96.    Begin VB.Line Line4 
  97.       BorderColor     =   &H00FFFFFF&
  98.       X1              =   480
  99.       X2              =   3600
  100.       Y1              =   1320
  101.       Y2              =   1320
  102.    End
  103.    Begin VB.Line Line3 
  104.       BorderColor     =   &H00FFFFFF&
  105.       X1              =   480
  106.       X2              =   3600
  107.       Y1              =   120
  108.       Y2              =   120
  109.    End
  110.    Begin VB.Line Line2 
  111.       BorderColor     =   &H00FFFFFF&
  112.       X1              =   3600
  113.       X2              =   3600
  114.       Y1              =   120
  115.       Y2              =   1320
  116.    End
  117.    Begin VB.Line Line1 
  118.       BorderColor     =   &H00FFFFFF&
  119.       X1              =   480
  120.       X2              =   480
  121.       Y1              =   120
  122.       Y2              =   1320
  123.    End
  124. Attribute VB_Name = "frmAbout"
  125. Attribute VB_GlobalNameSpace = False
  126. Attribute VB_Creatable = False
  127. Attribute VB_PredeclaredId = True
  128. Attribute VB_Exposed = False
  129. Private Sub Flash1_FSCommand(ByVal command As String, ByVal args As String)
  130.     Select Case command
  131.     End Select
  132. End Sub
  133. Private Sub Form_Load()
  134.     Flash1.Movie = App.Path & "\1.swf"
  135.     Flash2.Movie = App.Path & "\2.swf"
  136. End Sub
  137.