frmmain.frm

此程序为网络电视

VERSION 5.00
Object = "{6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0"; "wmp.dll"
Begin VB.Form frmMain 
   BorderStyle     =   0  'None
   Caption         =   "Online RTV"
   ClientHeight    =   4185
   ClientLeft      =   5025
   ClientTop       =   -4140
   ClientWidth     =   5265
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "frmMain.frx":08CA
   ScaleHeight     =   4185
   ScaleMode       =   0  'User
   ScaleWidth      =   5280
   ShowInTaskbar   =   0   'False
   Begin Project1.FileDownloader FileDownloader 
      Left            =   3960
      Top             =   4560
      _extentx        =   1799
      _extenty        =   1667
   End
   Begin VB.TextBox Text 
      Height          =   285
      Left            =   360
      TabIndex        =   5
      Text            =   "http://www.mobiclassic.org/bmsoft/fmstacionet.dat"
      Top             =   4680
      Width           =   3495
   End
   Begin Project1.isButton bbUpdate 
      Height          =   300
      Left            =   0
      TabIndex        =   4
      Top             =   840
      Width           =   1575
      _extentx        =   2778
      _extenty        =   529
      icon            =   "frmMain.frx":487EC
      style           =   9
      caption         =   "检查更新"
      iconalign       =   1
      inonthemestyle  =   0
      tooltiptitle    =   ""
      tooltipicon     =   0
      tooltiptype     =   0
      ttforecolor     =   0
      font            =   "frmMain.frx":48808
   End
   Begin Project1.XandersXPTaskBar XandersXPTaskBar1 
      Left            =   3600
      Top             =   120
      _extentx        =   847
      _extenty        =   847
      alignment       =   3
   End
   Begin VB.ListBox rLista 
      ForeColor       =   &H000080FF&
      Height          =   1680
      ItemData        =   "frmMain.frx":4882C
      Left            =   1080
      List            =   "frmMain.frx":4882E
      TabIndex        =   1
      Top             =   1560
      Width           =   4095
   End
   Begin Project1.isButton bbStop 
      Height          =   300
      Left            =   4440
      TabIndex        =   3
      Top             =   3240
      Width           =   615
      _extentx        =   1085
      _extenty        =   529
      icon            =   "frmMain.frx":48830
      style           =   9
      caption         =   "停止"
      iconalign       =   1
      inonthemestyle  =   0
      tooltiptitle    =   ""
      tooltipicon     =   0
      tooltiptype     =   0
      ttforecolor     =   0
      font            =   "frmMain.frx":4884C
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "X"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   1
      Left            =   10
      TabIndex        =   7
      Top             =   0
      Width           =   135
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "X"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   5116
      TabIndex        =   6
      Top             =   0
      Width           =   135
   End
   Begin VB.Image Image1 
      Height          =   615
      Left            =   3960
      Top             =   3600
      Width           =   1335
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "关于"
      ForeColor       =   &H000040C0&
      Height          =   255
      Left            =   4200
      TabIndex        =   2
      Top             =   840
      Width           =   975
   End
   Begin WMPLibCtl.WindowsMediaPlayer wmpr 
      Height          =   915
      Left            =   1080
      TabIndex        =   0
      Top             =   1320
      Width           =   4080
      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          =   "mini"
      stretchToFit    =   0   'False
      windowlessVideo =   0   'False
      enabled         =   -1  'True
      enableContextMenu=   0   'False
      fullScreen      =   0   'False
      SAMIStyle       =   ""
      SAMILang        =   ""
      SAMIFilename    =   ""
      captioningID    =   ""
      enableErrorDialogs=   0   'False
      _cx             =   7197
      _cy             =   1614
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**********************************************
'**  Program Name:  Online RTV   (