home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD8744882000.psc / Screen.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  2000-08-08  |  4.1 KB  |  115 lines
  1. VERSION 5.00
  2. Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "swflash.ocx"
  3. Begin VB.Form frmScreen 
  4.    BackColor       =   &H00000000&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "Form1"
  7.    ClientHeight    =   5325
  8.    ClientLeft      =   0
  9.    ClientTop       =   0
  10.    ClientWidth     =   6195
  11.    DrawMode        =   4  'Mask Not Pen
  12.    DrawWidth       =   2
  13.    KeyPreview      =   -1  'True
  14.    LinkTopic       =   "Form1"
  15.    ScaleHeight     =   5325
  16.    ScaleWidth      =   6195
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   3  'Windows Default
  19.    WindowState     =   2  'Maximized
  20.    Begin ShockwaveFlashObjectsCtl.ShockwaveFlash Flash 
  21.       Height          =   1455
  22.       Left            =   180
  23.       TabIndex        =   0
  24.       Top             =   420
  25.       Width           =   1935
  26.       _cx             =   4197717
  27.       _cy             =   4196870
  28.       Movie           =   ""
  29.       Src             =   ""
  30.       WMode           =   "Opaque"
  31.       Play            =   -1  'True
  32.       Loop            =   -1  'True
  33.       Quality         =   "Low"
  34.       SAlign          =   ""
  35.       Menu            =   -1  'True
  36.       Base            =   ""
  37.       Scale           =   "ShowAll"
  38.       DeviceFont      =   0   'False
  39.       EmbedMovie      =   0   'False
  40.       BGColor         =   "000000"
  41.       SWRemote        =   ""
  42.    End
  43. Attribute VB_Name = "frmScreen"
  44. Attribute VB_GlobalNameSpace = False
  45. Attribute VB_Creatable = False
  46. Attribute VB_PredeclaredId = True
  47. Attribute VB_Exposed = False
  48. '==================================================================================
  49. '   R
  50. alisation de Fr
  51. ric Just
  52. '   Commentaires remarques et critiques :
  53. '   adresse en cours    : fred.just@free.fr
  54. '   site actuel         : http://fred.just.free.fr/
  55. '   adresse de secours  : fredjust@hotmail.com
  56. '==================================================================================
  57. Option Explicit
  58. '===============================================================================
  59. '===============================================================================
  60. Private Sub Form_KeyPress(KeyAscii As Integer)
  61.     If KeyAscii = 27 Then Unload Me
  62. End Sub
  63. '===============================================================================
  64. '===============================================================================
  65. Private Sub Form_Load()
  66.     Flash.BackgroundColor = GetSetting("FlashSaver", "Option", "BackColor", 0)
  67.     Flash.Quality2 = GetSetting("FlashSaver", "Option", "Quality", "High")
  68.     With Flash
  69.         .TOp = 0
  70.         .Left = 0
  71.         .Width = Me.ScaleWidth
  72.         .Height = Me.ScaleHeight
  73.     End With
  74.     PlayFlashMovie GetSetting("FlashSaver", "File", "Anim", App.Path & "\plane.swf")
  75. End Sub
  76. '===============================================================================
  77. '===============================================================================
  78. Private Sub Form_Resize()
  79.     With Flash
  80.         .TOp = 0
  81.         .Left = 0
  82.         .Width = Me.ScaleWidth
  83.         .Height = Me.ScaleHeight
  84.     End With
  85. '    With lblUp
  86. '        .TOp = 0
  87. '        .Left = 0
  88. '        .Width = Me.ScaleWidth
  89. '        .Height = Me.ScaleHeight
  90. '    End With
  91. End Sub
  92. '===============================================================================
  93. '===============================================================================
  94. Private Sub Form_Unload(Cancel As Integer)
  95.     ShowCursor True
  96. End Sub
  97. '===============================================================================
  98. '===============================================================================
  99. Private Function PlayFlashMovie(Filename As String)
  100.     With Flash
  101.         .Movie = Filename
  102.         .Play
  103.     End With
  104. End Function
  105. 'Private Sub lblUp_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  106. '    Unload Me
  107. 'End Sub
  108. 'Private Sub lblUp_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  109. '    Static NumMove As Long
  110. '    NumMove = NumMove + 1
  111. '    If NumMove > 10 Then
  112. '        Unload Me
  113. '    End If
  114. 'End Sub
  115.