home *** CD-ROM | disk | FTP | other *** search
/ Virtual St-Petersburg / VirtualSaint-Petersburg.iso / vivat / tasks / intro / introwin.frm < prev    next >
Text File  |  1996-09-03  |  4KB  |  167 lines
  1. VERSION 2.00
  2. Begin Form IntroWindow 
  3.    BorderStyle     =   0  'None
  4.    ClientHeight    =   2310
  5.    ClientLeft      =   1320
  6.    ClientTop       =   1665
  7.    ClientWidth     =   3825
  8.    ControlBox      =   0   'False
  9.    Height          =   2805
  10.    Icon            =   INTROWIN.FRX:0000
  11.    Left            =   1215
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   154
  16.    ScaleMode       =   3  'Pixel
  17.    ScaleWidth      =   255
  18.    Top             =   1275
  19.    Width           =   4035
  20.    Begin MMControl Sound 
  21.       BackVisible     =   0   'False
  22.       EjectVisible    =   0   'False
  23.       Height          =   720
  24.       Left            =   1785
  25.       NextVisible     =   0   'False
  26.       PauseVisible    =   0   'False
  27.       PlayVisible     =   0   'False
  28.       PrevVisible     =   0   'False
  29.       RecordVisible   =   0   'False
  30.       StepVisible     =   0   'False
  31.       StopVisible     =   0   'False
  32.       TabIndex        =   4
  33.       Top             =   1425
  34.       Visible         =   0   'False
  35.       Width           =   420
  36.    End
  37.    Begin PictureBox Video 
  38.       AutoRedraw      =   -1  'True
  39.       BorderStyle     =   0  'None
  40.       Enabled         =   0   'False
  41.       Height          =   1095
  42.       Index           =   3
  43.       Left            =   2520
  44.       ScaleHeight     =   73
  45.       ScaleMode       =   3  'Pixel
  46.       ScaleWidth      =   71
  47.       TabIndex        =   3
  48.       Top             =   180
  49.       Visible         =   0   'False
  50.       Width           =   1065
  51.    End
  52.    Begin PictureBox Video 
  53.       AutoRedraw      =   -1  'True
  54.       BorderStyle     =   0  'None
  55.       Enabled         =   0   'False
  56.       Height          =   1095
  57.       Index           =   2
  58.       Left            =   1395
  59.       ScaleHeight     =   73
  60.       ScaleMode       =   3  'Pixel
  61.       ScaleWidth      =   71
  62.       TabIndex        =   2
  63.       Top             =   120
  64.       Visible         =   0   'False
  65.       Width           =   1065
  66.    End
  67.    Begin PictureBox Video 
  68.       AutoRedraw      =   -1  'True
  69.       BorderStyle     =   0  'None
  70.       Enabled         =   0   'False
  71.       Height          =   1095
  72.       Index           =   1
  73.       Left            =   120
  74.       ScaleHeight     =   73
  75.       ScaleMode       =   3  'Pixel
  76.       ScaleWidth      =   71
  77.       TabIndex        =   1
  78.       Top             =   105
  79.       Visible         =   0   'False
  80.       Width           =   1065
  81.    End
  82.    Begin MMControl AVI 
  83.       BackVisible     =   0   'False
  84.       EjectVisible    =   0   'False
  85.       Height          =   720
  86.       Left            =   90
  87.       NextVisible     =   0   'False
  88.       PauseVisible    =   0   'False
  89.       PlayVisible     =   0   'False
  90.       PrevVisible     =   0   'False
  91.       RecordVisible   =   0   'False
  92.       StepVisible     =   0   'False
  93.       StopVisible     =   0   'False
  94.       TabIndex        =   0
  95.       Tag             =   "1"
  96.       Top             =   1425
  97.       Visible         =   0   'False
  98.       Width           =   420
  99.    End
  100. End
  101. Option Explicit
  102.  
  103. Sub AVI_Done (NotifyCode As Integer)
  104.     Dim nIndex As Integer
  105.     Dim szPicture As String
  106.  
  107.     nIndex = CInt(Val(AVI.Tag))
  108.  
  109.     szPicture = ProfileString(SN_VIDEO + Trim$(Str$(nIndex)), EN_POSTLOAD)
  110.  
  111.     If Len(szPicture) > 0 Then
  112.         On Error Resume Next
  113.  
  114.         Video(nIndex).Picture = LoadPicture(szPicture)
  115.  
  116.         AVI.Wait = True
  117.         AVI.Notify = False
  118.         AVI.Command = "Close"
  119.  
  120.         DoEvents
  121.         End If
  122.  
  123.     If nIndex < 3 Then
  124.         LoadVideo nIndex + 1
  125.         End If
  126.     End Sub
  127.  
  128. Sub Form_Click ()
  129.     End
  130.     End Sub
  131.  
  132. Sub Form_KeyPress (nKeyAscii As Integer)
  133.     Form_Click
  134.     End Sub
  135.  
  136. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  137.     Dim nDeviceNo As Integer
  138.  
  139.     If AVI.Mode <> 524 Then
  140.         AVI.Wait = True
  141.         AVI.Notify = False
  142.         AVI.Command = "Close"
  143.         End If
  144.     
  145.     If Sound.Mode <> 524 Then
  146.         Sound.Wait = True
  147.         Sound.Notify = False
  148.         Sound.Command = "Close"
  149.         End If
  150.     End Sub
  151.  
  152. Sub Sound_Done (NotifyCode As Integer)
  153.     'Sound.Wait = True
  154.     'Sound.Notify = False
  155.     'Sound.To = 0
  156.     'Sound.Command = "Seek"
  157.     '
  158.     'Sound.Wait = False
  159.     'Sound.Notify = True
  160.     'Sound.Command = "Play"
  161.     '
  162.     'DoEvents
  163.     
  164.     Form_Click
  165.     End Sub
  166.  
  167.