mdtvb.frm

vb环境制作的网络电视播放其

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form3 
   BackColor       =   &H00C0FFC0&
   BorderStyle     =   0  'None
   ClientHeight    =   4710
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5220
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4710
   ScaleWidth      =   5220
   ShowInTaskbar   =   0   'False
   Begin MSComDlg.CommonDialog mcd 
      Left            =   4440
      Top             =   4080
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
      DialogTitle     =   "添加媒体文件"
      Filter          =   $"MdTvb.frx":0000
   End
   Begin VB.Frame Frame1 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      ForeColor       =   &H80000008&
      Height          =   3450
      Left            =   15
      TabIndex        =   0
      Top             =   -75
      Width           =   4575
      Begin VB.OptionButton Option2 
         BackColor       =   &H00C0E0FF&
         Caption         =   "所有循环"
         ForeColor       =   &H00FF0000&
         Height          =   255
         Left            =   2910
         TabIndex        =   7
         Top             =   3060
         Width           =   1035
      End
      Begin VB.OptionButton Option1 
         BackColor       =   &H00C0E0FF&
         Caption         =   "单曲循环"
         ForeColor       =   &H00FF0000&
         Height          =   255
         Left            =   1830
         TabIndex        =   6
         Top             =   3060
         Value           =   -1  'True
         Width           =   1035
      End
      Begin VB.ListBox List1 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFFF&
         Height          =   2730
         Left            =   120
         Sorted          =   -1  'True
         TabIndex        =   1
         Top             =   240
         Width           =   4335
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "播放"
         ForeColor       =   &H00FF0000&
         Height          =   180
         Left            =   1320
         MouseIcon       =   "MdTvb.frx":00AD
         MousePointer    =   99  'Custom
         TabIndex        =   5
         Top             =   3090
         Width           =   360
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "清除"
         ForeColor       =   &H00FF0000&
         Height          =   180
         Left            =   735
         MouseIcon       =   "MdTvb.frx":01FF
         MousePointer    =   99  'Custom
         TabIndex        =   4
         Top             =   3090
         Width           =   360
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "添加"
         ForeColor       =   &H00FF0000&
         Height          =   180
         Left            =   150
         MouseIcon       =   "MdTvb.frx":0351
         MousePointer    =   99  'Custom
         TabIndex        =   3
         Top             =   3090
         Width           =   360
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "关闭"
         ForeColor       =   &H00FF0000&
         Height          =   180
         Left            =   4080
         MouseIcon       =   "MdTvb.frx":04A3
         MousePointer    =   99  'Custom
         TabIndex        =   2
         Top             =   3090
         Width           =   360
      End
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Sub SaveList()
If List1.ListCount = 0 Then Exit Sub
On Error GoTo sErr
If Dir(fNameb) <> "" Then
   SetAttr fNameb, vbNormal
   Kill fNameb
End If
Open fNameb For Output As #1
For i = 0 To List1.ListCount - 1
  If Dir(fNameb) <> "" Then
    Print #1, List1.List(i)
  End If
Next i
Close #1
Exit Sub
sErr:
MsgBox Chr(13) + "磁盘写保护！", vbExclamation
End Sub
Private Sub Form_Load()
Me.Width = Frame1.Width + 30
Me.Height = Frame1.Height - 60
Frame1.BackColor = Me.BackColor
List1.BackColor = Me.BackColor
Option1.BackColor = Me.BackColor
Option2.BackColor = Me.BackColor
On Error Resume Next
List1.Clear
If Dir(fNameb) <> "" Then
  Open fNameb For Input As #1
  While Not EOF(1)
    Line Input #1, S
    S = Trim(S)
    If fLen < sLen(S) Then fLen = sLen(S)
    If Dir(S) <> "" Then
      List1.AddItem S
    End If
  Wend
  Close #1
  Call SaveList
  If List1.ListCount > 0 Then
    If fLen Mod 2 <> 0 Then fLen = fLen + 1
    ListHScroll List1, (fLen + 2) * 6
  End If
End If
If Pos > List1.ListCount - 1 Then Pos = 0
If List1.ListCount > 0 Then List1.ListIndex = Pos
If PlayFlag = 1 Then
  Option1.Value = True
ElseIf PlayFlag = 2 Then
  Option2.Value = True
End If
End Sub

Private Sub Label1_Click()
  Num = OpenMf(mcd, mcd.Filter)
  If Num > 0 Then
    For i = 1 To Num
      List1.AddItem FileList(i)
      If fLen < sLen(FileList(i)) Then
        fLen = sLen(FileList(i))
      End If
    Next
    If List1.ListCount > 0 Then
      If fLen Mod 2 <> 0 Then fLen = fLen + 1
      ListHScroll List1, (fLen + 2) * 6
    End If
  End If
  Call SaveList
End Sub

Private Sub Label2_Click()
  Form1.Timer1.Enabled = True
  Unload Me
End Sub

Private Sub Label3_Click()
  List1.Clear
  If Dir(fNameb) <> "" Then
    SetAttr fNameb, vbNormal
    Kill fNameb
  End If
  ListHScroll List1, 0
End Sub

Private Sub Label4_Click()
If List1.ListIndex < 0 Then
  MsgBox Chr(13) + "请选择媒体！  ", vbExclamation
  Exit Sub
End If
If List1.Text <> "" Then
  Pos = List1.ListIndex
End If
Call LocalPlay
Form1.Timer1.Enabled = True
End Sub

Private Sub List1_DblClick()
  Pos = List1.ListIndex
  Call Label4_Click
End Sub

Private Sub Option1_Click()
  If Me.Visible = True Then List1.SetFocus
  PlayFlag = 1
  SaveSetting App.Title, App.EXEName, "PlayFlag", PlayFlag
End Sub

Private Sub Option2_Click()
  If Me.Visible = True Then List1.SetFocus
  PlayFlag = 2
  SaveSetting App.Title, App.EXEName, "PlayFlag", PlayFlag
End Sub