168 lines
4.9 KiB
Plaintext
168 lines
4.9 KiB
Plaintext
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
|