from backup
This commit is contained in:
commit
42843c7c6b
1
Data/Radio list/BestDance FM (16Kbps).eurl
Normal file
1
Data/Radio list/BestDance FM (16Kbps).eurl
Normal file
@ -0,0 +1 @@
|
||||
http://88.198.61.231:8200/
|
||||
12
Data/Radio list/list.txt
Normal file
12
Data/Radio list/list.txt
Normal file
@ -0,0 +1,12 @@
|
||||
Àâòîðàäèî - Ìîñêâà - Ìóçûêà - 22 êá - http://www.in-radio.ru/radio/avtoradio/listen.m3u
|
||||
Õèò ÔÌ - Ìîñêâà - Ìóçûêà - 31 êá/ñ - http://cluster.quantumart.ru/broadcast/?media=hitfm
|
||||
Ëâà Ðàäèî - Ìîñêâà - Ìóçûêà - 32 êá/ñ - http://audio.rambler.ru/play.html?id=843590
|
||||
Ðàäèî Äà÷à - Ìîñêâà - Ìóçûêà - 32 êá/ñ - http://stream.n340.com:8000/radiodacha_low.mp3.m3u
|
||||
Ðàäèî Premium - Ìîñêâà - Ìóçûêà - 32êá/ñ - http://listen.rpfm.ru:9000/premium32
|
||||
Þìîð ÔÌ - Ìîñêâà - Ðàçãîâîðíûé - 20 êá/ñ - http://audio.rambler.ru/play.html?id=989
|
||||
Ðàäèî Øòîðì - Ìîñêâà - Ìóçûêà - 32 êá/ñ - http://radio-shtorm.ru:8000/32.m3u
|
||||
BestDance FM - Ìîñêâà - Ìóçûêà - 16 êá/ñ - http://88.198.61.231:8200/
|
||||
Ìàÿê - Ìîñêâà - Ðàçãîâîðíûé - 32 êá/ñ - mms://stream03.rambler.ru/radiomayak?WMContentBitrate=60000
|
||||
Ïåðâîå ïîïóëÿðíîå - Ìîñêâà - Ìóçûêà - 32 êá/ñ - http://audio.rambler.ru/play.html?id=1004
|
||||
Ðàäèî Ìåòðî - Ñàíêò-Ïåòåðáóðã - Ìóçûêà - 32 êá/ñ - http://alpha.metroclub.ru/online/studio_32.asx
|
||||
Áèçíåñ ÔÌ - Ìîñêâà - Ðàçãîâîðíûé - 32 êá/ñ - http://audio.rambler.ru/play.html?id=2865
|
||||
12
Data/Radio list/radio_list.erl
Normal file
12
Data/Radio list/radio_list.erl
Normal file
@ -0,0 +1,12 @@
|
||||
Авторадио (22Kbps)
|
||||
Хит ФМ (31Kbps)
|
||||
Радио Дача (32Kbps)
|
||||
Радио Premium (32Kbps)
|
||||
BestDance FM (16Kbps)
|
||||
Первое популярное (32Kbps)
|
||||
Радио Шторм (32Kbps)
|
||||
Лаф Радио (32Kbps)
|
||||
Юмор ФМ (20Kbps)
|
||||
Маяк (32Kbps)
|
||||
Радио Метро (32Kbps)
|
||||
Бизнес ФМ (32Kbps)
|
||||
1
Data/Radio list/Авторадио (22Kbps).eurl
Normal file
1
Data/Radio list/Авторадио (22Kbps).eurl
Normal file
@ -0,0 +1 @@
|
||||
http://www.in-radio.ru/radio/avtoradio/listen.m3u
|
||||
1
Data/Radio list/Бизнес ФМ (32Kbps).eurl
Normal file
1
Data/Radio list/Бизнес ФМ (32Kbps).eurl
Normal file
@ -0,0 +1 @@
|
||||
http://audio.rambler.ru/play.html?id=2865
|
||||
1
Data/Radio list/Лаф Радио (32Kbps).eurl
Normal file
1
Data/Radio list/Лаф Радио (32Kbps).eurl
Normal file
@ -0,0 +1 @@
|
||||
http://audio.rambler.ru/play.html?id=843590
|
||||
1
Data/Radio list/Маяк (32Kbps).eurl
Normal file
1
Data/Radio list/Маяк (32Kbps).eurl
Normal file
@ -0,0 +1 @@
|
||||
mms://stream03.rambler.ru/radiomayak?WMContentBitrate=60000
|
||||
1
Data/Radio list/Первое популярное (32Kbps).eurl
Normal file
1
Data/Radio list/Первое популярное (32Kbps).eurl
Normal file
@ -0,0 +1 @@
|
||||
http://audio.rambler.ru/play.html?id=1004
|
||||
1
Data/Radio list/Радио Premium (32Kbps).eurl
Normal file
1
Data/Radio list/Радио Premium (32Kbps).eurl
Normal file
@ -0,0 +1 @@
|
||||
http://listen.rpfm.ru:9000/premium32
|
||||
1
Data/Radio list/Радио Дача (32Kbps).eurl
Normal file
1
Data/Radio list/Радио Дача (32Kbps).eurl
Normal file
@ -0,0 +1 @@
|
||||
http://stream.n340.com:8000/radiodacha_low.mp3.m3u
|
||||
1
Data/Radio list/Радио Метро (32Kbps).eurl
Normal file
1
Data/Radio list/Радио Метро (32Kbps).eurl
Normal file
@ -0,0 +1 @@
|
||||
http://alpha.metroclub.ru/online/studio_32.asx
|
||||
1
Data/Radio list/Радио Шторм (32Kbps).eurl
Normal file
1
Data/Radio list/Радио Шторм (32Kbps).eurl
Normal file
@ -0,0 +1 @@
|
||||
http://radio-shtorm.ru:8000/32.m3u
|
||||
1
Data/Radio list/Хит ФМ (31Kbps).eurl
Normal file
1
Data/Radio list/Хит ФМ (31Kbps).eurl
Normal file
@ -0,0 +1 @@
|
||||
http://cluster.quantumart.ru/broadcast/?media=hitfm
|
||||
1
Data/Radio list/Юмор ФМ (20Kbps).eurl
Normal file
1
Data/Radio list/Юмор ФМ (20Kbps).eurl
Normal file
@ -0,0 +1 @@
|
||||
http://audio.rambler.ru/play.html?id=989
|
||||
41
EIR.vbp
Normal file
41
EIR.vbp
Normal file
@ -0,0 +1,41 @@
|
||||
Type=Exe
|
||||
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation
|
||||
Object={27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0; picclp32.ocx
|
||||
UserControl=vistaBut.ctl
|
||||
Form=player.frm
|
||||
Object={6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0; wmp.dll
|
||||
Form=info_form.frm
|
||||
Form=reg_form.frm
|
||||
Startup="player"
|
||||
HelpFile=""
|
||||
Title="Easy Internet Radio"
|
||||
ExeName32="EIR.exe"
|
||||
Command32=""
|
||||
Name="EIR"
|
||||
HelpContextID="0"
|
||||
CompatibleMode="0"
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
RevisionVer=0
|
||||
AutoIncrementVer=0
|
||||
ServerSupportFiles=0
|
||||
VersionCompanyName="Àëåêñàíäð (IIIypuk) Ïîïîâ"
|
||||
VersionProductName="Easy Internet Radio"
|
||||
CompilationType=0
|
||||
OptimizationType=0
|
||||
FavorPentiumPro(tm)=0
|
||||
CodeViewDebugInfo=0
|
||||
NoAliasing=0
|
||||
BoundsCheck=0
|
||||
OverflowCheck=0
|
||||
FlPointCheck=0
|
||||
FDIVCheck=0
|
||||
UnroundedFP=0
|
||||
StartMode=0
|
||||
Unattended=0
|
||||
Retained=0
|
||||
ThreadPerObject=0
|
||||
MaxNumberOfThreads=1
|
||||
|
||||
[MS Transaction Server]
|
||||
AutoRefresh=1
|
||||
4
EIR.vbw
Normal file
4
EIR.vbw
Normal file
@ -0,0 +1,4 @@
|
||||
VistaButton = 0, 0, 0, 0, C, 150, 150, 682, 601, C
|
||||
player = 50, 50, 582, 501, C, 212, 65, 564, 484, C
|
||||
info_form = 200, 200, 732, 651, C, 66, 86, 598, 537, C
|
||||
reg_form = 34, 71, 721, 482, C, 96, 94, 628, 545, C
|
||||
0
Keygen/17420926059571.txt
Normal file
0
Keygen/17420926059571.txt
Normal file
38
Keygen/keygen.vbp
Normal file
38
Keygen/keygen.vbp
Normal file
@ -0,0 +1,38 @@
|
||||
Type=Exe
|
||||
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation
|
||||
Object={27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0; picclp32.ocx
|
||||
UserControl=vistaBut.ctl
|
||||
Form=main.frm
|
||||
Startup="main_form"
|
||||
HelpFile=""
|
||||
Title="EIR Register"
|
||||
Command32=""
|
||||
Name="keygen"
|
||||
HelpContextID="0"
|
||||
CompatibleMode="0"
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
RevisionVer=0
|
||||
AutoIncrementVer=0
|
||||
ServerSupportFiles=0
|
||||
VersionCompanyName="Àëåêñàíäð (IIIypuk) Ïîïîâ"
|
||||
VersionProductName="EIR Register"
|
||||
CompilationType=0
|
||||
OptimizationType=0
|
||||
FavorPentiumPro(tm)=0
|
||||
CodeViewDebugInfo=0
|
||||
NoAliasing=0
|
||||
BoundsCheck=0
|
||||
OverflowCheck=0
|
||||
FlPointCheck=0
|
||||
FDIVCheck=0
|
||||
UnroundedFP=0
|
||||
StartMode=0
|
||||
Unattended=0
|
||||
Retained=0
|
||||
ThreadPerObject=0
|
||||
MaxNumberOfThreads=1
|
||||
DebugStartupOption=0
|
||||
|
||||
[MS Transaction Server]
|
||||
AutoRefresh=1
|
||||
2
Keygen/keygen.vbw
Normal file
2
Keygen/keygen.vbw
Normal file
@ -0,0 +1,2 @@
|
||||
VistaButton = 0, 0, 0, 0, C, 0, 0, 0, 0, C
|
||||
main_form = 54, 255, 586, 706, , 25, 25, 557, 476, C
|
||||
144
Keygen/main.frm
Normal file
144
Keygen/main.frm
Normal file
@ -0,0 +1,144 @@
|
||||
VERSION 5.00
|
||||
Begin VB.Form main_form
|
||||
Caption = "EIR Register"
|
||||
ClientHeight = 3030
|
||||
ClientLeft = 4845
|
||||
ClientTop = 4350
|
||||
ClientWidth = 4200
|
||||
LinkTopic = "Form1"
|
||||
ScaleHeight = 202
|
||||
ScaleMode = 3 'Ïèêñåëü
|
||||
ScaleWidth = 280
|
||||
Begin keygen.VistaButton button_gen
|
||||
Height = 375
|
||||
Left = 1440
|
||||
TabIndex = 5
|
||||
Top = 2520
|
||||
Width = 1335
|
||||
_ExtentX = 2355
|
||||
_ExtentY = 661
|
||||
Caption = "Ïîêàçàòü"
|
||||
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
||||
Name = "Times New Roman"
|
||||
Size = 9.75
|
||||
Charset = 204
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
End
|
||||
Begin VB.TextBox pole_key
|
||||
Alignment = 1 'Ïðàâàÿ ïðèâÿçêà
|
||||
BeginProperty Font
|
||||
Name = "Times New Roman"
|
||||
Size = 9.75
|
||||
Charset = 204
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 330
|
||||
Left = 2160
|
||||
TabIndex = 3
|
||||
Top = 1800
|
||||
Width = 1935
|
||||
End
|
||||
Begin VB.TextBox pole_serial
|
||||
Alignment = 1 'Ïðàâàÿ ïðèâÿçêà
|
||||
BeginProperty Font
|
||||
Name = "Times New Roman"
|
||||
Size = 9.75
|
||||
Charset = 204
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 285
|
||||
Left = 2160
|
||||
TabIndex = 1
|
||||
Top = 1440
|
||||
Width = 1935
|
||||
End
|
||||
Begin VB.Label text_key
|
||||
BackStyle = 0 'Ïðîçðà÷íî
|
||||
Caption = "Ðåã. êëþ÷:"
|
||||
BeginProperty Font
|
||||
Name = "Times New Roman"
|
||||
Size = 11.25
|
||||
Charset = 204
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
ForeColor = &H00FFFFFF&
|
||||
Height = 255
|
||||
Left = 120
|
||||
TabIndex = 4
|
||||
Top = 1800
|
||||
Width = 1215
|
||||
End
|
||||
Begin VB.Label Label1
|
||||
BackStyle = 0 'Ïðîçðà÷íî
|
||||
Caption = "Ñåðèéíûé íîìåð:"
|
||||
BeginProperty Font
|
||||
Name = "Times New Roman"
|
||||
Size = 11.25
|
||||
Charset = 204
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
ForeColor = &H00FFFFFF&
|
||||
Height = 255
|
||||
Left = 120
|
||||
TabIndex = 2
|
||||
Top = 1440
|
||||
Width = 1935
|
||||
End
|
||||
Begin VB.Line Line1
|
||||
BorderColor = &H00FFFFFF&
|
||||
X1 = 8
|
||||
X2 = 272
|
||||
Y1 = 88
|
||||
Y2 = 88
|
||||
End
|
||||
Begin VB.Label text_nameprog
|
||||
BackStyle = 0 'Ïðîçðà÷íî
|
||||
Caption = "Ðåãèñòðàòîð"
|
||||
BeginProperty Font
|
||||
Name = "Times New Roman"
|
||||
Size = 14.25
|
||||
Charset = 204
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
ForeColor = &H00FFFFFF&
|
||||
Height = 375
|
||||
Left = 1200
|
||||
TabIndex = 0
|
||||
Top = 840
|
||||
Width = 1695
|
||||
End
|
||||
Begin VB.Image Image1
|
||||
Height = 5250
|
||||
Left = 0
|
||||
Picture = "main.frx":0000
|
||||
Top = 0
|
||||
Width = 4200
|
||||
End
|
||||
End
|
||||
Attribute VB_Name = "main_form"
|
||||
Attribute VB_GlobalNameSpace = False
|
||||
Attribute VB_Creatable = False
|
||||
Attribute VB_PredeclaredId = True
|
||||
Attribute VB_Exposed = False
|
||||
Private Sub button_gen_Click()
|
||||
pole_key.Text = Fix(Val(pole_serial.Text) * 2 - 11111)
|
||||
End Sub
|
||||
BIN
Keygen/main.frx
Normal file
BIN
Keygen/main.frx
Normal file
Binary file not shown.
367
Keygen/vistaBut.ctl
Normal file
367
Keygen/vistaBut.ctl
Normal file
@ -0,0 +1,367 @@
|
||||
VERSION 5.00
|
||||
Object = "{27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0"; "PICCLP32.OCX"
|
||||
Begin VB.UserControl VistaButton
|
||||
Appearance = 0 'Flat
|
||||
AutoRedraw = -1 'True
|
||||
BackColor = &H80000005&
|
||||
ClientHeight = 1560
|
||||
ClientLeft = 0
|
||||
ClientTop = 0
|
||||
ClientWidth = 1740
|
||||
DefaultCancel = -1 'True
|
||||
FillStyle = 0 'Solid
|
||||
ScaleHeight = 104
|
||||
ScaleMode = 3 'Pixel
|
||||
ScaleWidth = 116
|
||||
ToolboxBitmap = "vistaBut.ctx":0000
|
||||
Begin PicClip.PictureClip downs
|
||||
Left = 240
|
||||
Top = 1080
|
||||
_ExtentX = 2381
|
||||
_ExtentY = 556
|
||||
_Version = 393216
|
||||
Cols = 5
|
||||
Picture = "vistaBut.ctx":0312
|
||||
End
|
||||
Begin VB.Timer MoveIn
|
||||
Enabled = 0 'False
|
||||
Interval = 100
|
||||
Left = 0
|
||||
Top = 0
|
||||
End
|
||||
Begin PicClip.PictureClip moves
|
||||
Left = 240
|
||||
Top = 720
|
||||
_ExtentX = 2381
|
||||
_ExtentY = 556
|
||||
_Version = 393216
|
||||
Cols = 5
|
||||
Picture = "vistaBut.ctx":19B4
|
||||
End
|
||||
Begin VB.Timer Timer1
|
||||
Enabled = 0 'False
|
||||
Interval = 10
|
||||
Left = 1320
|
||||
Top = 0
|
||||
End
|
||||
Begin PicClip.PictureClip pc
|
||||
Left = 240
|
||||
Top = 360
|
||||
_ExtentX = 2381
|
||||
_ExtentY = 556
|
||||
_Version = 393216
|
||||
Cols = 5
|
||||
Picture = "vistaBut.ctx":3056
|
||||
End
|
||||
Begin VB.Label lbl
|
||||
Alignment = 2 'Center
|
||||
Appearance = 0 'Flat
|
||||
AutoSize = -1 'True
|
||||
BackColor = &H80000005&
|
||||
BackStyle = 0 'Transparent
|
||||
Caption = "Vista Button"
|
||||
ForeColor = &H80000008&
|
||||
Height = 195
|
||||
Left = 270
|
||||
TabIndex = 0
|
||||
Top = 120
|
||||
Width = 885
|
||||
End
|
||||
End
|
||||
Attribute VB_Name = "VistaButton"
|
||||
Attribute VB_GlobalNameSpace = False
|
||||
Attribute VB_Creatable = True
|
||||
Attribute VB_PredeclaredId = False
|
||||
Attribute VB_Exposed = False
|
||||
'Êíîïêà èç íàáîðà êîíòðîëîâ Windows Vista
|
||||
'Ñäåëàë Ellic (persound@mail.ru, www.persound.vip.su)
|
||||
|
||||
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINT_API) As Long
|
||||
Private Declare Function ScreenToClient Lib "user32" (ByVal hWnd As Long, lpPoint As POINT_API) As Long
|
||||
Dim MoveInState As Integer, MoveState As Boolean, DownState As Boolean
|
||||
Dim Isddd As Boolean
|
||||
Dim s As Integer
|
||||
Event Click()
|
||||
Event KeyDown(KeyCode As Integer, Shift As Integer)
|
||||
Event KeyPress(KeyAscii As Integer)
|
||||
Event KeyUp(KeyCode As Integer, Shift As Integer)
|
||||
Event MouseOut()
|
||||
Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
|
||||
Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
|
||||
Event MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
|
||||
Public Enum State_b
|
||||
Normal_ = 0
|
||||
Default_ = 1
|
||||
End Enum
|
||||
Dim m_State As State_b
|
||||
Dim m_Font As Font
|
||||
Const m_Def_State = State_b.Normal_
|
||||
Private Type POINT_API
|
||||
X As Long
|
||||
Y As Long
|
||||
End Type
|
||||
|
||||
Private Sub lbl_Change()
|
||||
UserControl_Resize 'ìåíÿåì ðàçìåðû
|
||||
End Sub
|
||||
|
||||
Private Sub lbl_Click()
|
||||
UserControl_Click 'äàáëêëèê
|
||||
End Sub
|
||||
|
||||
Private Sub lbl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
|
||||
Call UserControl_MouseDown(Button, Shift, X, Y) 'äîâàíóëè ìûøêîé
|
||||
End Sub
|
||||
|
||||
Private Sub lbl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
|
||||
Call UserControl_MouseMove(Button, Shift, X, Y) 'íàâåëè ìûøêîé
|
||||
End Sub
|
||||
|
||||
Private Sub lbl_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
|
||||
Call UserControl_MouseUp(Button, Shift, X, Y) 'óáðàëè ìûøêó
|
||||
End Sub
|
||||
|
||||
Private Sub MoveIn_Timer()
|
||||
Dim brx, bry, bw, bh As Integer
|
||||
UserControl.ScaleMode = 3 'Ñòàâèì ïèêñåëè
|
||||
'Ãðàíèöû
|
||||
brx = UserControl.ScaleWidth - 3 'ïðàâûé x
|
||||
bry = UserControl.ScaleHeight - 3 'ïðàâûé y
|
||||
bw = UserControl.ScaleWidth - 6 'øèðèíà
|
||||
bh = UserControl.ScaleHeight - 6 'âûñîòà
|
||||
'Ðèñóåì
|
||||
If DownState = False Then
|
||||
UserControl.PaintPicture moves.GraphicCell(MoveInState), 0, 0, 3, 3, 0, 0, 3, 3
|
||||
UserControl.PaintPicture moves.GraphicCell(MoveInState), brx, 0, 3, 3, 15, 0, 3, 3
|
||||
UserControl.PaintPicture moves.GraphicCell(MoveInState), brx, bry, 3, 3, 15, 18, 3, 3
|
||||
UserControl.PaintPicture moves.GraphicCell(MoveInState), 0, bry, 3, 3, 0, 18, 3, 3
|
||||
UserControl.PaintPicture moves.GraphicCell(MoveInState), 3, 0, bw, 3, 3, 0, 12, 3
|
||||
UserControl.PaintPicture moves.GraphicCell(MoveInState), brx, 3, 3, bh, 15, 3, 3, 15
|
||||
UserControl.PaintPicture moves.GraphicCell(MoveInState), 0, 3, 3, bh, 0, 3, 3, 15
|
||||
UserControl.PaintPicture moves.GraphicCell(MoveInState), 3, bry, bw, 3, 3, 18, 12, 3
|
||||
UserControl.PaintPicture moves.GraphicCell(MoveInState), 3, 3, bw, bh, 3, 3, 12, 15
|
||||
Else
|
||||
UserControl.PaintPicture downs.GraphicCell(MoveInState), 0, 0, 3, 3, 0, 0, 3, 3
|
||||
UserControl.PaintPicture downs.GraphicCell(MoveInState), brx, 0, 3, 3, 15, 0, 3, 3
|
||||
UserControl.PaintPicture downs.GraphicCell(MoveInState), brx, bry, 3, 3, 15, 18, 3, 3
|
||||
UserControl.PaintPicture downs.GraphicCell(MoveInState), 0, bry, 3, 3, 0, 18, 3, 3
|
||||
UserControl.PaintPicture downs.GraphicCell(MoveInState), 3, 0, bw, 3, 3, 0, 12, 3
|
||||
UserControl.PaintPicture downs.GraphicCell(MoveInState), brx, 3, 3, bh, 15, 3, 3, 15
|
||||
UserControl.PaintPicture downs.GraphicCell(MoveInState), 0, 3, 3, bh, 0, 3, 3, 15
|
||||
UserControl.PaintPicture downs.GraphicCell(MoveInState), 3, bry, bw, 3, 3, 18, 12, 3
|
||||
UserControl.PaintPicture downs.GraphicCell(MoveInState), 3, 3, bw, bh, 3, 3, 12, 15
|
||||
End If
|
||||
If MoveState = True Then MoveInState = MoveInState + 1 Else MoveInState = MoveInState - 1
|
||||
If MoveInState = 5 Or MoveInState = -1 Then
|
||||
If DownState = True Then DownState = False
|
||||
MoveIn = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Timer1_Timer()
|
||||
Dim pnt As POINT_API
|
||||
GetCursorPos pnt
|
||||
ScreenToClient UserControl.hWnd, pnt
|
||||
|
||||
If pnt.X < UserControl.ScaleLeft Or _
|
||||
pnt.Y < UserControl.ScaleTop Or _
|
||||
pnt.X > (UserControl.ScaleLeft + UserControl.ScaleWidth) Or _
|
||||
pnt.Y > (UserControl.ScaleTop + UserControl.ScaleHeight) Then
|
||||
|
||||
Timer1.Enabled = False
|
||||
RaiseEvent MouseOut
|
||||
Isddd = False
|
||||
DownState = False
|
||||
MoveInState = 4
|
||||
MoveState = False
|
||||
MoveIn = True
|
||||
' statevalue_pic
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_AccessKeyPress(KeyAscii As Integer)
|
||||
RaiseEvent Click
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_Click()
|
||||
RaiseEvent Click
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_Initialize()
|
||||
statevalue_pic
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_InitProperties()
|
||||
state_value = m_Def_State
|
||||
Enabled = True
|
||||
Caption = Ambient.DisplayName
|
||||
Set Font = UserControl.Ambient.Font
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_KeyDown(KeyCode As Integer, Shift As Integer)
|
||||
RaiseEvent KeyDown(KeyCode, Shift)
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_KeyPress(KeyAscii As Integer)
|
||||
RaiseEvent KeyPress(KeyAscii)
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_KeyUp(KeyCode As Integer, Shift As Integer)
|
||||
RaiseEvent KeyUp(KeyCode, Shift)
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
|
||||
RaiseEvent MouseDown(Button, Shift, X, Y)
|
||||
If MoveIn = False Then
|
||||
DownState = True
|
||||
MoveState = False
|
||||
MoveInState = 1
|
||||
make_xpbutton 1
|
||||
Else
|
||||
MoveIn = False
|
||||
make_xpbutton 1
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
|
||||
Timer1.Enabled = True
|
||||
If X >= 0 And Y >= 0 And _
|
||||
X <= UserControl.ScaleWidth And Y <= UserControl.ScaleHeight Then
|
||||
RaiseEvent MouseMove(Button, Shift, X, Y)
|
||||
If Button = vbLeftButton Then
|
||||
make_xpbutton 1
|
||||
Else
|
||||
If Isddd = False Then
|
||||
Isddd = True
|
||||
MoveInState = 0: DownState = False: MoveState = True: MoveIn.Enabled = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
|
||||
RaiseEvent MouseUp(Button, Shift, X, Y)
|
||||
If MoveIn = False Then
|
||||
DownState = True
|
||||
MoveState = True
|
||||
MoveInState = 0
|
||||
MoveIn.Enabled = True
|
||||
Else
|
||||
DownState = False
|
||||
MoveIn = False
|
||||
make_xpbutton 3
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
|
||||
state_value = PropBag.ReadProperty("State", m_Def_State)
|
||||
Enabled = PropBag.ReadProperty("Enabled", True)
|
||||
Caption = PropBag.ReadProperty("Caption", Ambient.DisplayName)
|
||||
Set Font = PropBag.ReadProperty("Font", UserControl.Ambient.Font)
|
||||
End Sub
|
||||
|
||||
Public Property Get Enabled() As Boolean
|
||||
Attribute Enabled.VB_ProcData.VB_Invoke_Property = ";Behavior"
|
||||
Attribute Enabled.VB_UserMemId = -514
|
||||
Enabled = UserControl.Enabled
|
||||
End Property
|
||||
|
||||
Public Property Let Enabled(ByVal New_Enabled As Boolean)
|
||||
UserControl.Enabled() = New_Enabled
|
||||
PropertyChanged "Enabled"
|
||||
statevalue_pic
|
||||
If Enabled = True Then lbl.ForeColor = vbBlack Else lbl.ForeColor = RGB(161, 161, 146)
|
||||
End Property
|
||||
|
||||
Private Sub UserControl_Resize()
|
||||
statevalue_pic
|
||||
lbl.Top = (UserControl.ScaleHeight - lbl.Height) / 2
|
||||
lbl.Left = (UserControl.ScaleWidth - lbl.Width) / 2
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_Show()
|
||||
statevalue_pic
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_Terminate()
|
||||
statevalue_pic
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
|
||||
Call PropBag.WriteProperty("State", m_State, m_Def_State)
|
||||
Call PropBag.WriteProperty("Enabled", UserControl.Enabled, True)
|
||||
Call PropBag.WriteProperty("Caption", lbl.Caption, Ambient.DisplayName)
|
||||
Call PropBag.WriteProperty("Font", m_Font, UserControl.Ambient.Font)
|
||||
End Sub
|
||||
|
||||
Public Property Get State() As State_b
|
||||
Attribute State.VB_Description = "Returns/sets the state of the command button when mouse_out."
|
||||
Attribute State.VB_ProcData.VB_Invoke_Property = ";Misc"
|
||||
State = m_State
|
||||
End Property
|
||||
|
||||
Public Property Let State(ByVal vNewValue As State_b)
|
||||
m_State = vNewValue
|
||||
PropertyChanged "State"
|
||||
statevalue_pic
|
||||
End Property
|
||||
|
||||
Private Sub statevalue_pic()
|
||||
If State = Default_ Then
|
||||
s = 4
|
||||
ElseIf State = Normal_ Then
|
||||
s = 0
|
||||
End If
|
||||
|
||||
If UserControl.Enabled = True Then
|
||||
make_xpbutton s
|
||||
Else: make_xpbutton 2
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub make_xpbutton(z As Integer)
|
||||
UserControl.ScaleMode = 3 'Draw in pixels
|
||||
Dim brx, bry, bw, bh As Integer
|
||||
'Short cuts
|
||||
brx = UserControl.ScaleWidth - 3 'right x
|
||||
bry = UserControl.ScaleHeight - 3 'right y
|
||||
bw = UserControl.ScaleWidth - 6 'border width - corners width
|
||||
bh = UserControl.ScaleHeight - 6 'border height - corners height
|
||||
'Draws button
|
||||
'Goes clockwise first for corners(first four)
|
||||
'followed by borders(next four) and center(last step).
|
||||
UserControl.PaintPicture pc.GraphicCell(z), 0, 0, 3, 3, 0, 0, 3, 3
|
||||
UserControl.PaintPicture pc.GraphicCell(z), brx, 0, 3, 3, 15, 0, 3, 3
|
||||
UserControl.PaintPicture pc.GraphicCell(z), brx, bry, 3, 3, 15, 18, 3, 3
|
||||
UserControl.PaintPicture pc.GraphicCell(z), 0, bry, 3, 3, 0, 18, 3, 3
|
||||
UserControl.PaintPicture pc.GraphicCell(z), 3, 0, bw, 3, 3, 0, 12, 3
|
||||
UserControl.PaintPicture pc.GraphicCell(z), brx, 3, 3, bh, 15, 3, 3, 15
|
||||
UserControl.PaintPicture pc.GraphicCell(z), 0, 3, 3, bh, 0, 3, 3, 15
|
||||
UserControl.PaintPicture pc.GraphicCell(z), 3, bry, bw, 3, 3, 18, 12, 3
|
||||
UserControl.PaintPicture pc.GraphicCell(z), 3, 3, bw, bh, 3, 3, 12, 15
|
||||
|
||||
End Sub
|
||||
|
||||
Public Property Get Caption() As String
|
||||
Attribute Caption.VB_ProcData.VB_Invoke_Property = ";Appearance"
|
||||
Attribute Caption.VB_UserMemId = -518
|
||||
Caption = lbl.Caption
|
||||
End Property
|
||||
|
||||
Public Property Let Caption(ByVal vNewCaption As String)
|
||||
lbl.Caption() = vNewCaption
|
||||
PropertyChanged "Caption"
|
||||
End Property
|
||||
|
||||
Public Property Get Font() As Font
|
||||
Attribute Font.VB_UserMemId = -512
|
||||
Set Font = m_Font
|
||||
End Property
|
||||
|
||||
Public Property Set Font(ByVal vNewFont As Font)
|
||||
Set m_Font = vNewFont
|
||||
Set UserControl.Font = vNewFont
|
||||
Set lbl.Font = m_Font
|
||||
Call UserControl_Resize
|
||||
PropertyChanged "Font"
|
||||
End Property
|
||||
BIN
Keygen/vistaBut.ctx
Normal file
BIN
Keygen/vistaBut.ctx
Normal file
Binary file not shown.
3
README.md
Normal file
3
README.md
Normal file
@ -0,0 +1,3 @@
|
||||
EIR
|
||||
----
|
||||
|
||||
BIN
eir_screen.png
Normal file
BIN
eir_screen.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 69 KiB |
BIN
image/Thumbs.db
Normal file
BIN
image/Thumbs.db
Normal file
Binary file not shown.
BIN
image/fon.jpg
Normal file
BIN
image/fon.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 46 KiB |
BIN
image/fon_image.jpg
Normal file
BIN
image/fon_image.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 32 KiB |
BIN
image/icon.ico
Normal file
BIN
image/icon.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 3.2 KiB |
BIN
image/logo.png
Normal file
BIN
image/logo.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 9.7 KiB |
BIN
image/russia.jpg
Normal file
BIN
image/russia.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 2.5 KiB |
151
info_form.frm
Normal file
151
info_form.frm
Normal file
@ -0,0 +1,151 @@
|
||||
VERSION 5.00
|
||||
Begin VB.Form info_form
|
||||
BorderStyle = 1 'Fixed Single
|
||||
Caption = "Î ïðîãðàììå"
|
||||
ClientHeight = 3795
|
||||
ClientLeft = 4965
|
||||
ClientTop = 3495
|
||||
ClientWidth = 4200
|
||||
ControlBox = 0 'False
|
||||
BeginProperty Font
|
||||
Name = "Times New Roman"
|
||||
Size = 11.25
|
||||
Charset = 204
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Icon = "info_form.frx":0000
|
||||
LinkTopic = "Form1"
|
||||
MaxButton = 0 'False
|
||||
MinButton = 0 'False
|
||||
ScaleHeight = 253
|
||||
ScaleMode = 3 'Ïèêñåëü
|
||||
ScaleWidth = 280
|
||||
Begin EIR.VistaButton Button_close
|
||||
Height = 255
|
||||
Left = 1440
|
||||
TabIndex = 0
|
||||
Top = 3360
|
||||
Width = 1335
|
||||
_ExtentX = 2355
|
||||
_ExtentY = 450
|
||||
Caption = "Çàêðûòü"
|
||||
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
||||
Name = "Times New Roman"
|
||||
Size = 11.25
|
||||
Charset = 204
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
End
|
||||
Begin VB.Label text_site
|
||||
BackStyle = 0 'Ïðîçðà÷íî
|
||||
Caption = "Web-ñàéò: http://net-popov.ucoz.ru"
|
||||
BeginProperty Font
|
||||
Name = "Times New Roman"
|
||||
Size = 11.25
|
||||
Charset = 204
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
ForeColor = &H00FFFFFF&
|
||||
Height = 375
|
||||
Left = 600
|
||||
TabIndex = 4
|
||||
Top = 2760
|
||||
Width = 3495
|
||||
End
|
||||
Begin VB.Label text_email
|
||||
BackStyle = 0 'Ïðîçðà÷íî
|
||||
Caption = "email: man_x@mail.ru"
|
||||
BeginProperty Font
|
||||
Name = "Times New Roman"
|
||||
Size = 11.25
|
||||
Charset = 204
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
ForeColor = &H00FFFFFF&
|
||||
Height = 255
|
||||
Left = 600
|
||||
TabIndex = 3
|
||||
Top = 2280
|
||||
Width = 3375
|
||||
End
|
||||
Begin VB.Label text_develop
|
||||
BackColor = &H00FFFFFF&
|
||||
BackStyle = 0 'Ïðîçðà÷íî
|
||||
Caption = "Ðàçðàáîò÷èê: Àëåêñàíäð Ïîïîâ aka IIIypuk"
|
||||
BeginProperty Font
|
||||
Name = "Times New Roman"
|
||||
Size = 11.25
|
||||
Charset = 204
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
ForeColor = &H00FFFFFF&
|
||||
Height = 615
|
||||
Left = 600
|
||||
TabIndex = 2
|
||||
Top = 1560
|
||||
Width = 3375
|
||||
End
|
||||
Begin VB.Label text_version
|
||||
BackStyle = 0 'Ïðîçðà÷íî
|
||||
Caption = "Âåðñèÿ: v1.0 Alpha Build 2"
|
||||
BeginProperty Font
|
||||
Name = "Times New Roman"
|
||||
Size = 11.25
|
||||
Charset = 204
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
ForeColor = &H00FFFFFF&
|
||||
Height = 255
|
||||
Left = 600
|
||||
TabIndex = 1
|
||||
Top = 1080
|
||||
Width = 3375
|
||||
End
|
||||
Begin VB.Line line_02
|
||||
BorderColor = &H00FFFFFF&
|
||||
X1 = 32
|
||||
X2 = 32
|
||||
Y1 = 56
|
||||
Y2 = 216
|
||||
End
|
||||
Begin VB.Line line_01
|
||||
BorderColor = &H00FFFFFF&
|
||||
X1 = 16
|
||||
X2 = 264
|
||||
Y1 = 64
|
||||
Y2 = 64
|
||||
End
|
||||
Begin VB.Image fon_image
|
||||
Height = 5250
|
||||
Left = 0
|
||||
Picture = "info_form.frx":0CCA
|
||||
Top = 0
|
||||
Width = 4200
|
||||
End
|
||||
End
|
||||
Attribute VB_Name = "info_form"
|
||||
Attribute VB_GlobalNameSpace = False
|
||||
Attribute VB_Creatable = False
|
||||
Attribute VB_PredeclaredId = True
|
||||
Attribute VB_Exposed = False
|
||||
Private Sub Button_close_Click()
|
||||
info_form.Hide
|
||||
End Sub
|
||||
BIN
info_form.frx
Normal file
BIN
info_form.frx
Normal file
Binary file not shown.
167
player.frm
Normal file
167
player.frm
Normal file
@ -0,0 +1,167 @@
|
||||
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
|
||||
BIN
player.frx
Normal file
BIN
player.frx
Normal file
Binary file not shown.
174
reg_form.frm
Normal file
174
reg_form.frm
Normal file
@ -0,0 +1,174 @@
|
||||
VERSION 5.00
|
||||
Begin VB.Form reg_form
|
||||
BorderStyle = 3 'Fixed Dialog
|
||||
Caption = "Ðåãèñòðàöèÿ ïðîãðàììû"
|
||||
ClientHeight = 4335
|
||||
ClientLeft = 4965
|
||||
ClientTop = 3690
|
||||
ClientWidth = 4200
|
||||
BeginProperty Font
|
||||
Name = "Times New Roman"
|
||||
Size = 11.25
|
||||
Charset = 204
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Icon = "reg_form.frx":0000
|
||||
LinkTopic = "Form1"
|
||||
MaxButton = 0 'False
|
||||
MinButton = 0 'False
|
||||
ScaleHeight = 289
|
||||
ScaleMode = 3 'Ïèêñåëü
|
||||
ScaleWidth = 280
|
||||
ShowInTaskbar = 0 'False
|
||||
Begin EIR.VistaButton button_reg
|
||||
Height = 495
|
||||
Left = 1320
|
||||
TabIndex = 6
|
||||
Top = 3720
|
||||
Width = 1575
|
||||
_ExtentX = 2778
|
||||
_ExtentY = 873
|
||||
Caption = "Ðåãèñòðàöèÿ"
|
||||
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
||||
Name = "Times New Roman"
|
||||
Size = 11.25
|
||||
Charset = 204
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
End
|
||||
Begin EIR.VistaButton button_buy
|
||||
Height = 495
|
||||
Left = 1320
|
||||
TabIndex = 5
|
||||
Top = 3240
|
||||
Width = 1575
|
||||
_ExtentX = 2778
|
||||
_ExtentY = 873
|
||||
Caption = "Êóïèòü êëþ÷"
|
||||
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
||||
Name = "Times New Roman"
|
||||
Size = 11.25
|
||||
Charset = 204
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
End
|
||||
Begin VB.TextBox pole_key
|
||||
Alignment = 1 'Ïðàâàÿ ïðèâÿçêà
|
||||
BeginProperty Font
|
||||
Name = "Times New Roman"
|
||||
Size = 9.75
|
||||
Charset = 204
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 285
|
||||
Left = 960
|
||||
TabIndex = 4
|
||||
Top = 2640
|
||||
Width = 3015
|
||||
End
|
||||
Begin VB.TextBox pole_serial
|
||||
Alignment = 1 'Ïðàâàÿ ïðèâÿçêà
|
||||
BeginProperty Font
|
||||
Name = "Times New Roman"
|
||||
Size = 9.75
|
||||
Charset = 204
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 285
|
||||
Left = 960
|
||||
TabIndex = 2
|
||||
Top = 1800
|
||||
Width = 3015
|
||||
End
|
||||
Begin VB.Label text_regley
|
||||
BackStyle = 0 'Ïðîçðà÷íî
|
||||
Caption = "Ðåãèñòðàöèîííûé êëþ÷:"
|
||||
ForeColor = &H00FFFFFF&
|
||||
Height = 255
|
||||
Left = 240
|
||||
TabIndex = 3
|
||||
Top = 2280
|
||||
Width = 2655
|
||||
End
|
||||
Begin VB.Line line_01
|
||||
BorderColor = &H00FFFFFF&
|
||||
X1 = 8
|
||||
X2 = 272
|
||||
Y1 = 80
|
||||
Y2 = 80
|
||||
End
|
||||
Begin VB.Label text_serial
|
||||
BackStyle = 0 'Ïðîçðà÷íî
|
||||
Caption = "Ñåðèéíûé íîìåð:"
|
||||
ForeColor = &H00FFFFFF&
|
||||
Height = 255
|
||||
Left = 240
|
||||
TabIndex = 1
|
||||
Top = 1440
|
||||
Width = 1935
|
||||
End
|
||||
Begin VB.Label text_nameform
|
||||
BackStyle = 0 'Ïðîçðà÷íî
|
||||
Caption = "Ðåãèñòðàöèÿ:"
|
||||
BeginProperty Font
|
||||
Name = "Times New Roman"
|
||||
Size = 14.25
|
||||
Charset = 204
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
ForeColor = &H00FFFFFF&
|
||||
Height = 375
|
||||
Left = 1200
|
||||
TabIndex = 0
|
||||
Top = 840
|
||||
Width = 1815
|
||||
End
|
||||
Begin VB.Image ifon_image
|
||||
Height = 5250
|
||||
Left = 0
|
||||
Picture = "reg_form.frx":0CCA
|
||||
Top = 0
|
||||
Width = 4200
|
||||
End
|
||||
End
|
||||
Attribute VB_Name = "reg_form"
|
||||
Attribute VB_GlobalNameSpace = False
|
||||
Attribute VB_Creatable = False
|
||||
Attribute VB_PredeclaredId = True
|
||||
Attribute VB_Exposed = False
|
||||
Dim Serial As String
|
||||
Dim Serial_2 As String
|
||||
Private Sub button_reg_Click()
|
||||
Serial = Val(pole_serial.Text) * 2 - 11111
|
||||
Serial_2 = pole_key
|
||||
If Serial = Serial_2 Then
|
||||
MsgBox "Ïðîãðàììà óñïåøíî çàðåãèñòðèðîâàíà.", 64 + 0, "Ðåãèñòðàöèÿ"
|
||||
Open "C:\Windows\System32\drivers\radio.sys" For Random As #3
|
||||
Put #3, 1, "yes"
|
||||
Close #3
|
||||
Else
|
||||
MsgBox "Ðåãèñòðàöèîííûé êëþ÷ ââåäåí íåâåðíî.", 64 + 0, "Ðåãèñòðàöèÿ"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Form_Load()
|
||||
pole_serial = Fix(Rnd * 12345678912345#)
|
||||
End Sub
|
||||
BIN
reg_form.frx
Normal file
BIN
reg_form.frx
Normal file
Binary file not shown.
367
vistaBut.ctl
Normal file
367
vistaBut.ctl
Normal file
@ -0,0 +1,367 @@
|
||||
VERSION 5.00
|
||||
Object = "{27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0"; "PICCLP32.OCX"
|
||||
Begin VB.UserControl VistaButton
|
||||
Appearance = 0 'Flat
|
||||
AutoRedraw = -1 'True
|
||||
BackColor = &H80000005&
|
||||
ClientHeight = 1560
|
||||
ClientLeft = 0
|
||||
ClientTop = 0
|
||||
ClientWidth = 1740
|
||||
DefaultCancel = -1 'True
|
||||
FillStyle = 0 'Solid
|
||||
ScaleHeight = 104
|
||||
ScaleMode = 3 'Pixel
|
||||
ScaleWidth = 116
|
||||
ToolboxBitmap = "vistaBut.ctx":0000
|
||||
Begin PicClip.PictureClip downs
|
||||
Left = 240
|
||||
Top = 1080
|
||||
_ExtentX = 2381
|
||||
_ExtentY = 556
|
||||
_Version = 393216
|
||||
Cols = 5
|
||||
Picture = "vistaBut.ctx":0312
|
||||
End
|
||||
Begin VB.Timer MoveIn
|
||||
Enabled = 0 'False
|
||||
Interval = 100
|
||||
Left = 0
|
||||
Top = 0
|
||||
End
|
||||
Begin PicClip.PictureClip moves
|
||||
Left = 240
|
||||
Top = 720
|
||||
_ExtentX = 2381
|
||||
_ExtentY = 556
|
||||
_Version = 393216
|
||||
Cols = 5
|
||||
Picture = "vistaBut.ctx":19B4
|
||||
End
|
||||
Begin VB.Timer Timer1
|
||||
Enabled = 0 'False
|
||||
Interval = 10
|
||||
Left = 1320
|
||||
Top = 0
|
||||
End
|
||||
Begin PicClip.PictureClip pc
|
||||
Left = 240
|
||||
Top = 360
|
||||
_ExtentX = 2381
|
||||
_ExtentY = 556
|
||||
_Version = 393216
|
||||
Cols = 5
|
||||
Picture = "vistaBut.ctx":3056
|
||||
End
|
||||
Begin VB.Label lbl
|
||||
Alignment = 2 'Center
|
||||
Appearance = 0 'Flat
|
||||
AutoSize = -1 'True
|
||||
BackColor = &H80000005&
|
||||
BackStyle = 0 'Transparent
|
||||
Caption = "Vista Button"
|
||||
ForeColor = &H80000008&
|
||||
Height = 195
|
||||
Left = 270
|
||||
TabIndex = 0
|
||||
Top = 120
|
||||
Width = 885
|
||||
End
|
||||
End
|
||||
Attribute VB_Name = "VistaButton"
|
||||
Attribute VB_GlobalNameSpace = False
|
||||
Attribute VB_Creatable = True
|
||||
Attribute VB_PredeclaredId = False
|
||||
Attribute VB_Exposed = False
|
||||
'Êíîïêà èç íàáîðà êîíòðîëîâ Windows Vista
|
||||
'Ñäåëàë Ellic (persound@mail.ru, www.persound.vip.su)
|
||||
|
||||
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINT_API) As Long
|
||||
Private Declare Function ScreenToClient Lib "user32" (ByVal hWnd As Long, lpPoint As POINT_API) As Long
|
||||
Dim MoveInState As Integer, MoveState As Boolean, DownState As Boolean
|
||||
Dim Isddd As Boolean
|
||||
Dim s As Integer
|
||||
Event Click()
|
||||
Event KeyDown(KeyCode As Integer, Shift As Integer)
|
||||
Event KeyPress(KeyAscii As Integer)
|
||||
Event KeyUp(KeyCode As Integer, Shift As Integer)
|
||||
Event MouseOut()
|
||||
Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
|
||||
Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
|
||||
Event MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
|
||||
Public Enum State_b
|
||||
Normal_ = 0
|
||||
Default_ = 1
|
||||
End Enum
|
||||
Dim m_State As State_b
|
||||
Dim m_Font As Font
|
||||
Const m_Def_State = State_b.Normal_
|
||||
Private Type POINT_API
|
||||
X As Long
|
||||
Y As Long
|
||||
End Type
|
||||
|
||||
Private Sub lbl_Change()
|
||||
UserControl_Resize 'ìåíÿåì ðàçìåðû
|
||||
End Sub
|
||||
|
||||
Private Sub lbl_Click()
|
||||
UserControl_Click 'äàáëêëèê
|
||||
End Sub
|
||||
|
||||
Private Sub lbl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
|
||||
Call UserControl_MouseDown(Button, Shift, X, Y) 'äîâàíóëè ìûøêîé
|
||||
End Sub
|
||||
|
||||
Private Sub lbl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
|
||||
Call UserControl_MouseMove(Button, Shift, X, Y) 'íàâåëè ìûøêîé
|
||||
End Sub
|
||||
|
||||
Private Sub lbl_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
|
||||
Call UserControl_MouseUp(Button, Shift, X, Y) 'óáðàëè ìûøêó
|
||||
End Sub
|
||||
|
||||
Private Sub MoveIn_Timer()
|
||||
Dim brx, bry, bw, bh As Integer
|
||||
UserControl.ScaleMode = 3 'Ñòàâèì ïèêñåëè
|
||||
'Ãðàíèöû
|
||||
brx = UserControl.ScaleWidth - 3 'ïðàâûé x
|
||||
bry = UserControl.ScaleHeight - 3 'ïðàâûé y
|
||||
bw = UserControl.ScaleWidth - 6 'øèðèíà
|
||||
bh = UserControl.ScaleHeight - 6 'âûñîòà
|
||||
'Ðèñóåì
|
||||
If DownState = False Then
|
||||
UserControl.PaintPicture moves.GraphicCell(MoveInState), 0, 0, 3, 3, 0, 0, 3, 3
|
||||
UserControl.PaintPicture moves.GraphicCell(MoveInState), brx, 0, 3, 3, 15, 0, 3, 3
|
||||
UserControl.PaintPicture moves.GraphicCell(MoveInState), brx, bry, 3, 3, 15, 18, 3, 3
|
||||
UserControl.PaintPicture moves.GraphicCell(MoveInState), 0, bry, 3, 3, 0, 18, 3, 3
|
||||
UserControl.PaintPicture moves.GraphicCell(MoveInState), 3, 0, bw, 3, 3, 0, 12, 3
|
||||
UserControl.PaintPicture moves.GraphicCell(MoveInState), brx, 3, 3, bh, 15, 3, 3, 15
|
||||
UserControl.PaintPicture moves.GraphicCell(MoveInState), 0, 3, 3, bh, 0, 3, 3, 15
|
||||
UserControl.PaintPicture moves.GraphicCell(MoveInState), 3, bry, bw, 3, 3, 18, 12, 3
|
||||
UserControl.PaintPicture moves.GraphicCell(MoveInState), 3, 3, bw, bh, 3, 3, 12, 15
|
||||
Else
|
||||
UserControl.PaintPicture downs.GraphicCell(MoveInState), 0, 0, 3, 3, 0, 0, 3, 3
|
||||
UserControl.PaintPicture downs.GraphicCell(MoveInState), brx, 0, 3, 3, 15, 0, 3, 3
|
||||
UserControl.PaintPicture downs.GraphicCell(MoveInState), brx, bry, 3, 3, 15, 18, 3, 3
|
||||
UserControl.PaintPicture downs.GraphicCell(MoveInState), 0, bry, 3, 3, 0, 18, 3, 3
|
||||
UserControl.PaintPicture downs.GraphicCell(MoveInState), 3, 0, bw, 3, 3, 0, 12, 3
|
||||
UserControl.PaintPicture downs.GraphicCell(MoveInState), brx, 3, 3, bh, 15, 3, 3, 15
|
||||
UserControl.PaintPicture downs.GraphicCell(MoveInState), 0, 3, 3, bh, 0, 3, 3, 15
|
||||
UserControl.PaintPicture downs.GraphicCell(MoveInState), 3, bry, bw, 3, 3, 18, 12, 3
|
||||
UserControl.PaintPicture downs.GraphicCell(MoveInState), 3, 3, bw, bh, 3, 3, 12, 15
|
||||
End If
|
||||
If MoveState = True Then MoveInState = MoveInState + 1 Else MoveInState = MoveInState - 1
|
||||
If MoveInState = 5 Or MoveInState = -1 Then
|
||||
If DownState = True Then DownState = False
|
||||
MoveIn = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Timer1_Timer()
|
||||
Dim pnt As POINT_API
|
||||
GetCursorPos pnt
|
||||
ScreenToClient UserControl.hWnd, pnt
|
||||
|
||||
If pnt.X < UserControl.ScaleLeft Or _
|
||||
pnt.Y < UserControl.ScaleTop Or _
|
||||
pnt.X > (UserControl.ScaleLeft + UserControl.ScaleWidth) Or _
|
||||
pnt.Y > (UserControl.ScaleTop + UserControl.ScaleHeight) Then
|
||||
|
||||
Timer1.Enabled = False
|
||||
RaiseEvent MouseOut
|
||||
Isddd = False
|
||||
DownState = False
|
||||
MoveInState = 4
|
||||
MoveState = False
|
||||
MoveIn = True
|
||||
' statevalue_pic
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_AccessKeyPress(KeyAscii As Integer)
|
||||
RaiseEvent Click
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_Click()
|
||||
RaiseEvent Click
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_Initialize()
|
||||
statevalue_pic
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_InitProperties()
|
||||
state_value = m_Def_State
|
||||
Enabled = True
|
||||
Caption = Ambient.DisplayName
|
||||
Set Font = UserControl.Ambient.Font
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_KeyDown(KeyCode As Integer, Shift As Integer)
|
||||
RaiseEvent KeyDown(KeyCode, Shift)
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_KeyPress(KeyAscii As Integer)
|
||||
RaiseEvent KeyPress(KeyAscii)
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_KeyUp(KeyCode As Integer, Shift As Integer)
|
||||
RaiseEvent KeyUp(KeyCode, Shift)
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
|
||||
RaiseEvent MouseDown(Button, Shift, X, Y)
|
||||
If MoveIn = False Then
|
||||
DownState = True
|
||||
MoveState = False
|
||||
MoveInState = 1
|
||||
make_xpbutton 1
|
||||
Else
|
||||
MoveIn = False
|
||||
make_xpbutton 1
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
|
||||
Timer1.Enabled = True
|
||||
If X >= 0 And Y >= 0 And _
|
||||
X <= UserControl.ScaleWidth And Y <= UserControl.ScaleHeight Then
|
||||
RaiseEvent MouseMove(Button, Shift, X, Y)
|
||||
If Button = vbLeftButton Then
|
||||
make_xpbutton 1
|
||||
Else
|
||||
If Isddd = False Then
|
||||
Isddd = True
|
||||
MoveInState = 0: DownState = False: MoveState = True: MoveIn.Enabled = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
|
||||
RaiseEvent MouseUp(Button, Shift, X, Y)
|
||||
If MoveIn = False Then
|
||||
DownState = True
|
||||
MoveState = True
|
||||
MoveInState = 0
|
||||
MoveIn.Enabled = True
|
||||
Else
|
||||
DownState = False
|
||||
MoveIn = False
|
||||
make_xpbutton 3
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
|
||||
state_value = PropBag.ReadProperty("State", m_Def_State)
|
||||
Enabled = PropBag.ReadProperty("Enabled", True)
|
||||
Caption = PropBag.ReadProperty("Caption", Ambient.DisplayName)
|
||||
Set Font = PropBag.ReadProperty("Font", UserControl.Ambient.Font)
|
||||
End Sub
|
||||
|
||||
Public Property Get Enabled() As Boolean
|
||||
Attribute Enabled.VB_ProcData.VB_Invoke_Property = ";Behavior"
|
||||
Attribute Enabled.VB_UserMemId = -514
|
||||
Enabled = UserControl.Enabled
|
||||
End Property
|
||||
|
||||
Public Property Let Enabled(ByVal New_Enabled As Boolean)
|
||||
UserControl.Enabled() = New_Enabled
|
||||
PropertyChanged "Enabled"
|
||||
statevalue_pic
|
||||
If Enabled = True Then lbl.ForeColor = vbBlack Else lbl.ForeColor = RGB(161, 161, 146)
|
||||
End Property
|
||||
|
||||
Private Sub UserControl_Resize()
|
||||
statevalue_pic
|
||||
lbl.Top = (UserControl.ScaleHeight - lbl.Height) / 2
|
||||
lbl.Left = (UserControl.ScaleWidth - lbl.Width) / 2
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_Show()
|
||||
statevalue_pic
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_Terminate()
|
||||
statevalue_pic
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
|
||||
Call PropBag.WriteProperty("State", m_State, m_Def_State)
|
||||
Call PropBag.WriteProperty("Enabled", UserControl.Enabled, True)
|
||||
Call PropBag.WriteProperty("Caption", lbl.Caption, Ambient.DisplayName)
|
||||
Call PropBag.WriteProperty("Font", m_Font, UserControl.Ambient.Font)
|
||||
End Sub
|
||||
|
||||
Public Property Get State() As State_b
|
||||
Attribute State.VB_Description = "Returns/sets the state of the command button when mouse_out."
|
||||
Attribute State.VB_ProcData.VB_Invoke_Property = ";Misc"
|
||||
State = m_State
|
||||
End Property
|
||||
|
||||
Public Property Let State(ByVal vNewValue As State_b)
|
||||
m_State = vNewValue
|
||||
PropertyChanged "State"
|
||||
statevalue_pic
|
||||
End Property
|
||||
|
||||
Private Sub statevalue_pic()
|
||||
If State = Default_ Then
|
||||
s = 4
|
||||
ElseIf State = Normal_ Then
|
||||
s = 0
|
||||
End If
|
||||
|
||||
If UserControl.Enabled = True Then
|
||||
make_xpbutton s
|
||||
Else: make_xpbutton 2
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub make_xpbutton(z As Integer)
|
||||
UserControl.ScaleMode = 3 'Draw in pixels
|
||||
Dim brx, bry, bw, bh As Integer
|
||||
'Short cuts
|
||||
brx = UserControl.ScaleWidth - 3 'right x
|
||||
bry = UserControl.ScaleHeight - 3 'right y
|
||||
bw = UserControl.ScaleWidth - 6 'border width - corners width
|
||||
bh = UserControl.ScaleHeight - 6 'border height - corners height
|
||||
'Draws button
|
||||
'Goes clockwise first for corners(first four)
|
||||
'followed by borders(next four) and center(last step).
|
||||
UserControl.PaintPicture pc.GraphicCell(z), 0, 0, 3, 3, 0, 0, 3, 3
|
||||
UserControl.PaintPicture pc.GraphicCell(z), brx, 0, 3, 3, 15, 0, 3, 3
|
||||
UserControl.PaintPicture pc.GraphicCell(z), brx, bry, 3, 3, 15, 18, 3, 3
|
||||
UserControl.PaintPicture pc.GraphicCell(z), 0, bry, 3, 3, 0, 18, 3, 3
|
||||
UserControl.PaintPicture pc.GraphicCell(z), 3, 0, bw, 3, 3, 0, 12, 3
|
||||
UserControl.PaintPicture pc.GraphicCell(z), brx, 3, 3, bh, 15, 3, 3, 15
|
||||
UserControl.PaintPicture pc.GraphicCell(z), 0, 3, 3, bh, 0, 3, 3, 15
|
||||
UserControl.PaintPicture pc.GraphicCell(z), 3, bry, bw, 3, 3, 18, 12, 3
|
||||
UserControl.PaintPicture pc.GraphicCell(z), 3, 3, bw, bh, 3, 3, 12, 15
|
||||
|
||||
End Sub
|
||||
|
||||
Public Property Get Caption() As String
|
||||
Attribute Caption.VB_ProcData.VB_Invoke_Property = ";Appearance"
|
||||
Attribute Caption.VB_UserMemId = -518
|
||||
Caption = lbl.Caption
|
||||
End Property
|
||||
|
||||
Public Property Let Caption(ByVal vNewCaption As String)
|
||||
lbl.Caption() = vNewCaption
|
||||
PropertyChanged "Caption"
|
||||
End Property
|
||||
|
||||
Public Property Get Font() As Font
|
||||
Attribute Font.VB_UserMemId = -512
|
||||
Set Font = m_Font
|
||||
End Property
|
||||
|
||||
Public Property Set Font(ByVal vNewFont As Font)
|
||||
Set m_Font = vNewFont
|
||||
Set UserControl.Font = vNewFont
|
||||
Set lbl.Font = m_Font
|
||||
Call UserControl_Resize
|
||||
PropertyChanged "Font"
|
||||
End Property
|
||||
BIN
vistaBut.ctx
Normal file
BIN
vistaBut.ctx
Normal file
Binary file not shown.
Loading…
Reference in New Issue
Block a user