mediaplay1.frm

星子行主机控制系统用于主机管理,方便远程操作,通信等功能.更 方便用于局域网,管理速度快,连接简单方便.注意:星子行连接可用 于带路由主机与带路由主机之间连接,非路由与非路由之间连接.带

VERSION 5.00
Object = "{6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0"; "wmp.dll"
Begin VB.Form Mediaplay1 
   Caption         =   "播放共享"
   ClientHeight    =   5760
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7440
   Icon            =   "Mediaplay1.frx":0000
   LinkTopic       =   "Form5"
   ScaleHeight     =   5760
   ScaleWidth      =   7440
   StartUpPosition =   1  '所有者中心
   Begin WMPLibCtl.WindowsMediaPlayer Wmp1 
      Height          =   5775
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   7455
      URL             =   ""
      rate            =   1
      balance         =   0
      currentPosition =   0
      defaultFrame    =   ""
      playCount       =   1
      autoStart       =   -1  'True
      currentMarker   =   0
      invokeURLs      =   -1  'True
      baseURL         =   ""
      volume          =   50
      mute            =   0   'False
      uiMode          =   "full"
      stretchToFit    =   0   'False
      windowlessVideo =   0   'False
      enabled         =   -1  'True
      enableContextMenu=   -1  'True
      fullScreen      =   0   'False
      SAMIStyle       =   ""
      SAMILang        =   ""
      SAMIFilename    =   ""
      captioningID    =   ""
      enableErrorDialogs=   0   'False
      _cx             =   13150
      _cy             =   10186
   End
End
Attribute VB_Name = "Mediaplay1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public url1 As String
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)

End Sub
Private Sub Form_Resize()

On Error Resume Next

Wmp1.Height = Me.Height - 510
Wmp1.Width = Me.Width - 120

End Sub

Private Sub Form_Load()
On Error Resume Next

Wmp1.URL = url1



End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next



 
End Sub

Private Sub Wmp1_OpenStateChange(ByVal NewState As Long)

End Sub