mdtvf.frm

来自「vb环境制作的网络电视播放其」· FRM 代码 · 共 71 行

VERSION 5.00
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "Flash8.ocx"
Begin VB.Form Form4 
   Caption         =   "Flash"
   ClientHeight    =   4380
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5055
   Icon            =   "MdTvf.frx":0000
   LinkTopic       =   "Form4"
   ScaleHeight     =   4380
   ScaleWidth      =   5055
   StartUpPosition =   2  '屏幕中心
   Begin ShockwaveFlashObjectsCtl.ShockwaveFlash swf 
      Height          =   2295
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   2535
      _cx             =   4471
      _cy             =   4048
      FlashVars       =   ""
      Movie           =   ""
      Src             =   ""
      WMode           =   "Window"
      Play            =   -1  'True
      Loop            =   -1  'True
      Quality         =   "High"
      SAlign          =   ""
      Menu            =   -1  'True
      Base            =   ""
      AllowScriptAccess=   ""
      Scale           =   "ShowAll"
      DeviceFont      =   0   'False
      EmbedMovie      =   0   'False
      BGColor         =   ""
      SWRemote        =   ""
      MovieData       =   ""
      SeamlessTabbing =   -1  'True
      Profile         =   0   'False
      ProfileAddress  =   ""
      ProfilePort     =   0
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
  Me.Icon = Form1.Icon
  Me.Width = Form1.Width
  Me.Height = Form1.Height
  SetFormTop Form4, True
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  On Error Resume Next
  swf.stop
End Sub

Private Sub Form_Resize()
On Error Resume Next
swf.Left = 0
swf.Top = 0
swf.Width = Me.Width
swf.Height = Me.Height
End Sub