eir/player.frm

VERSION 5.00
Object = "{6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0"; "wmp.dll"
Begin VB.Form player 
   BackColor       =   &H00000000&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Easy Internet Radio v1.0 Alpha Build 2"
   ClientHeight    =   4320
   ClientLeft      =   4965
   ClientTop       =   3795
   ClientWidth     =   4200
   BeginProperty Font 
      Name            =   "Times New Roman"
      Size            =   11.25
      Charset         =   204
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "player.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   288
   ScaleMode       =   3  'Ïèêñåëü
   ScaleWidth      =   280
   ShowInTaskbar   =   0   'False
   Begin VB.ListBox list_radio 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   2010
      ItemData        =   "player.frx":0CCA
      Left            =   120
      List            =   "player.frx":0CCC
      TabIndex        =   0
      Top             =   960
      Width           =   3975
   End
   Begin WMPLibCtl.WindowsMediaPlayer player_radio 
      Height          =   975
      Left            =   120
      TabIndex        =   1
      Top             =   3240
      Width           =   3975
      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             =   7011
      _cy             =   1720
   End
   Begin VB.Image fon_image 
      Height          =   5250
      Left            =   0
      Picture         =   "player.frx":0CCE
      Top             =   0
      Width           =   4200
   End
   Begin VB.Menu up_player 
      Caption         =   "Ïëååð"
      Begin VB.Menu up_player_update 
         Caption         =   "Îáíîâèòü ñïèñîê ðàäèî"
      End
      Begin VB.Menu up_player_close 
         Caption         =   "Çàêðûòü"
      End
   End
   Begin VB.Menu up_help 
      Caption         =   "Ïîìîùü"
      Begin VB.Menu up_help_help 
         Caption         =   "Ñïðàâêà"
      End
      Begin VB.Menu up_help_site 
         Caption         =   "Ïîñåòèòü ñàéò"
      End
      Begin VB.Menu up_reg 
         Caption         =   "Ðåãèñòðàöèÿ"
      End
      Begin VB.Menu up_help_update2 
         Caption         =   "Îáíîâèòü ïðîãðàììó"
      End
      Begin VB.Menu up_help_info 
         Caption         =   "Î ïðîãðàììå"
      End
   End
End
Attribute VB_Name = "player"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
If App.PrevInstance = True Then
MsgBox "Çàïóñê äâóõ êîïèé ïðîãðàìì íåâîçìîæåí.", 64 + 0, "Easy Internet Radio"
End
End If
Dim RList As String
Open App.Path & "\Data\Radio list\radio_list.erl" For Input As #2
Do Until EOF(2)
    Line Input #2, RList
    list_radio.AddItem RList
Loop
Close #2
End Sub

Private Sub list_radio_Click()
Open App.Path & "\Data\Radio list\" & list_radio.Text & ".eurl" For Input As #1
    Do Until EOF(1)
    Line Input #1, URL
    player_radio.URL = URL
    Loop
Close #1
End Sub

Private Sub up_help_help_Click()
MsgBox "Ïîêà íåäîäåëàë.", 64 + 0, "Îøèáêà"
End Sub

Private Sub up_help_info_Click()
info_form.Show
End Sub

Private Sub up_help_site_Click()
MsgBox "Ïîêà íåäîäåëàë.", 64 + 0, "Îøèáêà"
End Sub

Private Sub up_help_update2_Click()
MsgBox "Èíôîðìàöèÿ: Ïåðåä âûïîëíåíèåì îáíîâëåíèÿ, ïðîãðàììà ïðîâåðèò âåðñèþ íà ñåðâåðå è åñëè âàøà âåðñèÿ ïðîãðàììû ñòàðåå òî ÷òî íà ñåðâåðå, òîãäà ïðîèçîéäåò îáíîâëåíèå. Ïîñëå óñïåøíîãî îáíîâëåíèÿ çàïóñòèòñÿ íîâàÿ âåðñèÿ.", 64 + 0, "Îáíîâëåíèå ïðîãðàììû"
End Sub

Private Sub up_player_close_Click()
End
End Sub

Private Sub up_player_update_Click()
MsgBox "Ïîêà íåäîäåëàë.", 64 + 0, "Îøèáêà"
End Sub

Private Sub up_reg_Click()
reg_form.Show
End Sub