Planet Source Code Jumbo Resource CD Visual Basic 1 to 7

home *** CD-ROM | disk | FTP | other *** search

/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Mahesh_Med20322111212006.psc / 01.frm

Wrap

Text File | 2006-11-21 | 119KB | 3,700 lines

VERSION 5.00 Object = "{C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0"; "MCI32.OCX" Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx" Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" Begin VB.Form musicsystem AutoRedraw = -1 'True BackColor = &H00000000& BorderStyle = 0 'None ClientHeight = 5775 ClientLeft = 2025 ClientTop = 1200 ClientWidth = 7725 ClipControls = 0 'False ControlBox = 0 'False FillColor = &H00404040& ForeColor = &H00404040& Icon = "01.frx":0000 KeyPreview = -1 'True LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False OLEDropMode = 1 'Manual ScaleHeight = 5775 ScaleWidth = 7725 ShowInTaskbar = 0 'False Begin MCI.MMControl MMControl2 Height = 375 Left = 6600 TabIndex = 29 Top = 4470 Width = 840 _ExtentX = 1482 _ExtentY = 661 _Version = 393216 PauseEnabled = -1 'True RecordEnabled = -1 'True PrevVisible = 0 'False NextVisible = 0 'False PlayVisible = 0 'False BackVisible = 0 'False StepVisible = 0 'False StopVisible = 0 'False EjectVisible = 0 'False DeviceType = "waveaudio" FileName = "" MouseIcon = "01.frx":0442 End Begin VB.TextBox Text5 Height = 285 Left = 4950 TabIndex = 37 Text = "Text5" Top = 2820 Width = 2655 End Begin VB.TextBox Text4 Height = 285 Left = 4500 TabIndex = 36 Text = "Text4" Top = 1800 Width = 1935 End Begin VB.Timer Timer6 Interval = 200 Left = 5550 Top = 3450 End Begin VB.Frame Frame1 Caption = "Frame1" Height = 1935 Left = 4320 TabIndex = 34 Top = 3060 Width = 3375 Begin VB.Image recplay Height = 270 Left = 2520 Picture = "01.frx":0894 Top = 960 Visible = 0 'False Width = 360 End Begin VB.Image cbuttone Height = 270 Index = 7 Left = 120 Picture = "01.frx":0DE6 Top = 240 Width = 360 End Begin VB.Label Label6 AutoSize = -1 'True BackColor = &H00000000& BorderStyle = 1 'Fixed Single Caption = "12" Enabled = 0 'False BeginProperty Font Name = "Small Fonts" Size = 5.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000080FF& Height = 195 Index = 15 Left = 150 TabIndex = 35 ToolTipText = "Track 12" Top = 3090 Width = 195 End Begin VB.Image colorbar Height = 150 Left = 180 Picture = "01.frx":1338 Top = 2430 Width = 975 End Begin VB.Image volumebarup DragIcon = "01.frx":1B22 DragMode = 1 'Automatic Height = 75 Left = 180 Picture = "01.frx":1E2C ToolTipText = "Volume bar" Top = 2790 Width = 210 End Begin VB.Image volumebardown DragIcon = "01.frx":1F4A DragMode = 1 'Automatic Height = 75 Left = 450 Picture = "01.frx":2254 ToolTipText = "Volume bar" Top = 2790 Width = 210 End Begin VB.Image imgbardown Height = 90 Left = 180 Picture = "01.frx":2372 Top = 2640 Width = 435 End Begin VB.Image imgbarup Height = 90 Left = 180 Picture = "01.frx":25C4 Top = 2940 Width = 435 End Begin VB.Image recpause Height = 270 Left = 2610 Picture = "01.frx":2816 Top = 240 Visible = 0 'False Width = 360 End Begin VB.Image cbuttonD Height = 270 Index = 7 Left = 120 Picture = "01.frx":2D68 Top = 570 Visible = 0 'False Width = 360 End Begin VB.Image cbuttone Height = 270 Index = 6 Left = 0 Picture = "01.frx":32BA Top = 4350 Width = 360 End Begin VB.Image cbuttone Height = 270 Index = 3 Left = 630 Picture = "01.frx":380C Top = 4620 Width = 360 End Begin VB.Image cbuttone Height = 270 Index = 0 Left = 540 Picture = "01.frx":3D5E Top = 240 Width = 360 End Begin VB.Image cbuttonD Height = 270 Index = 6 Left = 1740 Picture = "01.frx":42B0 Top = 570 Width = 360 End Begin VB.Image cbuttonD Height = 270 Index = 3 Left = 2190 Picture = "01.frx":4802 Top = 570 Width = 360 End Begin VB.Image cbuttonD Height = 270 Index = 2 Left = 930 Picture = "01.frx":4D54 Top = 570 Width = 360 End Begin VB.Image cbuttonD Height = 270 Index = 1 Left = 1320 Picture = "01.frx":52A6 Top = 570 Width = 360 End Begin VB.Image cbuttone Height = 270 Index = 2 Left = 930 Picture = "01.frx":57F8 Top = 240 Width = 360 End Begin VB.Image cbuttone Height = 270 Index = 1 Left = 1320 Picture = "01.frx":5D4A Top = 240 Width = 360 End Begin VB.Image cbuttonD Height = 270 Index = 0 Left = 540 Picture = "01.frx":629C Top = 570 Width = 360 End Begin VB.Image autooffdown Height = 195 Left = 120 Picture = "01.frx":67EE Top = 1140 Width = 495 End Begin VB.Image autooffup Height = 195 Left = 120 Picture = "01.frx":6D44 Top = 900 Width = 495 End Begin VB.Image p Height = 255 Index = 3 Left = 120 Picture = "01.frx":729A Top = 1350 Visible = 0 'False Width = 435 End Begin VB.Image p Height = 240 Index = 4 Left = 120 Picture = "01.frx":78B4 Top = 1620 Visible = 0 'False Width = 435 End Begin VB.Image p Height = 240 Index = 1 Left = 600 Picture = "01.frx":7E76 Top = 1620 Visible = 0 'False Width = 435 End Begin VB.Image p Height = 240 Index = 2 Left = 600 Picture = "01.frx":8438 Top = 1350 Visible = 0 'False Width = 435 End Begin VB.Image autoondown Height = 195 Left = 660 Picture = "01.frx":89FA Top = 1140 Width = 495 End Begin VB.Image autoonup Height = 195 Left = 660 Picture = "01.frx":8F50 Top = 900 Width = 495 End Begin VB.Image presetdown Height = 210 Left = 120 Picture = "01.frx":94A6 Top = 1920 Width = 690 End Begin VB.Image eqonup Height = 195 Left = 1800 Picture = "01.frx":9C90 Top = 900 Width = 390 End Begin VB.Image eqondown Height = 195 Left = 1800 Picture = "01.frx":A0E2 Top = 1140 Width = 390 End Begin VB.Image eqoffdown Height = 195 Left = 1320 Picture = "01.frx":A534 Top = 1140 Width = 390 End Begin VB.Image eqoffup Height = 195 Left = 1320 Picture = "01.frx":A986 Top = 900 Width = 390 End Begin VB.Image presetup Height = 210 Left = 120 Picture = "01.frx":ADD8 Top = 2160 Width = 690 End Begin VB.Image plup Height = 135 Left = 1110 Picture = "01.frx":B5C2 Top = 1410 Width = 270 End Begin VB.Image equp Height = 135 Left = 1440 Picture = "01.frx":B7FC Top = 1410 Width = 255 End Begin VB.Image pldown Height = 135 Left = 1110 Picture = "01.frx":BA12 Top = 1590 Width = 255 End Begin VB.Image eqdown Height = 150 Left = 1440 Picture = "01.frx":BC28 Top = 1590 Width = 270 End Begin VB.Image Infdown Height = 165 Left = 1950 Picture = "01.frx":BE9A Top = 1590 Width = 150 End Begin VB.Image infup Height = 165 Left = 1950 Picture = "01.frx":C03C Top = 1410 Width = 165 End Begin VB.Image mindown Height = 120 Left = 2190 Picture = "01.frx":C20A Top = 1590 Width = 135 End Begin VB.Image minup Height = 135 Left = 2160 Picture = "01.frx":C32C Top = 1410 Width = 165 End Begin VB.Image closeup Height = 135 Left = 1770 Picture = "01.frx":C4B2 Top = 1410 Width = 135 End Begin VB.Image closedown Height = 150 Left = 1770 Picture = "01.frx":C5F0 Top = 1590 Width = 150 End End Begin VB.FileListBox File1 Height = 480 Left = 4440 Pattern = "*.wav" TabIndex = 33 Top = 2760 Width = 3255 End Begin VB.CheckBox Check1 Caption = "Use control panel recording format" Height = 255 Left = 4920 TabIndex = 32 Top = 4470 Value = 1 'Checked Width = 2895 End Begin VB.ComboBox Combo2 Height = 315 Left = 4680 TabIndex = 31 Text = "<select soundcard>" Top = 4260 Width = 4215 End Begin VB.ComboBox Combo1 Height = 315 Left = 4560 TabIndex = 30 Text = "<select soundcard>" Top = 4500 Width = 4215 End Begin VB.Timer rec_timer Enabled = 0 'False Interval = 100 Left = 5430 Top = 3840 End Begin VB.TextBox Text3 Height = 285 Left = 5430 Locked = -1 'True TabIndex = 22 TabStop = 0 'False Text = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" Top = 4260 Width = 2865 End Begin VB.TextBox Text2 Height = 285 Left = 4770 Locked = -1 'True TabIndex = 21 TabStop = 0 'False Text = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" Top = 4080 Width = 2835 End Begin MSComctlLib.Slider Slider4 Height = 165 Left = 4710 TabIndex = 3 TabStop = 0 'False Top = 4530 Width = 1095 _ExtentX = 1931 _ExtentY = 291 _Version = 393216 SelStart = 5 Value = 5 End Begin MSComctlLib.Slider Slider3 Height = 225 Left = 5250 TabIndex = 2 TabStop = 0 'False Top = 4050 Width = 1305 _ExtentX = 2302 _ExtentY = 397 _Version = 393216 LargeChange = 1 Max = 100 SelStart = 14 Value = 14 End Begin MSComctlLib.Slider Slider2 Height = 315 Left = 5790 TabIndex = 1 TabStop = 0 'False Top = 3900 Width = 3495 _ExtentX = 6165 _ExtentY = 556 _Version = 393216 Max = 70 End Begin VB.Timer Timer5 Enabled = 0 'False Left = 5310 Top = 4440 End Begin VB.Timer Timer4 Enabled = 0 'False Interval = 700 Left = 5730 Top = 3960 End Begin VB.Timer Timer2 Interval = 100 Left = 6000 Top = 4140 End Begin VB.Timer Timer3 Enabled = 0 'False Left = 5100 Top = 4290 End Begin VB.TextBox Text1 Height = 345 Left = 6570 Locked = -1 'True TabIndex = 0 Text = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" Top = 3300 Width = 4545 End Begin VB.Timer Timer1 Interval = 500 Left = 6510 Top = 4080 End Begin VB.Frame Frame3 Appearance = 0 'Flat BackColor = &H00404040& BorderStyle = 0 'None ForeColor = &H80000008& Height = 285 Left = 8460 TabIndex = 4 Top = 4800 Visible = 0 'False Width = 1605 Begin VB.Image Image3 Height = 240 Index = 1 Left = 2700 Picture = "01.frx":C772 Top = 300 Width = 420 End Begin VB.Image Image3 Height = 240 Index = 3 Left = 840 Picture = "01.frx":CCF4 Top = 450 Width = 420 End Begin VB.Image Image3 Height = 240 Index = 2 Left = 2010 Picture = "01.frx":D276 Top = 390 Width = 420 End Begin VB.Image Image3 Height = 240 Index = 4 Left = 1470 Picture = "01.frx":D7F8 Top = 390 Width = 420 End Begin VB.Line Line9 BorderColor = &H00FFFFFF& X1 = 5670 X2 = 30 Y1 = 600 Y2 = 600 End Begin VB.Line Line6 BorderColor = &H00FFFFFF& X1 = 5790 X2 = -810 Y1 = 3000 Y2 = 3000 End Begin VB.Line Line7 BorderColor = &H00FFFFFF& X1 = 5520 X2 = 5520 Y1 = 4560 Y2 = 120 End End Begin MSComDlg.CommonDialog CommonDialog2 Left = 5580 Top = 3690 _ExtentX = 847 _ExtentY = 847 _Version = 393216 DefaultExt = "wav" DialogTitle = "Save recoeded file as" FileName = "*.wav" Filter = "*.wav" End Begin VB.Image Image21 Height = 5430 Left = 4410 Picture = "01.frx":DD7A Top = 2490 Width = 4155 End Begin VB.Image Image24 Height = 585 Left = 0 Picture = "01.frx":5763C Top = 390 Width = 240 End Begin VB.Image eqfup Height = 165 Left = 4650 Picture = "01.frx":57DCE Top = 810 Width = 120 End Begin VB.Image eqfdown Height = 165 Left = 4680 Picture = "01.frx":57F18 Top = 1260 Width = 105 End Begin VB.Image eqf Height = 165 Index = 10 Left = 360 Picture = "01.frx":58062 Top = 2660 Width = 120 End Begin VB.Label rec_count AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "00:02:34" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 150 Left = 645 TabIndex = 28 Top = 540 Visible = 0 'False Width = 510 End Begin VB.Label reclabel AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "REC" BeginProperty Font Name = "Small Fonts" Size = 5.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 120 Left = 320 TabIndex = 27 Top = 570 Visible = 0 'False Width = 210 End Begin VB.Image Image1 Height = 345 Left = -30 Picture = "01.frx":581AC Stretch = -1 'True Top = 3210 Width = 4110 End Begin VB.Label Label19 AutoSize = -1 'True BackColor = &H00404040& BackStyle = 0 'Transparent Caption = "EQUALIZER" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000040C0& Height = 150 Left = 4470 TabIndex = 26 Top = 2370 Width = 675 End Begin VB.Image eqclose Height = 135 Left = 3930 Picture = "01.frx":5BF16 ToolTipText = "Close" Top = 1770 Width = 135 End Begin VB.Line Line15 BorderColor = &H00004080& BorderStyle = 3 'Dot DrawMode = 9 'Not Mask Pen X1 = 1300 X2 = 2970 Y1 = 2150 Y2 = 2150 End Begin VB.Image auto Height = 195 Left = 600 Picture = "01.frx":5C054 Top = 2010 Width = 495 End Begin VB.Image preset Height = 210 Left = 3240 Picture = "01.frx":5C5AA Top = 1970 Width = 690 End Begin VB.Image eqon Height = 195 Left = 210 Picture = "01.frx":5CD94 Top = 2010 Width = 390 End Begin VB.Image eqf Height = 165 Index = 9 Left = 3650 Picture = "01.frx":5D1E6 Top = 2550 Width = 120 End Begin VB.Image eqf Height = 165 Index = 8 Left = 3380 Picture = "01.frx":5D330 Top = 2550 Width = 120 End Begin VB.Image eqf Height = 165 Index = 7 Left = 3110 Picture = "01.frx":5D47A Top = 2700 Width = 120 End Begin VB.Image eqf Height = 165 Index = 6 Left = 2840 Picture = "01.frx":5D5C4 Top = 2700 Width = 120 End Begin VB.Image eqf Height = 165 Index = 5 Left = 2570 Picture = "01.frx":5D70E Top = 2700 Width = 120 End Begin VB.Image eqf Height = 165 Index = 4 Left = 2300 Picture = "01.frx":5D858 Top = 2730 Width = 120 End Begin VB.Image eqf Height = 165 Index = 3 Left = 2020 Picture = "01.frx":5D9A2 Top = 2700 Width = 120 End Begin VB.Image eqf Height = 165 Index = 2 Left = 1750 Picture = "01.frx":5DAEC Top = 2670 Width = 120 End Begin VB.Image eqf Height = 165 Index = 1 Left = 1480 Picture = "01.frx":5DC36 Top = 2640 Width = 120 End Begin VB.Image eqf Height = 165 Index = 0 Left = 1200 Picture = "01.frx":5DD80 Top = 2400 Width = 120 End Begin VB.Image balancebar DragIcon = "01.frx":5DECA Height = 75 Left = 2880 Picture = "01.frx":5E1D4 ToolTipText = "Balance bar" Top = 930 Width = 210 End Begin VB.Image imgbalancemeter Height = 150 Left = 2640 Picture = "01.frx":5E2F2 Top = 900 Width = 660 End Begin VB.Image Image20 Height = 165 Left = 3570 Picture = "01.frx":5E85C Top = 0 Width = 225 End Begin VB.Image Image18 Height = 300 Left = 3630 Picture = "01.frx":5EAAE Top = 1290 Width = 315 End Begin VB.Label Label17 AutoSize = -1 'True BackColor = &H00000000& BackStyle = 0 'Transparent Caption = "00:00" BeginProperty Font Name = "Small Fonts" Size = 6.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000040C0& Height = 165 Left = 2310 TabIndex = 24 ToolTipText = "Current Media Duration" Top = 600 Width = 330 End Begin VB.Shape sp BorderStyle = 0 'Transparent FillColor = &H0000C000& FillStyle = 0 'Solid Height = 255 Index = 7 Left = 1170 Top = 750 Width = 90 End Begin VB.Shape sp BorderStyle = 0 'Transparent FillColor = &H00C0FFC0& FillStyle = 0 'Solid Height = 255 Index = 5 Left = 930 Top = 750 Width = 90 End Begin VB.Shape sp BorderStyle = 0 'Transparent FillColor = &H000000FF& FillStyle = 0 'Solid Height = 255 Index = 0 Left = 330 Top = 750 Width = 90 End Begin VB.Shape sp BorderStyle = 0 'Transparent FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 1 Left = 450 Top = 750 Width = 90 End Begin VB.Shape sp BorderStyle = 0 'Transparent FillColor = &H0080C0FF& FillStyle = 0 'Solid Height = 255 Index = 2 Left = 570 Top = 750 Width = 90 End Begin VB.Shape sp BorderStyle = 0 'Transparent FillColor = &H00C0FFFF& FillStyle = 0 'Solid Height = 255 Index = 3 Left = 690 Top = 750 Width = 90 End Begin VB.Shape sp BorderStyle = 0 'Transparent FillColor = &H00FFFFFF& FillStyle = 0 'Solid Height = 255 Index = 4 Left = 810 Top = 750 Width = 90 End Begin VB.Shape sp BorderStyle = 0 'Transparent FillColor = &H0080FF80& FillStyle = 0 'Solid Height = 255 Index = 6 Left = 1050 Top = 750 Width = 90 End Begin VB.Shape sp BorderStyle = 0 'Transparent FillColor = &H00008000& FillStyle = 0 'Solid Height = 255 Index = 8 Left = 1290 Top = 750 Width = 90 End Begin VB.Label trackno AutoSize = -1 'True BackColor = &H00000000& BackStyle = 0 'Transparent Caption = " Track" BeginProperty Font Name = "Small Fonts" Size = 6.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000040C0& Height = 165 Left = 1680 TabIndex = 17 Top = 600 Width = 390 End Begin VB.Label trackpos AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "00:00" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000080FF& Height = 210 Left = 315 TabIndex = 18 ToolTipText = "Time elapsed" Top = 395 Width = 405 End Begin VB.Image Image16 Height = 750 Left = 240 Picture = "01.frx":5EFF0 Top = 300 Width = 1350 End Begin VB.Image EQ Height = 135 Left = 3450 Picture = "01.frx":62552 ToolTipText = "Toggle Graphic EQualisers" Top = 900 Width = 255 End Begin VB.Image PL Height = 135 Left = 3720 Picture = "01.frx":62768 ToolTipText = "Toggle PlaylistEditor" Top = 900 Width = 270 End Begin VB.Image Image2 Height = 225 Left = 3210 Picture = "01.frx":629A2 Stretch = -1 'True Top = 870 Width = 735 End Begin VB.Line Line21 BorderColor = &H00404000& X1 = 3960 X2 = 4020 Y1 = 300 Y2 = 300 End Begin VB.Label Label15 AutoSize = -1 'True BackColor = &H00404040& BackStyle = 0 'Transparent Caption = "MAHESH'S MPLAYER" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000040C0& Height = 150 Left = 4560 TabIndex = 23 Top = 3360 Width = 1245 End Begin VB.Label Label6 AutoSize = -1 'True BackColor = &H00000000& BackStyle = 0 'Transparent Caption = "12" Enabled = 0 'False BeginProperty Font Name = "Small Fonts" Size = 5.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000080FF& Height = 120 Index = 11 Left = 3810 TabIndex = 16 ToolTipText = "Track 12" Top = 660 Width = 105 End Begin VB.Label Label6 AutoSize = -1 'True BackColor = &H00000000& BackStyle = 0 'Transparent Caption = "9" Enabled = 0 'False BeginProperty Font Name = "Small Fonts" Size = 5.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000080FF& Height = 120 Index = 8 Left = 3690 TabIndex = 13 ToolTipText = "Track 9" Top = 660 Width = 60 End Begin VB.Label Label6 AutoSize = -1 'True BackColor = &H00000000& BackStyle = 0 'Transparent Caption = "6" Enabled = 0 'False BeginProperty Font Name = "Small Fonts" Size = 5.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000080FF& Height = 120 Index = 5 Left = 3570 TabIndex = 12 ToolTipText = "Track 6" Top = 660 Width = 60 End Begin VB.Label Label6 AutoSize = -1 'True BackColor = &H00000000& BackStyle = 0 'Transparent Caption = "11" Enabled = 0 'False BeginProperty Font Name = "Small Fonts" Size = 5.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000080FF& Height = 120 Index = 10 Left = 3810 TabIndex = 15 ToolTipText = "Track 11" Top = 510 Width = 90 End Begin VB.Label Label6 AutoSize = -1 'True BackColor = &H00000000& BackStyle = 0 'Transparent Caption = "8" Enabled = 0 'False BeginProperty Font Name = "Small Fonts" Size = 5.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000080FF& Height = 120 Index = 7 Left = 3690 TabIndex = 11 ToolTipText = "Track 8" Top = 510 Width = 60 End Begin VB.Label Label6 AutoSize = -1 'True BackColor = &H00000000& BackStyle = 0 'Transparent Caption = "5" Enabled = 0 'False BeginProperty Font Name = "Small Fonts" Size = 5.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000080FF& Height = 120 Index = 4 Left = 3570 TabIndex = 9 ToolTipText = "Track 5" Top = 510 Width = 60 End Begin VB.Label Label6 AutoSize = -1 'True BackColor = &H00000000& BackStyle = 0 'Transparent Caption = "10" Enabled = 0 'False BeginProperty Font Name = "Small Fonts" Size = 5.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000080FF& Height = 120 Index = 9 Left = 3810 TabIndex = 14 ToolTipText = "Track 10" Top = 390 Width = 105 End Begin VB.Label Label6 AutoSize = -1 'True BackColor = &H00000000& BackStyle = 0 'Transparent Caption = "7" Enabled = 0 'False BeginProperty Font Name = "Small Fonts" Size = 5.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000080FF& Height = 120 Index = 6 Left = 3690 TabIndex = 10 ToolTipText = "Track 7" Top = 390 Width = 60 End Begin VB.Label Label6 AutoSize = -1 'True BackColor = &H00000000& BackStyle = 0 'Transparent Caption = "4" Enabled = 0 'False BeginProperty Font Name = "Small Fonts" Size = 5.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000080FF& Height = 120 Index = 3 Left = 3570 TabIndex = 6 ToolTipText = "Track 4" Top = 390 Width = 60 End Begin VB.Label Label6 AutoSize = -1 'True BackColor = &H00000000& BackStyle = 0 'Transparent Caption = "3" Enabled = 0 'False BeginProperty Font Name = "Small Fonts" Size = 5.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000080FF& Height = 120 Index = 2 Left = 3450 TabIndex = 8 ToolTipText = "Track 3" Top = 660 Width = 60 End Begin VB.Label Label6 AutoSize = -1 'True BackColor = &H00000000& BackStyle = 0 'Transparent Caption = "2" Enabled = 0 'False BeginProperty Font Name = "Small Fonts" Size = 5.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000080FF& Height = 120 Index = 1 Left = 3450 TabIndex = 7 ToolTipText = "Track 2" Top = 510 Width = 60 End Begin VB.Label Label6 AutoSize = -1 'True BackColor = &H00000000& BackStyle = 0 'Transparent Caption = "1" Enabled = 0 'False BeginProperty Font Name = "Small Fonts" Size = 5.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000080FF& Height = 120 Index = 0 Left = 3450 TabIndex = 5 ToolTipText = "Track 1" Top = 390 Width = 45 End Begin VB.Image volumebar DragIcon = "01.frx":631A0 Height = 75 Left = 2210 Picture = "01.frx":634AA ToolTipText = "Volume bar" Top = 930 Width = 210 End Begin VB.Image meclose Height = 135 Left = 3930 Picture = "01.frx":635C8 ToolTipText = "Close" Top = 30 Width = 135 End Begin VB.Image Inf Height = 165 Left = 60 Picture = "01.frx":63706 ToolTipText = "Configuration" Top = 0 Width = 165 End Begin VB.Line Line16 X1 = 3960 X2 = 3960 Y1 = 330 Y2 = 810 End Begin VB.Image Image10 Height = 150 Left = 1640 Picture = "01.frx":638D4 Top = 900 Width = 975 End Begin VB.Image min Height = 135 Left = 3780 Picture = "01.frx":640BE ToolTipText = "Minimise" Top = 30 Width = 165 End Begin VB.Label mediatype AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "(MEDIA)" BeginProperty Font Name = "Small Fonts" Size = 5.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000040C0& Height = 120 Left = 2700 TabIndex = 19 Top = 610 Width = 420 End Begin VB.Image Imgbar DragIcon = "01.frx":64244 Height = 90 Left = 240 Picture = "01.frx":6454E ToolTipText = "Seeking Bar" Top = 1110 Width = 435 End Begin VB.Image Image3 Height = 240 Index = 0 Left = 3150 Picture = "01.frx":647A0 ToolTipText = "Toggle repeat" Top = 1350 Width = 420 End Begin VB.Image p Height = 240 Index = 0 Left = 2730 Picture = "01.frx":64D22 ToolTipText = "Toggle shuffle" Top = 1350 Width = 435 End Begin VB.Image cbutton Height = 270 Index = 7 Left = 2010 Picture = "01.frx":652E4 ToolTipText = "Record/Record Pause" Top = 1320 Width = 360 End Begin VB.Image cbutton Height = 270 Index = 2 Left = 540 Picture = "01.frx":65836 ToolTipText = "Play(P)" Top = 1320 Width = 360 End Begin VB.Image cbutton Height = 270 Index = 3 Left = 900 Picture = "01.frx":65D88 ToolTipText = "Pause(P)" Top = 1320 Width = 360 End Begin VB.Image cbutton Height = 270 Index = 6 Left = 1260 Picture = "01.frx":662DA ToolTipText = "Stop(S)" Top = 1320 Width = 360 End Begin VB.Image cbutton Height = 270 Index = 1 Left = 1620 Picture = "01.frx":6682C ToolTipText = "Next track(N)" Top = 1320 Width = 360 End Begin VB.Image cbutton Height = 270 Index = 0 Left = 210 Picture = "01.frx":66D7E ToolTipText = "Previous track(B)" Top = 1320 Width = 360 End Begin VB.Image Image8 Height = 135 Index = 1 Left = 220 Picture = "01.frx":672D0 Stretch = -1 'True ToolTipText = "Seeking Bar" Top = 1100 Width = 3705 End Begin VB.Image Image23 Height = 450 Left = 3360 Picture = "01.frx":6909A Stretch = -1 'True Top = 330 Width = 585 End Begin VB.Label playtrack BackStyle = 0 'Transparent Caption = ". Mahesh Mediaplayer ." BeginProperty Font Name = "Small Fonts" Size = 6.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000080FF& Height = 165 Left = 1680 TabIndex = 20 Top = 390 Width = 1770 End Begin VB.Label volinf AutoSize = -1 'True BackStyle = 0 'Transparent BeginProperty Font Name = "Small Fonts" Size = 6.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000080FF& Height = 165 Left = 1720 TabIndex = 25 Top = 390 Visible = 0 'False Width = 465 End Begin VB.Image Image15 Height = 450 Left = 1620 Picture = "01.frx":6B35C Stretch = -1 'True Top = 330 Width = 2385 End Begin VB.Image Image17 Height = 360 Left = 3920 Picture = "01.frx":6D61E Stretch = -1 'True Top = 300 Width = 150 End Begin VB.Image Image22 Height = 3630 Left = -30 Picture = "01.frx":6D8A0 Top = -15 Width = 4125 End Begin VB.Menu file Caption = "" Visible = 0 'False Begin VB.Menu about Caption = "About Mahesh'sMplayer..." End Begin VB.Menu atop Caption = "Always on top" End Begin VB.Menu ple Caption = "Playlist Editor" Checked = -1 'True End Begin VB.Menu eqe Caption = "Graphic Equaliser" Checked = -1 'True End Begin VB.Menu explored Caption = "Explore mmpWorkarea Folder" End Begin VB.Menu plb Caption = "playback" End Begin VB.Menu exe Caption = "Exit" End End End Attribute VB_Name = "musicsystem" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Dim l As Long Dim m As Integer Public vol As New clsVolume ' Define variants to hold keyword parsing arrays ' *** Establish constants for the registry functions Const HKEY_CLASSES_ROOT = &H80000000 Const HKEY_CURRENT_USER = &H80000001 Const HKEY_LOCAL_MACHINE = &H80000002 Const HKEY_USERS = &H80000003 Const HKEY_DYN_DATA = &H80000004 Const REG_SZ = 1 ' Registry error constants Const ERROR_SUCCESS = 0& Const ERROR_BADKEY = 1010& ' Registry API prototypes Private Declare Function RegCreateKey Lib "advapi32.dll" _ Alias "RegCreateKeyA" _ (ByVal hkey As Long, _ ByVal lpSubKey As String, _ phkResult As Long) As Long Private Declare Function RegSetValueEx Lib "advapi32.dll" _ Alias "RegSetValueExA" _ (ByVal hkey As Long, _ ByVal lpValueName As String, _ ByVal Reserved As Long, _ ByVal dwType As Long, _ lpData As Any, _ ByVal cbData As Long) As Long Private Declare Function RegDeleteKey Lib "advapi32.dll" _ Alias "RegDeleteKeyA" _ (ByVal hkey As Long, _ ByVal lpSubKey As String) As Long Private Sub ResultsImportFile(sFileName As String, media As Boolean) Dim listname As String Dim i As Integer If media = True Then Dim temptrack As file currenttrack = 1 ' = sFileName plst.newpl_Click 'Open App.path + "\mplayerlist.mmpl" For Random As #1 Len = 155 totaltracks = 1 temptrack.path = sFileName File1.path = "" File1.FileName = sFileName listname = File1.List(0) listname = str(totaltracks) + ". " + listname If Len(listname) >= 34 Then listname = Left(listname, 34) + "..." listname = LCase(listname) plst.List1.AddItem (listname) temptrack.name = listname 'Str(totaltracks) + ". " + Left(cd1.FileTitle, 30) + Space(7) + tracklength i = InStr(listname, ".") temptrack.name = LCase(Mid(listname, i + 1, Len(listname))) 'Put #1, totaltracks, track 'Close #1 currenttrack = 1 plst.List1.ListIndex = 0 track(totaltracks) = temptrack Call plst.list1_DblClick 'playtrack.Caption = temptrack.name Label6(0).Enabled = True Else End If End Sub Private Sub GetAppSettings() Dim nLeft As Integer Dim nTop As Integer ' Get the previous left position of the form nLeft = GetSetting(App.Title, "General", "Left", 0) ' Get the previous top position of the form nTop = GetSetting(App.Title, "General", "Top", 0) ' Now reposition the form Me.Move nLeft, nTop End Sub Private Sub SaveAppSettings() ' Save the current form position and dimensions SaveSetting App.Title, "General", "Left", Me.Left SaveSetting App.Title, "General", "Top", Me.Top End Sub Public Sub DroppedFiles(vFileList As Variant) Dim nLoopCtr As Integer Dim sFileName As String ' *** Loop through the variant array to process ' each dropped file 'For nLoopCtr = 0 To UBound(vFileList) ' Get the current file name from the array sFileName = vFileList(nLoopCtr) ' Make sure it is a SAD format file If UCase$(Right$(sFileName, 4)) = ".MP3" Or UCase$(Right$(sFileName, 4)) = ".DAT" Or UCase$(Right$(sFileName, 4)) = ".WAV" Or UCase$(Right$(sFileName, 4)) = ".MPG" Or UCase$(Right$(sFileName, 5)) = ".MPEG" Or UCase$(Right$(sFileName, 4)) = ".AVI" Then 'Form1.MediaPlayer1.FileName = sFileName ' It is the correct file type so import it Call ResultsImportFile(sFileName, True) End If 'Next nLoopCtr End Sub Private Sub SelfRegister(sCommandLine As String) Dim lResult As Long On Error Resume Next DeleteSetting App.Title, "General" DeleteSetting App.Title ' Check to see if the code needs to establish registry settings If InStr(1, UCase$(sCommandLine), "/REGSERVER") <> 0 Then ' Create the file type entries lResult = DeleteRegKey(HKEY_CLASSES_ROOT, _ ".DAT", _ "") ' lResult = DeleteRegKey(HKEY_CLASSES_ROOT, _ "winamp.file", _ "") ' lResult = DeleteRegKey(HKEY_CLASSES_ROOT, _ "MaheshMp3file\Shell\open", _ "") ' lResult = DeleteRegKey(HKEY_CLASSES_ROOT, _ "MaheshMp31", _ "") ' Register the file extension'("")value for default registry ' don't write" " for "" lResult = SetRegValue(HKEY_CLASSES_ROOT, _ ".DAT", _ "", _ "MaheshDATfile") ' Register the extension shell handling lResult = SetRegValue(HKEY_CLASSES_ROOT, _ "MaheshDATfile", _ "", _ "Maheshmp media file") 'assigns type of file in detailed view lResult = SetRegValue(HKEY_CLASSES_ROOT, _ "MaheshDATfile\DefaultIcon", _ "", _ "d:\maheshmp.exe" & ",0") 'assigns exe icon to filename type lResult = SetRegValue(HKEY_CLASSES_ROOT, _ "MaheshDATfile\Shell\play with mahesh\Command", _ "", _ "d:\maheshmp.exe" & " " & Chr$(34) & "%1" & Chr$(34)) ' "%1" is replaced by the correspomding filename selected & henc ew thic particular 'combination gives commmand as <Exe filepath filename> 'and filename is sent as commandline argument lResult = SetRegValue(HKEY_CLASSES_ROOT, _ "MaheshDATfile\Shell\open", _ "", _ "open with Mahesh Mplayer") 'Instructs to display "open with Mplayer " in place of "open" menu command in right click lResult = SetRegValue(HKEY_CLASSES_ROOT, _ "MaheshDATfile\Shell\play with mahesh", _ "", _ "play with Mahesh Mplayer") lResult = SetRegValue(HKEY_CLASSES_ROOT, _ "MaheshDATfile\Shell\open\Command", _ "", _ Chr$(34) & "d:\maheshmp.exe" & Chr$(34) & " " & Chr$(34) & "%1" & Chr$(34)) 'sends command prompt the instruction <exepath "filename"> 'replacing "%1"by filename string End End If ' Check to see if the code needs to remove registry settings If InStr(1, UCase$(sCommandLine), "/UNREGSERVER") <> 0 Then ' Delete the form and application settings ' The error trapping is in case the application ' specific entries do not exist On Error Resume Next DeleteSetting App.Title, "General" DeleteSetting App.Title On Error GoTo 0 ' Delete the file type entries lResult = DeleteRegKey(HKEY_CLASSES_ROOT, _ ".mp3", _ "") lResult = DeleteRegKey(HKEY_CLASSES_ROOT, _ "MaheshMp3", _ "") ' Exit from the program End End If ' If the program gets here there were no self-registration ' tasks to perform, so go back to form load End Sub Private Function SetRegValue _ (lKeyRoot As Long, _ tRegistryKey As String, _ tSubKey As String, _ tKeyValue As String) As Long Dim lKeyId As Long Dim lResult As Long SetRegValue = 0 ' Assume succcess If Len(tRegistryKey) = 0 Then ' The key parameter is not set SetRegValue = ERROR_BADKEY Exit Function End If ' Open the key by attempting to create it. If it ' already exists we get back an ID. lResult = RegCreateKey(lKeyRoot, _ tRegistryKey, _ lKeyId) If lResult <> 0 Then ' Call failed, can't open the key so exit SetRegValue = lResult Exit Function End If If Len(tKeyValue) = 0 Then ' No key value, so clear any existing entry SetRegValue = RegSetValueEx(lKeyId, _ tSubKey, _ 0&, _ REG_SZ, _ 0&, _ 0&) Else ' Set the registry entry to the value SetRegValue = RegSetValueEx(lKeyId, _ tSubKey, _ 0&, _ REG_SZ, _ ByVal tKeyValue, _ Len(tKeyValue) + 1) End If End Function Private Function DeleteRegKey _ (lKeyRoot As Long, _ tRegistryKey As String, _ tSubKey As String) As Long Dim lKeyId As Long Dim lResult As Long DeleteRegKey = 0 ' Assume succcess If Len(tRegistryKey) = 0 Then ' The key parameter is not set DeleteRegKey = ERROR_BADKEY Exit Function End If ' Open the key by attempting to create it. If it ' already exists we get back an ID. lResult = RegCreateKey(lKeyRoot, tRegistryKey, lKeyId) If lResult = 0 Then ' We got a key ID so we can delete the entry DeleteRegKey = RegDeleteKey(lKeyId, ByVal tSubKey) End If End Function '.FileSystemObject Public Sub bar_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 'bar.Move X, Y text1.Text = str(X) + " " + str(Y) End Sub Public Sub button_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) End Sub Public Sub button_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) End Sub Public Sub about_Click() Form2.Show End Sub Public Sub addtracks_Click() End Sub Public Sub atop_Click() Dim k On Error GoTo 1 If atop.Checked = False Then k = SetWindowPos(Me.hwnd, -1, Me.Left / 12000 * 800, Me.Top / 9000 * 600, Me.width / 12000 * 800, Me.height / 9000 * 600, &H40) k = SetWindowPos(plst.hwnd, -1, plst.Left / 12000 * 800, plst.Top / 9000 * 600, Me.width / 12000 * 800, plst.height / 9000 * 600, &H40) atop.Checked = True Else k = SetWindowPos(Me.hwnd, -2, Me.Left / 12000 * 800, Me.Top / 9000 * 600, Me.width / 12000 * 800, Me.height / 9000 * 600, &H40) k = SetWindowPos(plst.hwnd, -2, plst.Left / 12000 * 800, plst.Top / 9000 * 600, Me.width / 12000 * 800, plst.height / 9000 * 600, &H40) atop.Checked = False End If 1: End Sub Public Sub back_Click() On Error GoTo 1 If musicsystem.cbutton(0).Enabled = True Then musicsystem.cbutton_Click (0) 1: End Sub Private Sub balancebar_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim m As POINTAPI Dim k Dim m1 As Integer k = GetCursorPos(m) initialypos = m.Y '- Me.Top / 12000 * 800 initialxpos = m.X '- Me.Left / 12000 * 800 volinf.Visible = True playtrack.Visible = False If balancebar.Left > 2868 Then m1 = Int((balancebar.Left - 2868) / 2.5) If m1 > 99 Then m1 = 100 If m1 < 2 Then m1 = 0 volinf.Caption = "Balance= " + str(m1) + "% Right" ElseIf balancebar.Left < 2870 Then m1 = Int(-(balancebar.Left - 2880) / 2.5) If m1 > 99 Then m1 = 100 If m1 < 2 Then m1 = 0 volinf.Caption = "Balance= " + str(m1) + "% Left" End If If balancebar.Left < 2880 And balancebar.Left > 2850 Then volinf.Caption = "Balance= Centre" '+ 'Str(Int(-(balancebar.Left - 2870) / 2.5)) + "% Left" Form1.MediaPlayer1.Balance = 0 End If End Sub Public Sub balancebar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim m As POINTAPI Dim k If Button = 1 Then k = GetCursorPos(m) If Abs(m.X - initialxpos) >= 1 Then balancebar.Left = balancebar.Left + ((m.X - initialxpos) * 12000 / 800) initialxpos = m.X End If Dim m1 As Integer If balancebar.Left <= 2600 Then balancebar.Left = 2620 If (balancebar.Left >= 3120) Then balancebar.Left = 3120 Form1.MediaPlayer1.Balance = (balancebar.Left - 2850) * 9 Slider4.Value = (balancebar.Left - 2610) / 72 'Slider3.SetFocus playtrack.Visible = False If balancebar.Left > 2868 Then m1 = Int((balancebar.Left - 2868) / 2.5) If m1 > 99 Then m1 = 100 If m1 < 2 Then m1 = 0 volinf.Caption = "Balance= " + str(m1) + "% Right" ElseIf balancebar.Left < 2870 Then m1 = Int(-(balancebar.Left - 2880) / 2.5) If m1 > 99 Then m1 = 100 If m1 < 2 Then m1 = 0 volinf.Caption = "Balance= " + str(m1) + "% Left" End If If balancebar.Left < 2880 And balancebar.Left > 2850 Then volinf.Caption = "Balance= Centre" '+ 'Str(Int(-(balancebar.Left - 2870) / 2.5)) + "% Left" Form1.MediaPlayer1.Balance = 0 End If End If 'Slider4.SetFocus Slider4.SetFocus End Sub Private Sub balancebar_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) volinf.Visible = False playtrack.Visible = True End Sub Public Sub cbutton_Click(Index As Integer) On Error GoTo 1 If plst.List1.ListCount >= 1 Then plst.List1.ListIndex = currenttrack - 1 Select Case Index Case 0 'back totalreplayedtracks = totalreplayedtracks + 1 'totalplayedtracks = totalplayedtracks + 1 'previoustrack(totalplayedtracks) = previoustrack(totalplayedtracks - 1) checkback = True If totalreplayedtracks < totalplayedtracks Then plst.List1.ListIndex = previoustrack(totalplayedtracks - totalreplayedtracks) - 1 If plst.List1.ListIndex <= 0 Then plst.List1.ListIndex = 0 Call plst.list1_DblClick Else plst.List1.ListIndex = 0 End If checkback = False Case 1 'next Call nexttrackplay Case 3 'pause If Form1.MediaPlayer1.PlayState = mpStopped Then 'musicsystem.cbutton(2).Enabled = True Else If Form1.MediaPlayer1.PlayState = mpPlaying Then Form1.MediaPlayer1.Pause 'musicsystem.cbutton(2).Picture = musicsystem.cbuttonE(2).Picture 'musicsystem.cbutton(2).Enabled = True Else If Form1.MediaPlayer1.OpenState Then Form1.MediaPlayer1.Play 'musicsystem.cbutton(2).Picture = musicsystem.cbuttonD(2).Picture 'musicsystem.cbutton(2).Enabled = False End If End If End If Case 2 'play If Form1.MediaPlayer1.PlayState = mpPaused Then Form1.MediaPlayer1.Play ElseIf Form1.MediaPlayer1.PlayState = mpStopped Then Form1.MediaPlayer1.CurrentPosition = 0 Form1.MediaPlayer1.Play Imgbar.Left = Image8(1).width ElseIf Form1.MediaPlayer1.FileName = "" Then Call plst.list1_DblClick End If 'musicsystem.cbutton(4).Picture = musicsystem.cbuttonE(4).Picture 'musicsystem.cbutton(4).Enabled = True 'musicsystem.cbutton(5).Picture = musicsystem.cbuttonE(5).Picture 'musicsystem.cbutton(5).Enabled = True 'musicsystem.cbutton(2).Picture = musicsystem.cbuttonD(2).Picture 'musicsystem.cbutton(3).Picture = musicsystem.cbuttonE(3).Picture 'musicsystem.cbutton(2).Enabled = False 'musicsystem.cbutton(6).Picture = musicsystem.cbuttonE(6).Picture 'musicsystem.cbutton(6).Enabled = True 'musicsystem.cbutton(3).Enabled = True Case 4 If Form1.MediaPlayer1.CurrentPosition > 20 Then Form1.MediaPlayer1.CurrentPosition = Form1.MediaPlayer1.CurrentPosition - 20 Else Form1.MediaPlayer1.CurrentPosition = 0 End If 'Call musicsystem.cbutton_Click(2) If Form1.MediaPlayer1.Duration >= 1 Then Imgbar.Left = Image8(1).Left + Form1.MediaPlayer1.CurrentPosition / Form1.MediaPlayer1.Duration * (3270) Case 5 If Form1.MediaPlayer1.CurrentPosition < Form1.MediaPlayer1.Duration - 20 Then Form1.MediaPlayer1.CurrentPosition = Form1.MediaPlayer1.CurrentPosition + 20 Else 'Form1.MediaPlayer1.Stop 'musicsystem.cbutton(2).Enabled = True 'musicsystem.cbutton(2).Picture = musicsystem.cbuttonE(2).Picture 'bar.Width = Label3.Width Form1.MediaPlayer1.CurrentPosition = Form1.MediaPlayer1.Duration - 0.5 'musicsystem.cbutton(3).Picture = musicsystem.cbuttonD(3).Picture 'musicsystem.cbutton(3).Enabled = False End If 'Call musicsystem.cbutton_Click(2) If Form1.MediaPlayer1.Duration > 0 Then Imgbar.Left = Image8(1).Left + Form1.MediaPlayer1.CurrentPosition / Form1.MediaPlayer1.Duration * 3270 Case 6 If rec = True Then cbutton(7).Picture = cbuttonE(7).Picture rectime = 0 musicsystem.rec_timer.Enabled = False musicsystem.reclabel.Caption = "FILE" musicsystem.reclabel.ForeColor = musicsystem.trackpos.ForeColor ' MMControl2.Command = "stop" 'Call stop_record 'CommonDialog2.ShowSave Call getSaveFile MMControl2.FileName = SaveAudiofile MMControl2.Command = "save" MMControl2.FileName = "" MMControl2.Command = "close" rec_count.Left = reclabel.Left + reclabel.width + 40 rec = False rec_pause = False 'Form1.MediaPlayer1.FileName = SaveAudiofile 'Form1.Hide 'Form1.MediaPlayer1.Play 'Form1.Hide Else Imgbar.Left = Image8(1).Left 'Form1.MediaPlayer1.Stop Form1.MediaPlayer1.CurrentPosition = 0.5 Form1.MediaPlayer1.Stop 'Pause trackpos.Caption = "00:00" 'If Form1.Visible = True Then Form1.trackpos.Caption = trackpos.Caption playtrack.Left = 1700 'musicsystem.cbutton(2).Enabled = True 'musicsystem.cbutton(2).Picture = musicsystem.cbuttonE(2).Picture 'musicsystem.cbutton(3).Picture = musicsystem.cbuttonD(3).Picture 'musicsystem.cbutton(3).Enabled = False 'musicsystem.cbutton(6).Picture = musicsystem.cbuttonD(6).Picture 'musicsystem.cbutton(6).Enabled = False 'form1.MediaPlayer1.CurrentPosition = form1.MediaPlayer1.Duration - 1 'musicsystem.cbutton(4).Picture = musicsystem.cbuttonD(4).Picture 'musicsystem.cbutton(4).Enabled = False 'musicsystem.cbutton(5).Picture = musicsystem.cbuttonD(5).Picture 'musicsystem.cbutton(5).Enabled = False End If Case 7 'open If rec = False Then rec = True cbutton(7).Picture = cbuttonE(7).Picture MMControl2.Command = "close" ' close previously open file MMControl2.FileName = "new" MMControl2.Command = "open" MMControl2.Notify = True MMControl2_RecordClick (0) MMControl2.Command = "record" rectime = 0 rec_pause = False rec_timer.Enabled = True musicsystem.reclabel.Caption = "REC" musicsystem.rec_count.Left = 630 musicsystem.rec_count.Visible = True musicsystem.reclabel.Visible = True musicsystem.reclabel.ForeColor = musicsystem.rec_count.ForeColor ElseIf rec_pause = False Then rec = True rec_pause = True cbutton(7).Picture = recpause.Picture rec_timer.Enabled = False ' MMControl2.Notify = True MMControl2.Command = "pause" Else rec = True rec_pause = False cbutton(7).Picture = cbuttonE(7).Picture rec_timer.Enabled = True 'MMControl2.Notify = True MMControl2.Command = "pause" End If rec_count.Left = reclabel.Left + reclabel.width + 40 End Select 'MMC.Command = "close" 1: Dim k 'k = SetWindowPos(Me.hwnd, -1, Me.Left / 12000 * 800, Me.Top / 9000 * 600, Me.width / 12000 * 800, Me.height / 9000 * 600, &H40) 'rectime = 520 'Text1.SetFocus End Sub Public Sub cbutton_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) cbutton(Index).Picture = musicsystem.cbuttonD(Index).Picture End Sub Public Sub cbutton_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) 'Dim i As Integer 'For i = 0 To 7 Step 1 'musicsystem.cbutton(i).Picture = musicsystem.cbuttonE(i).Picture 'Next 'musicsystem.cbutton(Index).Picture = musicsystem.cbuttonD(Index).Picture On Error GoTo 9 text1.SetFocus 9: End Sub Public Sub cbutton_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) cbutton(Index).Picture = musicsystem.cbuttonE(Index).Picture End Sub Public Sub EQ_Click() Dim k As Integer If plst.Top >= Me.Top + Me.height - 40 And plst.Top <= Me.Top + Me.height + 40 Then plst.Top = Me.Top + Me.height k = 1 attach1 = True ElseIf Me.Top >= plst.Top + plst.height - 40 And Me.Top <= plst.Top + plst.height + 40 Then Me.Top = plst.Top + plst.height attach1 = True k = 2 Else attach1 = False End If If Me.height > 2500 Then Me.height = 1765 Else Me.height = 3610 If attach1 = True Then plst.Top = plst.Top - plst.height - 10 End If If attach1 = True And k = 1 Then plst.Top = Me.Top + Me.height - 10 plst.Show End If End Sub Public Sub EQ_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) EQ.Picture = eqdown.Picture End Sub Public Sub EQ_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) EQ.Picture = equp.Picture End Sub Public Sub eqclose_Click() Call EQ_Click End Sub Public Sub eqclose_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) eqclose.Picture = closedown.Picture End Sub Public Sub eqclose_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) eqclose.Picture = closeup.Picture End Sub Public Sub eqe_Click() Call EQ_Click 'If frmeq.Visible = True Then eqe.Checked = True 'If frmeq.Visible = False Then eqe.Checked = False End Sub Private Sub eqf_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Dim m As POINTAPI Dim k If Button = 1 Then k = GetCursorPos(m) initialypos = m.Y End If eqf(Index).Picture = eqfdown.Picture End Sub Private Sub eqf_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Dim m As POINTAPI Dim k k = GetCursorPos(m) If Button = 1 Then If Abs(m.Y - initialypos) >= 1 Then eqf(Index).Top = eqf(Index).Top + (m.Y - initialypos) * 12000 / 800 initialypos = m.Y End If If eqf(Index).Top >= 3060 Then eqf(Index).Top = 3060 If eqf(Index).Top <= 2310 Then eqf(Index).Top = 2310 'Image12(Index).height = -(590 - eqf(Index).Top) + 90 End If If Index = 10 And Button = 1 Then If playspeed <> (eqf(10).Top - 2450) / 700# - 0.4 Then playspeed = (eqf(10).Top - 2450) / 700# - 0.4 Form1.MediaPlayer1.Rate = 1 - playspeed End If End If 'Dim i As Integer 'Dim l1, l2 As Integer 'Dim ind As Integer 'Line (800, 2000)-(3700, 2200), RGB(0, 0, 0), BF 'Line8.Visible = False 'Line8.Visible = True 'For i = 1300 To 2970 Step 20 'k = k + 1 'l1 = 200 * (eqf(ind).Top - 570) / 700 'l2 = 200 * (eqf(ind + 1).Top - 570) / 700 'If i > eqf(ind).Left Then 'Line (i, 2000 + l1)-(i + 270, 2000 + l2), RGB((200 - l1) + 50, l1, 0) 'ind = ind + 1 'End If 'Next End Sub Private Sub eqf_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) eqf(Index).Picture = eqfup.Picture End Sub Private Sub eqon_Click() If eqon.Picture = eqonup.Picture Then allowrate = False eqf(10).Enabled = False Form1.MediaPlayer1.Rate = 1 eqon.Picture = eqoffup.Picture Else eqon.Picture = eqonup.Picture eqf(10).Enabled = True Form1.MediaPlayer1.Rate = 1 - playspeed allowrate = True End If End Sub Private Sub eqon_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If eqon.Picture = eqonup.Picture Then eqon.Picture = eqondown.Picture Else eqon.Picture = eqoffdown.Picture End If End Sub Private Sub eqon_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If eqon.Picture = eqondown.Picture Then eqon.Picture = eqonup.Picture Else eqon.Picture = eqoffup.Picture End If End Sub Private Sub auto_Click() If auto.Picture = autoonup.Picture Then auto.Picture = autooffup.Picture Else auto.Picture = autoonup.Picture End If Form1.MediaPlayer1.Rate = 1 playspeed = 0 eqf(10).Top = 2660 End Sub Private Sub auto_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If auto.Picture = autoonup.Picture Then auto.Picture = autoondown.Picture Else auto.Picture = autooffdown.Picture End If End Sub Private Sub auto_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If auto.Picture = autoondown.Picture Then auto.Picture = autoonup.Picture Else auto.Picture = autooffup.Picture End If End Sub Private Sub Image12_Click(Index As Integer) End Sub Private Sub Form_Paint() Static k1, k2, a, b Me.Refresh 'DoEvents If musicsystem.WindowState = 1 Then 'Me.Caption = "Mahesh's Mediaplayer" If attach3 = False Then plst.Hide ' Else 'If 'Me.WindowState = 0 Then If mini = True Then plst.Show 'eql.WindowState = 2 'Call Image22_MouseDown(1, 0, 50, 59) End If End Sub Private Sub Image18_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) moovemain = False If plst.Left >= Me.Left + Me.width - 40 And plst.Left <= Me.Left + Me.width + 40 Then plst.Left = Me.Left + Me.width attach1 = True ElseIf Me.Left >= plst.Left + plst.width - 40 And Me.Left <= plst.Left + plst.width + 40 Then Me.Left = plst.Left + plst.width attach1 = True ElseIf plst.Top >= Me.Top + Me.height - 40 And plst.Top <= Me.Top + Me.height + 40 Then plst.Top = Me.Top + Me.height attach1 = True ElseIf Me.Top >= plst.Top + plst.height - 40 And Me.Top <= plst.Top + plst.height + 40 Then Me.Top = plst.Top + plst.height attach1 = True 'plst.Left = Me.Left + Me.width 'attach1 = True Else attach1 = False End If End Sub Private Sub Image22_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) moovemain = False If plst.Left >= Me.Left + Me.width - 40 And plst.Left <= Me.Left + Me.width + 40 Then plst.Left = Me.Left + Me.width attach1 = True ElseIf Me.Left >= plst.Left + plst.width - 40 And Me.Left <= plst.Left + plst.width + 40 Then Me.Left = plst.Left + plst.width attach1 = True ElseIf plst.Top >= Me.Top + Me.height - 40 And plst.Top <= Me.Top + Me.height + 40 Then plst.Top = Me.Top + Me.height attach1 = True ElseIf Me.Top >= plst.Top + plst.height - 40 And Me.Top <= plst.Top + plst.height + 40 Then Me.Top = plst.Top + plst.height attach1 = True 'plst.Left = Me.Left + Me.width 'attach1 = True Else attach1 = False End If End Sub Private Sub Image24_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim m As POINTAPI Dim k moovemain = True k = GetCursorPos(m) initialypos = m.Y - Me.Top / 12000 * 800 initialxpos = m.X - Me.Left / 12000 * 800 If plst.Left >= Me.Left + Me.width - 40 And plst.Left <= Me.Left + Me.width + 40 Then plst.Left = Me.Left + Me.width attach1 = True ElseIf Me.Left >= plst.Left + plst.width - 40 And Me.Left <= plst.Left + plst.width + 40 Then Me.Left = plst.Left + plst.width attach1 = True ElseIf plst.Top >= Me.Top + Me.height - 40 And plst.Top <= Me.Top + Me.height + 40 Then plst.Top = Me.Top + Me.height attach1 = True ElseIf Me.Top >= plst.Top + plst.height - 40 And Me.Top <= plst.Top + plst.height + 40 Then Me.Top = plst.Top + plst.height attach1 = True 'plst.Left = Me.Left + Me.width 'attach1 = True Else attach1 = False End If If Form1.Left >= Me.Left + Me.width - 40 And Form1.Left <= Me.Left + Me.width + 40 Then Form1.Left = Me.Left + Me.width attach2 = True ElseIf Me.Left >= Form1.Left + Form1.width - 40 And Me.Left <= Form1.Left + Form1.width + 40 Then Me.Left = Form1.Left + Form1.width attach2 = True ElseIf Form1.Top >= Me.Top + Me.height - 40 And Form1.Top <= Me.Top + Me.height + 40 Then Form1.Top = Me.Top + Me.height attach2 = True ElseIf Me.Top >= Form1.Top + Form1.height - 40 And Me.Top <= Form1.Top + Form1.height + 40 Then Me.Top = Form1.Top + Form1.height attach2 = True 'form1.Left = Me.Left + Me.width 'attach2 = True Else attach2 = False End If initialpx = m.X - plst.Left / 12000 * 800 initialpy = m.Y - plst.Top / 12000 * 800 initialfx = m.X - Form1.Left / 12000 * 800 initialfy = m.Y - Form1.Top / 12000 * 800 If attach3 = True And attach2 = True Then attach1 = True attach3 = False End If End Sub Private Sub Image24_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim k Dim m As POINTAPI Dim width As Long Dim height As Long text1.SetFocus k = GetCursorPos(m) 'm.X = (X - Me.Left) * 277 / 4110 'm.x = m.x - initialxpos 'm.y = m.y - initialypos If moovemain = True Then width = Me.width / 12000 * 800 height = Me.height / 12000 * 800 If Button = 1 Then If (((attach1 = False) Or (plst.Visible = False)) And ((attach2 = False) Or (Form1.Visible = False))) Then Call Drag(Me) Else k = MoveWindow(Me.hwnd, m.X - initialxpos, m.Y - initialypos, width, height, 1) If attach2 = True Then k = MoveWindow(Form1.hwnd, m.X - initialfx, m.Y - initialfy, Form1.width / 12000 * 800, Form1.height / 12000 * 800, 1) If attach1 = True Then k = MoveWindow(plst.hwnd, m.X - initialpx, m.Y - initialpy, plst.width / 12000 * 800, plst.height / 12000 * 800, 1) End If End If End If End Sub Private Sub Image24_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If plst.Left >= Me.Left + Me.width - 40 And plst.Left <= Me.Left + Me.width + 40 Then plst.Left = Me.Left + Me.width attach1 = True ElseIf Me.Left >= plst.Left + plst.width - 40 And Me.Left <= plst.Left + plst.width + 40 Then Me.Left = plst.Left + plst.width attach1 = True ElseIf plst.Top >= Me.Top + Me.height - 40 And plst.Top <= Me.Top + Me.height + 40 Then plst.Top = Me.Top + Me.height attach1 = True ElseIf Me.Top >= plst.Top + plst.height - 40 And Me.Top <= plst.Top + plst.height + 40 Then Me.Top = plst.Top + plst.height attach1 = True 'plst.Left = Me.Left + Me.width 'attach1 = True Else attach1 = False End If End Sub Private Sub MMControl2_RecordClick(Cancel As Integer) Dim parms As MCI_WAVE_SET_PARMS Dim rc As Long Dim Msg As String * 300 ' Set the record/playback device for mmcontrol2 parms.wInput = Combo2.ListIndex parms.wOutput = Combo2.ListIndex rc = mciSendCommand(MMControl2.DEVICEID, _ MCI_SET, _ MCI_WAVE_INPUT Or MCI_WAVE_OUTPUT, _ parms) If (rc <> NO_ERROR) Then mciGetErrorString rc, Msg, Len(Msg) ' MsgBox msg End If ' Use control panel record format if option is checked If (Check1.Value = 1) Then Dim wf As WAVEFORMAT If (GetDefaultWaveFormat(wf) = False) Then '/ MsgBox "Couldn't get the default format" Else parms.nAvgBytesPerSec = wf.nAvgBytesPerSec parms.nBlockAlign = wf.nBlockAlign parms.nChannels = wf.nChannels parms.nSamplesPerSec = wf.nSamplesPerSec parms.wBitsPerSample = wf.wBitsPerSample parms.wFormatTag = wf.wFormatTag rc = mciSendCommand(MMControl2.DEVICEID, _ MCI_SET, _ MCI_WAVE_SET_SAMPLESPERSEC Or _ MCI_WAVE_SET_AVGBYTESPERSEC Or _ MCI_WAVE_SET_BITSPERSAMPLE Or _ MCI_WAVE_SET_BLOCKALIGN Or _ MCI_WAVE_SET_CHANNELS Or _ MCI_WAVE_SET_FORMATTAG, _ parms) If (rc <> NO_ERROR) Then mciGetErrorString rc, Msg, Len(Msg) MsgBox Msg End If End If End If End Sub Private Sub preset_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) preset.Picture = presetdown.Picture End Sub Private Sub preset_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) preset.Picture = presetup.Picture End Sub Public Sub exe_Click() Call meclose_Click End Sub Public Sub fast_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) text1.SetFocus End Sub Private Sub Form_Activate() On Error GoTo 1 cmo = True plst.List1.Selected(plst.List1.ListIndex) = False plst.Scroll.Top = 90 plst.Frame1(0).Visible = False plst.Frame1(1).Visible = False Slider3.Value = vol.WaveLevel / 3275 + 1 volumebar.Left = 1550 + Slider3.Value * 40 volinf.Caption = "Volume" + str((Slider3.Value - 1) * 5) + " %" '+ Form1.MediaPlayer1.volume) / 25))) + " %" 'form1.scroll.top 1: End Sub Public Sub SetWindowStyle(ByVal hwnd As Long, ByVal extended_style As Boolean, ByVal style_value As Long, ByVal new_value As Boolean, ByVal brefresh As Boolean) Dim style_type As Long Dim style As Long If extended_style Then style_type = GWL_EXSTYLE Else style_type = GWL_STYLE End If ' Get the current style. style = GetWindowLong(hwnd, style_type) ' Add or remove the indicated value. If new_value Then style = style Or style_value Else style = style And Not style_value End If ' Hide Window if Changing ShowInTaskBar If brefresh Then ShowWindow hwnd, 5 End If ' Set the style. SetWindowLong hwnd, style_type, style ' Show Window if Changing ShowInTaskBar If brefresh Then ShowWindow hwnd, 0 End If ' Make the window redraw. End Sub Private Sub Timer6_Timer() Dim str, str1 As String If playtrack.Caption = "" Then playtrack.Caption = ". Mahesh's Mediaplayer . " ' str = Mid$(frmMirror.Caption, 2, Len(frmMirror.Caption)) ' frmMirror.Caption = str & Mid$(frmMirror.Caption, 1, 1) str1 = Mid$(playtrack.Caption, 2, Len(playtrack)) playtrack.Caption = str1 & Mid$(playtrack.Caption, 1, 1) frmMirror.Caption = playtrack.Caption End Sub Private Function GetDefaultWaveFormat(format As WAVEFORMAT) As Boolean '//////////////////////////////////////////////////////////////////////////////////// ' This user-defined function retrieves the default wave format from the registry. '//////////////////////////////////////////////////////////////////////////////////// Dim rc As Long Dim key1 As Long Dim key2 As Long Dim formatName As String * 50 Dim length As Long ' Initialize return code GetDefaultWaveFormat = False rc = RegOpenKeyEx(HKEY_CURRENT_USER, _ "Software\Microsoft\Multimedia\Audio", _ 0, _ KEY_READ, _ key1) If (rc <> 0) Then Exit Function End If length = Len(formatName) rc = RegQueryValueString(key1, "DefaultFormat", 0, 0, formatName, length) If (NO_ERROR = rc) Then rc = RegOpenKeyEx(HKEY_CURRENT_USER, _ "Software\Microsoft\Multimedia\Audio\WaveFormats", _ 0, _ KEY_READ, _ key2) If (NO_ERROR = rc) Then length = Len(format) rc = RegQueryValueEx(key2, _ formatName, _ 0, _ 0, _ format, _ length) RegCloseKey key2 If (NO_ERROR = rc) Then GetDefaultWaveFormat = True End If End If End If RegCloseKey key1 End Function Public Sub Form_DragOver(Source As Control, X As Single, Y As Single, State As Integer) 'Source.Left = X End Sub Private Sub Form_GotFocus() On Error GoTo 9 'Slider1.SetFocus 'Label15.ForeColor = &H80FF80 'RGB(20te Subntr G8_Mo End Sub Privat(20teeonup.P1 \fE * 801 A MCI_WAVE_SET_AVGBYT MCI_WAVE Publiccsy Integericcsy Integer MCI_WA6track.Caption, 1, 1) f01 A 0, _ Y As Single, State As Integer) 'Sou"VE_SEm_AVGBYT d fun As Si(frm A 0, _ Y As Single, State As Integer) 'Sou"VE_SEm_AVGBYT d fun As Si(frm A /////v Me. True ist X 2ption, 1, 1) = ght + 40 Then plst.Top = Me.Top + Me.height attach1 = True ElseIf Me.Top >= plst.Top + plst.height - 40 AHMe.Top + M 02.Ton, 1, t.Left +nd Su /////v Me. True t =5gformatName, _ 0, _ 0, _ _s240 AHMe.Top + M 02.Ton, 1, 1, t.Left +nd Su /////v Me. True t =5gformatName, _ 0, _ i p + p 02.Ton, 1, t.Left 40 Thoe 0, _ Y As Single, Stataptiurce As ' ) = True ElseIf.Wavb le) 'bar.Md(e22_Mo t.LeftIf.Wavbpo ror GoTo yVal sEAD, _ Mo t.LeftIf.l$ves thC.width - 40 And pl 0, _ d If 2ype = GWL Me.Top +ileNassm the regiSves thC.width teRegKe _ Ta 6_Time iaPlay regiSvndex)Ed Sub eim klMoAihen Form1.MediaPlayer1.Play ElseIf Form1.MediaPlayer1.PlayState = mpStopped Then Form1.MediaPlayer1.CurrentPosition = 0 Form1.MediaPlayer1.Play Imgbar.Left = ImplsttheRer1.Plt eRegKe _ Ta 6_Time iaPlay f iaPlay f 4Ke _ Mo t.LeftIf.l$ves thC.width - 40 And pl \fE * 8idtouseUp s t1 = True ElseIf frmCloseKey kan't D.To$ eR_ Ta 6 ElseIf frmCloseKey ka _ 2 p strirmCloseKey ka _ otrol2.DEVICEID, _ E 3eKey ka _ otrol2.9. Elsef hesh's Mediaplayer".a a_+ Me.width - 40 teIf = ImplsttheRer1.Plt eRegKe length = Len(formatpv1m1 = 0 volinf.Caption = "Balance= " + att _ otrol2.9. Elsef n(formatptrol2.9. E opped TToptrol2.9. Eatpm1.MediaPlayert -s _ otrol2.DEVICEID, _ Eip rh Ma" _ otrol,em.'Source.Leu 40 teIf I If (NO_ERROR = rc) Then = True ElseIf frmClThen =_ Mo t.LeftIf.l$ves thC.wAs I: f01 A frmClThen _o t2 p strirmClofIf (oI f01irmClofIL f01 A seIf frmCloseKey kan't D.To$ eR_ Ta 6 ElseIf.l$voI f D.T _ 2 ph5IhuseUp .l$ves thC.w _ T eRegKe l3Duratio(sram e.Left / 12000 * 800 If plst.Left >= Me.Left + Me.widm e1800"ivatee, _ 9 d f3system.uion =f3system.uion =f3systemS 0, "e.Left / 12000"lon.Picture = Y As Si d Foron.Picture = Y As Si d Foron.Picture= MX(oI f01irmClofIL 00"lAs Si d Fortion, 1, 1) = ght + 40 Then " uttonthC.w + plst al$ves thC. _ TrrrrrrrrC. > plst al$T6Wrol2.DEVI'MouseDowWro Set R T m(NO_ERRRhen " uttonthC.w > plst i6st P0"lAs Si d Fortion, 1, 1) = ght + 40 Then " uttonthC.w + plst al$ves thC. 2 'th + 40ion = sonthC.w >o Set R T)laytrack.Caption End lID, _ Eip sicsy EiiTopt + 40 Th0ion = sonthC.w rmatName, leftI4rrrrrrrC. n = sonth+n " uttonthC.w > plst i6snthtI4rr2ight - Shiftl2.9. Eatpm er) t nt - Shiftl2.9. Eatpm er Mo //v Me. True t =5gformatName, _ 0, _ i p + p 02.Ton, 1, t.Left 40 Thoe 0, _ Y As Single, Stataptiurce As ' ) = True ElseIf.Wavb le) 'bar.Md(e22_Mo t.LeftIf.Wavbpo ror GoTo yVal sEAD,lEat+ 40 (tpmoeonup.P1 \fE * 801 Ami,eiNSub 2smoerb le) 'bar=N le)svf01 A ("d 'bar.Md(e22_Mo t.LeftIf.Wavbpo ror GoTo yVal sEAD,lEat+ 40 (tpmoeonupnd AsThelID, _ i0 AHMe=0 (tpmc6e, Stataptiurce As ' ) = True ElseIf.le) 'bar.(2 rma0, _ Y As Singl e1800"belar.Left put = lse e.Left + Me.width + 40ef n(formatptrol2.9. E + Meeeeeeeeeeedar.(2avbpo th + 40ef n(f0"b ( + 40 t.Left al$T6Wrol2.DEVI'MouseDowWro Set R= str1 & Mid$(playtrack.Capti(,lEat+ 40 (tpmoeonupnd Asan40 moeonupnd wmpmoeing * 50 Dim leO tn " utEng * 5f ol2.DEVI'MouseDowWro Set ctFocu * 5f ol2.DEVI'MouseDowWro Set ctFocu * 5f ol2.DEVI'MouseDowWro Set ctFoc&E1.Cu t non_Mouon_Mouon_Mouon_Mt:emain =(playtrack.Capti Ta 6_TimeEng * 5f ol2.DEVI'MouseDow)ger) O 0, _ i p + p 02.Ton, 1, t.Left 40 Thoe 0, _ Y As Singlns As 'cvbpo e ystem.cbyt 40 Thoe 0 yste Dim leO ttonD(Inde po up.e 0 Set R,em.'Sec.lse puon_Mon End lID, _ eRs i er)lAs Si d FortionIlD, 0) / 700# - 0.4 Then playspA XeRegKe _ Ta 6_Tortionp.Top + plst.height - 40the regiSves tayspA)5f ol2.DEVI'MouseDow)ger) O 0, _ i Si d Fortglns As 'cvbpo e ystem.cbyt 40 Thoe 0 yste Dim leO ttonD(In=le, S = TrR'cvbpo O kan't D.To$ eR_ Ta 6 Else mmcontrol2 :0"ie,ht -00*hAC6 Else ean't \ End If En ttonD(In=le, S = TrR'cvbpo O kan't D.To$ eR_ Ta 6 Else mmcontrol2 :0"l"e.Lefffffffffffffffffff(th + Rde Or style_value Else style = style And Not spo ror GoTo yVal sEAD,lEat+ 40 (tpmoeonupnd AsThelID, _ i0 AHMe=0 (tpmc6e, Stataptiurce As ' no$ eR_ _ 'bar=N le)svfStataptiurce As ' no$ eR_ _ 'bar=N 1Sub EQ_MouseDown(Button As Integer, Shift As Integer, et ctc_ Mo C =5gforrC.thC. X\ End If En ttonD(In=le, S = TrR'cvbpo O kan't D.To$ eR_ Ta 6 Else mmcontrol2 :4 vat(2EVI'MouseDowWro Set i0 4End IIIIIIIIIIIIS'MouseDowWro SL = Gs mmco0 The VI'Mou 'musicsyste.Left + pCape Or style_IIIIIS'MouseDowWro pCapMt:emain = stylyle_Isonth+As SingapMt:emain nth+As SingapMt:emain nt0# - 0oni = Tr0>owWro S1M&, _ en(fpub :emain nth+As SingapMt:emain nt0# - 0oni = Tr0>owWro S1M&, _ en(fpub :emain nth+As SingapMt:emain nsAe1M&, _ Pr( 0ght - Shiftl2.9. Eatpm eEh+As SingaV iaPl nth+As S\S\Snf.Captii"n(BuCape Or stiub'MouseDowWro Set ctFoc&E1.Cu t non_Mouon_Mouonlrt -s _ otrol2.DEVIu t non_Mouon_Ao yVahen " uttontht X 2pSshm Mouon_20Shiftl2.9. /////v Me. True 1, 1)5e 1, 1)5e 1ftl2.90# - 0oni = Tr0>owWro S1M&, _ en(fpub :emain nth+As SingapMt:emain nt0# - 0ons, _a :4 vat(2EVIeman_Mouon_Ao yVahen " Singntht i0# - 0ons, _a :n_AD_an't D.To$ eR_ Ta 6 Else mmcontro'Source.Leu 40 te= Pr( 0ght - Sc'nn parms.wOutput = Combo2.ListIndex rc = mciSendCommand(MMControl2.DEVICEID, _ MCI_SET, _ MCI_en = Me.Left + _ otrol2.DE (oni = Trol2.Dth A'.uion =f3system.stIndex rc = mciSend uBn n_Ao2 5f ol2.DEVI'MouseDow)ger).l$voI f D.T _ 2 ph5IhuseUp .l$ves thC.w d2.DEVI'MouseDoion =f3syste 'n rc = mciSe= 1 Th = C3T///p .l$ves thC.w d2.DEVI'MouseDoion =f3syste 'n rc = mciSe= 1 Th = C3T///p .l$vesXance= " + att _ otrol2u0on2, Me.Left / 1200nrcec = mciSe= 'IiE "rh Maciurce As ' ocw2ight Maciurce As ' ocw2ight Maciurc uttonthC= rc) Then rc = RegOpenKeyEx(HKEY_CURRENT_USER, _ h+DE (oni = TrKeyt.Topimer.Enabled = True (oni = TrKeyt.Topimer.Ene-0t-ft AsT _40the regiSveslst.Left = Me.Left + Me.widt 40 Thoe 0 yste Dim leO yn =f3system"5l = 0 Form1.Leu 4m p2 (o= 0 Foue 'o S1),As Former.EneR= str1 & MidiSe= 1 Th = C3T///u+e Me.wii_f 4Ke _a thC.wD(Inde pS1),As Former.EneR= str1 & MidiSe= 1 Th = C3T///u+e Me.wii_f 4Ke _a thC.wD(Inde pS1),As Former.EneR= str1 Me.lis= C3T///u+e Me.wii_f 4Ke _s+_f .LefEnabled = True Case 4 If Form1.MediaPlayer1.CurrentPosition > 20 Then Form1.MediaPlayer1.CurrentPosition = Fyer1.C 4Ke _s+_Position Ivns ' ) = True ElseIf.le) 'bapped TToptre= 1 Th = C3T///u+e Me U3d TTo$ eR_ Ta 6 Else plst.Frame1 led = True EiQi_f 4Ke 'MouseDowWro Set i0 oalue4et \ -sR, _ _6e, Stataplar.Le Form1 \ -sR, .Capti(_0, _ lse led = True True ElseIf.le) 'bapped 6e, Stataptiurce As ' no$ eseDowLong If (NO_ERROR = rc) Then eIf.Wavb le)hen eIf.Wavb le)hen eIf.Wavb le)hen eIf.WaG)ped 6e, Statap4De.Left >= plst.Left + plst.width - 40 And Me.Left <= plst.Left + plst.width + 40doion Statap4De.Left >= plop + Me.heigs= rc) Then e.heigs= rc) Then e.heigs= rc) Then et >= Me.Le= TrR'h0aStatap4De.Left >= plst.Left + plst.width - 40 And Me.Left <= plst.Left r%.Lefffffffffffffffffff(th ffffffffffftach2 = Fav00 'l2 = 20P >= plst.LempMouonlrt -s _e - 14ormatCloseK. ThenFrame1(0).Visible = False plst.Frame1(1).Visible = False Slider3.Value = vol.WaveLevel / 3275 + 1 vol4Wed _Mouo ol2o$ eR_ .mmcon f/ITrR'As MCI_W e0i= Fal50i Forc ol50iion SR att.Fra eIf6e, Stataplar.Le Form1 \ -sR, .Capti(_0, _ str1 Msetem.cbutediaPlayer1.CurrentPoar.Le Form t.Left 40 Thozstr1 Msetem.cbutop, .sh's sg) dth e Subntrtrtrtrtn ntseIf frm11C- 0lue End If 'mn e.h str1 ),As Fom.cbutcmusicsystn ionI8A1.Leu 40 taption En. Msete 4Ke _sm - h+As Singue ElseIf.le) 'bapped 6e, Stataptiurce As ' no$ ese, Statco t =5gformatName, _ Ts pped 6 plst tapt n En. Msete 4Ke _sm - h+As Singue ElseIf.le) 'bapped 6e, Stataptiurc = Rte w15Ind If 'Call mtr1o2- h+As SA2 Function Public Sub Form_DragOver( ElseeDowWro pCapMI plst DO_ERROR = rc) Then eIf.Wavb le)n_Mouonlrt -S3n_Mof3system.uion =f3systemS 0, "ee 4Ke _n nt0# - 0r 0# yste S = TrR'cvbpo 1CI_W e0i= Fal50i plst DO_ERROR =vbpo 1CI_r3 0, "ee 4Ki DO_ERROR ' ol2u0 nlrt -S3n_Mofn.cPcPcP Ts ppedlo5 0, "ee rus e.hvAen " SivAe" uttontovAe" lo5 ( f6e, Sni = TrBcp fouonlrt -po 1CI_W e0i= Fal50i plst DO_ERROR =vbpo 1CI_r3 0, "ee 4Ki DO_ERROR ' ol2u0 nlrt -S3n_Mofn.50i 0 rrrr.Frame1(o3/ o ElsMofurce As ' no$ eR_ _ rBcp no ElsR =vbeR_ _ rBcp no ElsR =vbeR_ _ rBcp no ElsR =vbeR_ _ rBcp no ElsR =vbeR_ _ rBcp no ElsR =v= str1,lIte 4m_AVGBYT d fun As Si(frm A 0, _ Y As Single, StatL plst DO_ERROR e_Isonth+As SingapMt:t DO_ERRO get thwo El _ str1 e El _l re On Error ElsR vbeR_ _ rBcp no ElmnvAe" lo5 ( f6tt DO_alp _ rBc" er M m.Y End If If eqf(Ino ElmnvAe" lo5 ( f6tt Rs Singem.cbyt 40 Thoe 0 yste Dim leO tton Picture Elseat+ 40 (tpmoeonup Dim leO tton PicSstr((e1(o3/ o( f6tt Rs Singem.cbyt 40 Thoe 0 yste Dim leO tton E+el mtr1o2- h+As SA2 Fce As ' ocw2igr///pmlorecord ///pmlorecord ///pmCWo$ eR_59p8y ///pmCWo$ eR_59p8y //_Singem.cbyt R_59p)-rfe" lo5 (tC w = mciSe= 1 Th =e= 1 vp)-r(frm A 0, _ Y 4Ki D800"YT d fun As Si(fr yste Dim leO tton Picture Elseat+ el mt9p)- latp 2igr///pmlrd fun As Si(fr yste Diurce As ' no$ eR_ _ 'bar=N 1Sub EQ_MouseDown(Button As Integer, Shift As Integer, et ctc_ Mo Cee7Cring ( Integer, et cmloege ering cmloe + Form1.hei1S, Stataplar.Le Formsonth+As SingapMt:t DO_ERRO get thwo El _ str1 e El _l tbyt 40uN.nt -po 1CI_W e0i= Fal1tonD As Si(fr y6.nt -po N.nt -po di 0,ke 0'Ntrol2u0on2, \lsR E'l1 = )1Ce plst.Frame1(1).Vizs_ _ rBc0n As I.nt -po 1CI_W e0i= op - 2450) / 700we= 1 ffffftlIach1 = True Else b//pmCLP, \lsR 38'musicsystem.cbutton( a$ en525)))Wavb lECe plst.Fr+e Me.wii_f tton systn ionI8A1.v.v.v.v.v.v.v.v.v.v.v.v.v.vlseat+ el mt9p)- latp 2igr///pmlrd fun As Si(fr yste Diurce As ' no$ eR_ _ 'MTI no$0(fr yste Diurce As ' no$ eseIf.le) 'bappeosdct ctc_ Mo C =5gf1.v.v.G_ 'MTI no$0(fr yste Diur2(_0, _ str1 Msetem.cbutediaPla*ls ' no$ eR_m.cbutediaPla*ls ' no$ eR_m.cbutediaPla*ls ' no$ eR_m.cbutediaPla*ls ' no$ke 0'Ntrol2= _diaPln nth+As SingapMt0(fr yste Diur2(_0, _ str1 Msetem.cbutediaPla*ls ' no$ eR_m.cbutedi2 cbutp 'my r Shift AsStatap4De.Left >= plst.Le 'my r g e El _l tSstr((e1rue (oni r = Fal1tonD As'2000 _l tSstr((e1rue (oni r = Falnnels 40uN.$m.cbunD As'2000 _l tSstr((e1rue (oni 1G_ 'MT$Msei) (oni rCEIw_8f"v str1 ),As Fom.cbutcmusicsystn ionI8A1.Leu 40s2n_Moum.cbutcm4w3+me eu 40str( r g e El _l As Integer, C.width - EQ_MouseD0 Thoe ., F EQ_MouseD0 Thoe ., F EQ_MouseD0 Thoe ibl(igr///pmlrdp.s(MouseDts Form1.'A ibl(igr/s IntegerCoe ., F EQ_ yibl(i utton As Ind Form1.Left <= Me.Left + Me.width + 40 Then Form1.Left = Me.Left + Me.wicst.Top + plst.height -a .El _4De.Left >= plst.Le 'on buttoen Prc3 0, "ee 2000 *m Y xsMouseD0 TAf" lo5 ( f4Nsi 1G_r, Shift Assssssss2000 *ouseeee (oni rnme eu 40se pS1),As 0, Ne = //////fs lo5 (tDsbar=N 1Sub EQ_MouseDown(Button As - 0r 0# yste S = TrR Cee7Cringe= 1 End If End IMsgBo 0 en(fpub :ehem A oni co0P >= bar=N fil(oni r = Falnne3 Diurcon AsbuttonE(2)2bl(igr/s Integr tonE(24on As - 0r 0# f1 Then ouseDoach2 = True ElseIf Me.Top >= Form1.3 Diurcon AsbGetErr///pmlrdp.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.o/.8ElseIf Me.Top >= Form1.3 Diurcon AsbGetErcbuteigr 1 8oe eeee (oni rnmeoion SP- i7D0 Thoe hoe hoe hoe hoe hoe hm5 hoe C hoe C Ts ol50iRfO - EQ_iurcon AsbGetErPublic Sub Form_DragOver(Source As ControP, \lsRe3i0# - 0oni = l hoe End mApmlr1-the regiSveslsMou 0, _ i hmGi- Eip N plst..End mApmlr1-t hwX N plst..E6(hb hoe Nror GoTo 1 cmo hwmo hwmo <DmXS hmGi- Eip N plst.( a$ en' 2 p hp9Mou- 40 And plst.Top <= Me.Top + Me.height + 40 Then plst.Top = Me.Top + Me.height attach1 = True El(rm1.3 Diurrm1.3 Diurcon AsbGetErcbuteion, 1,Eon Aspnble = 0Aon Asb8oIf En ttonD(In=le, Asb8oI hm5= 0Ao:70iRfO - EQ_iurcon AsbGetErPublic Sub Form_Drag plstttonD(In=le, Asb8oI hmg pls 0, Ne = //// lIDiurcon AsbC- 0lue End If o/.o/.o/t - 40 And Form_Drag End Sub PuM8t.Frame198oI.wicstGegerCoe nd IfSoe hsb8oIf ETrR'(SSSSSSSS-c.V Form_Drag Endror GoTo 1E0 And Form_Drag End 0,//////fs lo5 (tDsbar=N 1Sub EQ_MouseDown(Buttonp2 (o= 0 Foue 'o S1),As '(SSSSSSSS-c.V Form_Drag Endror G2ole, Asb8o="5 hoe is2 -c.V ForDrag Ens rm_Der( WciSendCoh1 ce 4Drags + 40 Then pV'ndCoh1 ce 4Drags + 40 x 4Dr Ta 6 Elst .Mingle) eqclose.Wavb leN (o= 0e.W"5 avb leN (o= 0e.WFo=vbe >= n As ls'loe.Wavm2 -c.N x 4Dr Ta 6 Elst .Mingle) eqclose. rm_Deri2) eqclose. + 40 Then plst.Top = Me.Top + Me.height attach1 = True El(rm1.3 Diurrm1.3aSo RegQue/.o/.o/t - 4rol2u0oe + Formntach1 = True El(rm1.3 Diurrm1.3aSo RegQue/auM8t.Frame198oonE eR_m.cbus1em.cbutton( a$ en5.o/.o/i+e.Left +t:t .Mingle) eqc Priv N plst.( a$Ioc&E1.Cu t (oni 1G_ 'MT$Msei) (onit -po 1gQue/.o/(o= 0e.W"5 4rol2u0oe + Fi 1G_ 'MT$Mse (oni )t +t:ure =5 yib lo5 ( po 1gQue/.o/(o= 0e.W"5 4rol2u0oe + Fi 1G_ 'MT$Mse (oni )t +t:ure =5 urrm1.3ayste Dim lar=N 1Sub i 1G>lst..E6(hb hoe Nror GoTo 1 cystem.stIndex rc * 5) + " %" '+ Form1.M'n(But Dim lar=N 1Sub i 1G>lst..E6(hb m.cbyt R_59p)-rfe" d (Tn5.o/.o/i )t +t:ure =5 urrmr 'MT$Mse Eip )t +t:ure =e =5 urrmr 'MT$Mse Eip 7 Mid$(frmMirror.Caption, 1, 1) trol2.DEVICEeft + Me.widthy)t +t:ure =5 sye 4 cystem.sodption = roP, 1).VizsU1, k2, aht / 12000 * 800 If ingle)'m.cbutcmusicsy Ta rc * 5) + " %" '+ MT$Mse ( t non_Mouon_Mouonlrt - r4ht / 1200'er) 'Sou"V>r1o2- SL//i exe_Cl Y As SinAs Sicystf Me.Top >= Form1.3 Prs"'_SET_SAMPLESPERSEC O=-v)a2 :0"l"cystf Me.Ts >= FOd funeWil8"1Sub i 139'Od eR_m.cbut4 ( t noi 1G>lst..E6(hb m.cby-v)a1o2- h+uneWil8"1Sub ieqcloss >= plst.Le 'my r g e El _l tSstr((e1rue (oni r = Fal1tonD As'2000 _l tSstr((e1rue (oni r = Falnnestr( rmen Form1.Left = erCancel3 lar0s rc * 5) + " %" '+ MT$Mse ( t non_Mouon_Mouonl4mat(wf) = False) Then Mouonlrt tlowMPLE<ror rc * 5) + " %" '+ MT$Mse . '//////////X91G_ 'MT$Msei) (onit %" '+tNs= rc) 5=n Public MT$Mse ( t non_Mouon_Mouonlrt - r4ht / 1200'er) 'Sou"V>r1o2- SMse ( t non_Mouon_Mouonlnt -po N.nt -po di 0,ke 0'Ntrol2u0on2, \lsR RO g73gu N plstnm, c9m_Draouon,0I, aht UR_m.cbutRO g73gu N plstnm, 'MT$Msei) (oni r 8ultWaveFormat(w-..v.v.v.n ttonD(In=leraouoS$Msei) (dt(w-.rm1)qc Priv sicsystem.c VGBYT d fuXuneWil8"1Sp_Mostem.c V.Vizs_ _ rBc0n As I.nt -po 1CI_W e0i= op - yostem.c V.sRW rBc0n A no uonlrt - rssR RO g73gu N plstnm, c9m_Draouon,0I, aht UR_m.cbutRTr0s e4pH.l$ves t = mciS - rssR RO tem eR_ _ r/////neWil8"1S dW e0i=stnm, SL//i eMe.Left <= p True c" l+ " %" '+ MT$Ms'Ao:7 rssR $0(fr izs_ _ ri+ " %" '+ MT$Ms'Ao:7 rssR $0(fr izs_ _ ri+ " %" '+ MT$Ms'Ao:7 rssR $0(fr8"1S dWFal50i.5Mouonl2of.v.v0025S1M&, _mb i 139'Od eR_ Sub Image18_Mous Fop = mciSendThe VI'Ms2iF( i 13e _MoIn3s SingapM( dea1m g73gu N plstnm, c9m_Draouon,0I, aht UR_m.cbutormatN-po N.nt - _Mow, _mb i 13>tormatN-po N.nt - _Mow, _mb i 13>tormatN_Mouo ol2o$ eR_ .mmcon f/ITrR'As MCI_W e0i= Fal50i Forc ol50iion SR att.Fra eIf6e, Stataplar.Le Form1 \ -sR, .Capti(_0, _ str1 Msetem.cbutediaPlayer1.CurrentPoar.Le Form t.Left 40 Thozstr1 Msetem.cbutop, .sh's sg) dth e Subnndex) = False plst.Scalst..E6(hb hoe Nmat(w-I2eft 40 Thozstr1 Mso hoe Nror GoTo 1 = Fsg)ge18_Mous Fop = mciSendThe VI'Ms2iF( i 13e _MoIn3s SingapM( dea1m g73gu N plstnm, c9m_Draouon,0I, aht UR_m.cbutormatN-po N.nt - _Mow, _mb i 13>tormatN-po N.nt - _Mow, _mb i 13>tormatN_Mouo ol2o$ eR_ .mmcon f/ITrR'As MCI_W e0i= Fal50i Forc ol, _mb i 13>to$Msei)ataplat / 1200'epG>lst..E6(hb l2o$SL//i PSub Private Sub Image22_eow, _mb i 13>tot.Top (oo ol2o$ et(_0, _( f4NsiaPlayer1.Ra 0oni butyEc25 yib lo5matN-po N or GoTo 1 = Fsgo <DmXS 'As MCI_W e0i= Fal50i Forc ol, i2) eqclose. + 40 R_ _ tem.sodption = roP, 1).VizsU1, k2, aht / 12000 * 800 If ingle)'m.cbutcmusicsy Ta rc * 5) + " %" '+ MT$Mse ( t non_Mouon_Mouonlrt - r4ht / 1200'er) 'Sou"V>r1o2- SL//i exe_Cl Y As SinAs Sicystf Me.Top >= Form1.3 Prs"'_SET_SAMPLESPERSEC O=-v)a2 :0a p + pls MT$hMouonE_SE.3 D/ s)orm3aSo R0m g73gu tedia r+t:u/ , i2) eqclose. + 40 '+ MT$Mse ( t non_Mouon_Mouonlrt - r4ht / 1200'er) 'Sou"V>r1o2- SL//i exe_Cl Y Ash1 %"asMCecf 4Ke 'Mous = Me.Lef p2 (o= 0 Foue 'o S1),As Former.EneR= str1 & MidiSe= 1 Th = C3T///u+e Me.wii_f 4Ke _a E XS 0 Foue 'o S1),As For 0 Foue 'uon_Mostf Me.MidiSe= 1 Th = C3T///u+e Me.wii_f 4Ke _a 2u0oe + Fi 1G_ 'MT$Mse .cbutcMouonlrt - r4ht /c * 5) + " %" '+ MT$Mse ( t non_Mouon_Mouonlrt - r4ht / 1200'er) 'Sou"V>r1o2- SL//i exe_Cl Y As SinAs Sicystf Me.Top >= Form1.3 Prs"'_SET_SAMPLESPERSEC O=-v)a2 :0a p + pli o) (dt(w-.rm1)qc P,rnme iqcMouonlrtror ElsR vbeR_ N.ntaa2" f01 A p yed on_Mou gr///pmlrd fun Aso vm 58 Mid gro 3str1 & MidiSe= 1 Th = C3Cl li o) (dCLP, \lsRm+ " %" '+ MT$Mse ( t non_Mouon_Mouonlrt - r4ht / 1200'er) 'Sou"V>r1o2- SL//i exe_Cl en e.heigs=//////1c r+t:u/ , i2) eqclose. + 40 '+ MT$Mse ( t non_Mouon_Mouonlrt - r4ht / d$ystOrag(MeBt (oni 1G_ 'pse. + 40 '+ / d$ys ,SinAs Sicystf Me.Top >= Form1.3 Prs"'_SERSEeft +se ( E C_SERSEeft +se Ae Ae MT$Ms'Ao:7 rss cyste Ae Ae_ 'pse. + 40 '+ / d$28M= Trueeeeyste pse. + lrec= FR'cvbpo 17 rSic'er)u+e Me.wimnec = wf.nSamplesPhusics :0a p + pli o) t:u/ , i 'As MCI_W e0i= Fal50i ForcDWavbdal50i Forc4&o i :0a p + pSEefcR r4ht / 1200'er) 'Sou"V>r1o2- S.width Sf Me.Top >= Fy3lrt $Ms'Ao:7 2) ee wForT$Mse (oni )t +t:S-"'_SER1 cysr)alit non_Mouon_Mouonlc N c'er)u+e Mc/ d$U Me.hSou efr Me.Ei p + plil-he rege = Tr.Framd$28ralnn 3s Sing5lst.ouonlrlrlrlrlrlrlrlrlrlrlrlrl E XS 0 Folrlrlon_Mou00'er) 't - Sc'n ft + Me.po N.nt rCI_ SL//i exe_Cl en e.hei)qc P,ou00'er) 't - Sc'n ft + Me.po N.nt rCI_ SL//i exe_Cl en e.hei)qc P,ou00'er) 't - Sc'n ft + Me.po Nou00'ese.Leu 40 teIf I Msete 4Ke _sm - h+As Sinwo:7 2) ee wForT$Mse (oni e A rc * 5) + " %" '+ Form1.M'n(But Dim la0 vv) mole 40 '+ Mpdng Dim f Dim la0 va00'Singue 40) 0, _ str1 Msetem.cbutedE XS 0 0, _t+ Form$Mse (otr1 Msetem.cbutedE XS 0 0, _t+ Form$Mse (otr1 Mse no uonlrvtpltWavS 0 0,eR= str1 & Y As Singl e1800"belar.Left p. 40 '+edia n_Mouoe sg MT$Ms'Ao:7 rss cyste Ae Ae_ Ae_ / d$//ie.ToM7 rss cyh<= stror rcbelar.LEgKe length Form.t//i exe_Cl en e.hei)qc P,ou00'erC + " %" '+ 0l2u0oe + P,ei)qcl en e.hei)qc P,oerC + " '+ 0l2u0o =vbeR_ _ rBcp no ElKe length Form.t//i exe_Cl en e.hei)qc P,ou00'erC + " %" '+ 0l2u0oe + P,ei)qcl en e.hei)qc Pyh<= stror rcbelar.LEgKe . _Mo Pyh<= stror r 5) +M _Msf s Si d tva00 nor rcbelar.LEgK e.hercbelar.LEgKe 2t n e.hess 0l2u0oe + P,ei)qcl en e.hei)qc P,oerC + " '+ 0l2u0o =vbeR_ _ rBcp no ElKe length Form.t//i exe_Cl en e.hei)qc P,ou00'erC For r+t0, _ Y 4Ki D800"YT suteion, 1,ev0000'erm la0 va00'Singue 4, 1,ev0 exe_Cl Y Ash1 % ElKe lenor Th = C3T/ofIf E>= bar=N fil(oni r = Falnne3aSvbeR_ _ rBcp no Elo ElKe lengt n).VizsU izsU len Truee rnmeogt n)o.o/tTrue 6.+ PapCl en e.hei)qc P,ou00'erC + " %" '+ 0l2u vm , \lsR9e" '+ + " %" '+ 800Pyh<= s MpdMi 2t n e.hess 0l2r = Falnne3aSvvvvvvvvvvvvv"rC Form.t//i exe_Cl en e.hei)qc P,ou00'erC For r+t0, _ Y 4Ki D800"YT suteion, 1,ev0000'erm la0 va00'Singue 4, 1,ev0 exe_Cl Y Ash1 % ElKe lenor Th = C3T/ofIf E>= bar=N fil(oni r = Falnne3aSvbeR_ _ rBcp no Elo ElKe lengt n).Vizs)l(oni r = Falnne3aSvbeR_ _ rBcp no Elo ElKe lengt n).Vizs)l(oni r = Falnne3aSvbeR_ _ rBcp no Elo ElKe lengt n).Vizs)l(oni r = Falnne3aSvbeR_ _ rBcp no Elo ElKe lengt n).Vizs)l(oni r = Falnne3aSvbeR_ _ rBcp no Elo ElKe 7D0 Thoe hoe )fo2 o_ _l//v1l Y Ash1 %"ty )fo2 o_ _l//v1l 71 %"ty Ele. TSF:u/ RyO"ty )fo2 A ThoeS R_ _oe lnt -po N.nt -po di FalcrC.w + plst \+h0aStLong }e.sh's e lengt n)yO"ty " '+ rBcp no Elo ElKe 7D0 Te= 1 ffffftlIach1 = True Else0i-0'er) 'Sdth Sf Me.Top >= op = mciSendThe VI'M= Fal.rm1)qc P,rnme 4)t +t:ure =5 urrmr 'MT$Mse Eip )t +t:ureMT$urrmr 'MT$Mse Eip )touoe s e0i-0'er) 'Sdth $&i)touoe s e0i-= C5 '+ 0l2u0oe + P,ei)qc mciS en p = mciSendxe_Cl Y Al8"1Sub ieqRDSu0oe + P,ei)qBcp n NmciS _M hsb8oIAl8"1S P,ei)0"YT no Elo ElKe 7D0 Te + sU len )fo2 o_ _l//gem.cbyt 40 T8)t +t:ur01 A hsd6StIf.l$ves thC.wAs I: f01 A frmClThen _o i" '+ + " %" '+ 800Py.+ PapCl en dxe_Cl Y AA hsd6StIf.(t '+ 0l2u0o =00P4Ki Da0 d >O40doion Statap4De.Leftlo ElK.Ki :D800"YT suteiN00"YT s1,ev0fvrm t.Left 40u0do '+ / d$281 kan'tvrmMidiSeP,ei)0xm)1lrt - r4ht / 1200'er)- h+As Sinwo:7 2)fm)1li_E6(hb hoe Nror GoTo Position > 20 Then Form1.MediaPlayer1.CurrentPosition = Fyer1.C 4Ket Dim la0(t '+ 0l2u0o =00P4Ki Da0 dS hoe Nmat(w0P4S hoe Nmat(w0P4S hoe Nmat(1,ev0fl Y A/i exe_Cl Y Eipen y E MYT no0engt nTrueeeeys" '+ rBcp444444444441Nmat(w0P4S 0doion Statgt nTruWPy.+ PapCl en dxe_Cl Y AA hsd6StIf.(t '+ 0l2u0o =00P4Ki Da0 d >O40doion Statap4De.Leftlo 44444441Nmat(w0P4SsO40doion Statap4De.Leftlo 44444441Nmat(w0P4SsO40doion Statap4De.Leftlo 444 r4ht /00'er) 'Sou"VP,ei)0xm)1lrtnsO4"onlrt - rG0"YT no bamer4htmat(w0_m.cbu"V>r1o2- SL/ilse0i-0'l8""V> n PictegQue/au_ no0ef4 1200'ercbeve(B= C3T/,ev0 evDy " '+ rBcp no Eii= C3T/4444444441Nmat(w0P4S 0d N.nt rCI_ S0m0d 7bamer4htmat(w0_m.cbu"V>r1o2- SL/ilse0i- 40 Thozstr1 Mso ho'or rcbys" '+ rBcp444444444441Nmat(w0P4S 0doi-"'_SHal Y Ash1 %"asMCecf 4Ke 'Mous = Me.Lef p2 (o= 0 Fou Int rCI_ S0,1200'ercbeve(f"0oe + P5m)1lrtnsO4"onlr 0doi-"'_SHal Y Ash40u+ P5m)1lrtnsO4"onl"r+t0, _ Cnh40u+, i' v0 exem.Y - Form1.To 4Ke 'Mpf p2 (o= 0 Fou Int rCI_ S0,1200'ercbeve(f"0oe + P5m)1lrtnsO4"onlr 0doi-"'_SHSm 444 r4:emai6 Th I_ S0Mo _lr 0doi-"'_,,m 0 \(o= eu/.oc hoi ho>owWro S1M&i0P01 A fo'_SHal Y Ash40u+ P5m)1l(3m1.3a h ..h 1,Efm3T/,444 r4:ema9 4444I6 Th I_ S0Mo _lr 1o2- SLC 1,Efm3T/,444 r4:ema9 4r)- h+As S 0C 1,Efm3T/3T/,44oEa r+t:u/ , i2) eqclose. + 40 '+ MT$Mse (_po N.oc mciSbeve(f"0ohen Form1.MediN pls/////////////////////////////// Eipen y /e0i-= C5 '+ 0l2u0R_m.c.TS41Nmat//////-ise0i-0' End Subp4De) SL/ilse0fv44444444441Nmat(w0P4 lenor S %"o4Ket Dim l////////////// EipeOi-= C5 Me.widthy)t +t0'erC + " %" '+ 0l2u vm , \lsR9e" '+ + " %" '+ 800Pyh<= s MpdMi 2, \lsrmCl1or S %"o'MT$mCl1or S %"o'MT$mCl1orn5 Me. 2, \lsrmI4As S_ S_ en e.hei)q\lsrmI4As S_ S_ en e.hei)qbomormatN c5e 1, rc * 5) Wil8" 2, \lsrmI4As S_ S_ en e.hei)q\ls6oAs SinlEoT + "a h ..h 1,Efm3T/,444 r4:i2u vvvvvvvvvv u///// E9 %" '+ 801,Efm3T/,4o.o/tTrue 6.+ PapCl en :i2u vvvvvvvvvv uy " '+ r1n e y, rc * 5) WislsR9e5E6///- y, rc * 5) WislsR9e5E6///- y, rc * 5) WislsR9e5E6///-tion En. Msete rC///////4 r"YT s1,ev0fvrm t.Le p. 40 '+edia h teRegKo ol2oT Me.wid2.DEVICEef"+ r1n e f e.hei)qc r13t:ure nor 0l2oT Me.wid3Statu m"+ r1= Tnormer.EneR= st3t:ure nor 0l2oT Me.wid3Statbtbtbtbtbtbtbtbtbtbtbtbtbtbtbtbtbtbtbtbtbtbtbtbtbtbtbtbtbtbtbtbtbtbtbtbtbtbtbbtbtbtbtbtbbts 0l2oT Me5E6///- + r1n e 0ei)q\lsrmI4As S_ S_ en e.hei)qbomormatN ct-S rd3Statber.Es'2 s e0i-0'er) 'Sdth $&i)touon0 "a h ..h 1,Efm300'Singue 4, 1,ev0 exe,2uev0 p4De) )stouon0t s 0'er) 'Sdth ////neWil8"1S duseDts Form1.'A O} 0l2u0R_m.c. Top = Me.Top + Me.height attach1 = True El(rm1.3 Diurrm1.3aSo RegQue/.o/.o/t - 4rol2u0oe + Formntach1 = True El(rm1 en dsI4As S_ S_m1 eneoy, )stoye,2uev0 p4De) )stouon0t s 0'er) 'Sdth ////neWil8"1S dusa ETr2 0'= C5 0'er) 'Sdth ////neWil8"1S dusa ETr2 0'= C5 0'er) 'Sdth ////neWil8"1S dusa ETr2 0'= C5 0'er) 'Sdth ////neWil8"1S dusa ETr2 0'= C5 0'er) 'Sdth ////neWil8"1S dusa ETr2 0'= C5 0'CqElo E= C=a EV>EV>EV>EV>EV>E8"1S neWil8"1EC) 'Sdth N0t o5 6 oForm re no V>Er = Fa11Snsicsys+ Papeight attach1 = Tren e.hei)S El(rm1 en dsI4As S_ S_m1 enef01irmClofIL 00"ldThe VI'Ms2iF( i 13e'Uf 0''+ +n+ "a h ..h 1f ( i 13e'Uf 0''+ +n+ 2(rm1.3 Diurrm1.3aSo lrdp.s(ach1 = Tren e.hei)S El(rm1 en dsI4As S_ S_m1 enef01irmClofIL 00"ldThe VI'Ms2iF( i 13e'Uf 0''+ +n+ "a h ..h 1f ( i 13e'Uf 0''+ +n+ 2f ( i 13e'Uf 0''+ + +n+ 2(ted(plst.List1.LirdwE ( i 13e'Uf 0''m1.'A O} 0l2u0R_m.c. Top = Me.Top + Me.height attach1 = True El(rm1.3 DiurrSd////-iset s (4rol2u0oe + Formn"1f hi"asMCecf 4Ke 'Mous = Me.Lef p2 (o= 0 Fou Int rCI_ S0,1200'ercbeve(f"0oe + P5m)1lrtnsO4"onlr 0doi-"'_SHal Y Ash40u+ P5m)1lrtnsO4"onl"r+t0, _ Cnh40u+, i' v0 exemlrtnf p2 owWrR_m.I1(4rol2u0oe + Foc Me. 2, \lsrmI4As S_ S_ en e et(_0,'+ r1n e .c. Top pV'ndCoh1 ce 4Drags + 40 x 4Dr Ta 6 Elst .Mingle) eqclose.Wavb leN ld"4 Dim str, str+ rBcp444444444441Nmat(w0P41"'_SER1 cysr)alit noqclose.Wavb le_SHal Y i. Top i .Megs + 40 x 4Dr Ta 6kvbeR_ _ rBcp no ElCoh1 oS h ercbeve(f"0oe + P5m)1lrtnsO4"onlr 0doi-"'_SHSm 444 r4:emai6 Th I_ S0Mo _lr 0doi-"'_,,m 0 \(o= eu/.oc hoi ho>owWro S1M&i0P01 A fo'_SHal Y Ash40u+ P5m)1l(3m1.3a h ..h 1,Efm3T/,444 r4:ema9 4444I6 Th I_ S0Mo _lr 1o2- SLC 1,Efm3T/,444 4nnh40u+, i' v0 exemlrtnf p2 owWrR_m.I1(4rol2u0oe + Foc Me. 2, \lsrmI4/,444 r4fl8"1 1,Efm3T/,444 r4:ema9 4444I6m3T/,444 4nnh40u+, i' v0 ot 2 o444 4nnh4 sicsy EiiTopt + 40 Th0ion = R_ gth Form.t/u hoi hI1(4rol2uo'= R_ gthrtc r hob iE+ For v0 ot i+ +nthrtcm.cbyer.Es'2 rs"'fm1 enef01irf01irfl (rtnf n0dot i+ +nthrtcm.cbyer.Es' or 2)r1.CurrentPosiT<= s MpdMi G"asMCecf le) p2 owWrR_m.I1(4rol2u0oe + Foc Me. 2, \lsrmI4/,444 r4fl8"1 1,s lo5 (tDsbar=N 1Sub EQ_MouseDown(Button As - 0r 0# yste S = TrR Cee7Cringe= 1 End If End IMsgBo 0 en(fpub :ehem A oni co0P >= bar=N fil(oni r = Falnne3 Diurcon AsbuttonE(2)2bl(igr/s Integr tonE(24on As - 0r 0# f1 Then ouseDoach2 = True e Integr tonE(24on As - 0r 0# f1 ThenapCl P,ei)qBcp 6tt DO_a'MouseDown(Blnn_"0oucv0 exemlrtnfcsy EiiTopt + 40 Th0ion = R_ gth Form.t/u hoi hI1(4rol2uo'= R_ gthrtc r hobni r 8(Eon = Ruttton 1Is =nfcsy El8"1S dusa ETr2 0'I3e'Uf 0''m1.'A O} 0l O} 0l O} 0l O} 0l O} 0/tTxe_Cl Y As SinAeN (o0l O} 0l eIf.Wavb EMto$Msei)ataplrtnl O} 0l 0 Msei)atapTDown(Blnn_"0ouiymnta O} 0l O} 0/tTxe_Cl Y i+ +nthrtcm.cbyer.Es' 'C For r+ )touoe s e0i-0'} 0l Msei)atapTDown(Blnn_"0ouiymnta O} 0l O} 0/tTxe_Cl Y i+ +nthrtcm.own4Cecf le) p2 owWrR_m.I1(4rol2u0oe + Foc Me. 'Sdth Y 4Ki suseDoach2 = Trurm1.'S %(4rol2uo'= R_odiaPl+ P5m)1l thruev0 p4De) )stouon0t s E.e + ltX. bOM&i0P0 rol2u0oe .orm1.M n = sonth+nDsm1.39le_SHal Y= TrurmrmI4As S_ S_ l Y= TrurmrmI4As s .MidiSe= d funouorC.w + pl s .MidiSe= d funouorC.worCouoiC.w D VI'Ms2iF( i 13e _Mo13 %"o'MT$mCl1or S ouonlr .worCouo.0l O} S ouonlr .worCouo.0l o44o///- + Dim f Dim btbtbtb ingo'MT$mCl1ht//- M7ou00'er) 't - Sc'n ft + Me.Wro'Ms2iF( i 16 Else pR'cvbpo 17 rSic'er)u+e Me.wimnec = wwWrc0n As I.nt -po 1CI, m"+ r1= TnormM d fuI.ntTh0i"o'MT$ = w 'uon_Mostf Me.MidifuI ww=tTh0i"o'My6) } 0/tTxev444444441Nmat(( i 16 Else pR'cvbpo 17 rSic'er)u+e Me.wimnim str, str+ rBcp44444er.Es0po 17 o44o///dO O} 0/tTxe_Cl Y As SinAeN (o0l O} 0l eIf.Wavb EMto$Msei)ataplrtnl O} 0l 0 Msei)atapTDown(Blnn_"0ouiymnta O} 0l O} 0/tTxe_Cl Y i+ +nthrtcm.cbyer.Es' 'C For r+ )touoe s e0i-0'} 0l Msei)atapTDown(Blnn_"0ouiymnta O} 0l O}"0ouiymnta O} 0l O} 0/tTxe_Cl Y i+ +nthrtcmmnim str, str+ rBcp44444er.Es0po 17 o4ei)atapT'MT$ = w A 2, dusa ETr2 0'= C5'm1.'lKe le) p2 owWrR_m.I1(4rol2u0oe + F0Cl1or S ouonlr .worCouo.0l O} S ouonlr .worCouo.0l I_ S0Mo dS ouonlr .worCouo.0l I_ S0M fuXuITh0i"o'MT/,444 r41mats'A0po 17l 0/tTxe_ClE t /eworCouo.0'Ao:7 2)MTA0po 17l 0/tTxe_ClE t /eworCouo.0'Ao:7 2)m btbtbtb sonth+nDsm1.nlr ouorCouclob0a0i"o'MT/,444 o44o///dO p1 o/.p4444n se/,4ce tbtb sosT'MT$ 0r Me. iaPla,ssh1 l2oL) e lose r+ )toufiaPla,sshmls'Ao:7 rplil-he oL) e lose r+ )toupen dsaouon,0I, ah ah ah ah ah ah ah ah