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 / 1_2002.ISO / Data / Zips / mp3_player619833142002.psc / frmMP1.frm (.txt) < prev next >

Wrap

Visual Basic Form | 2002-03-14 | 32.0 KB | 1,054 lines

VERSION 5.00 Object = "{22D6F304-B0F6-11D0-94AB-0080C74C7E95}#1.0#0"; "MSDXM.OCX" Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX" Begin VB.Form frmMP1 BorderStyle = 0 'None ClientHeight = 3195 ClientLeft = 1545 ClientTop = 1605 ClientWidth = 4680 ControlBox = 0 'False Icon = "frmMP1.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False ScaleHeight = 3195 ScaleWidth = 4680 Begin VB.Timer tmrMove Left = 840 Top = 2160 End Begin VB.HScrollBar VSvolume Height = 255 Left = 1320 TabIndex = 13 Top = 1080 Visible = 0 'False Width = 1215 End Begin MSComDlg.CommonDialog CD Left = 1800 Top = 1440 _ExtentX = 847 _ExtentY = 847 _Version = 393216 End Begin VB.PictureBox imgState AutoRedraw = -1 'True AutoSize = -1 'True BorderStyle = 0 'None Height = 105 Left = 120 Picture = "frmMP1.frx":038A ScaleHeight = 105 ScaleWidth = 180 TabIndex = 5 Top = 360 Width = 180 End Begin VB.Timer tmrPT Interval = 400 Left = 120 Top = 2160 End Begin VB.Image imgVisOn Height = 210 Left = 2280 Picture = "frmMP1.frx":04C8 Top = 2400 Visible = 0 'False Width = 645 End Begin VB.Image imgVisOff Height = 210 Left = 2280 Picture = "frmMP1.frx":0C42 Top = 2760 Visible = 0 'False Width = 645 End Begin VB.Image imgVis Height = 210 Left = 3120 Picture = "frmMP1.frx":13BC Top = 840 Width = 645 End Begin VB.Image imgEnd Height = 150 Left = 4440 Picture = "frmMP1.frx":1B36 ToolTipText = "Exit" Top = 0 Width = 150 End Begin VB.Image imgLogo Height = 240 Left = 4320 Picture = "frmMP1.frx":1CB8 ToolTipText = "General Options" Top = 2880 Width = 240 End Begin VB.Image imgAuto Height = 210 Left = 720 Picture = "frmMP1.frx":2042 ToolTipText = "AutoLoad Options" Top = 840 Width = 720 End Begin VB.Image imgRand Height = 210 Left = 1800 Picture = "frmMP1.frx":2864 ToolTipText = "Randomize Toggle" Top = 840 Width = 540 End Begin VB.Image imgPL Height = 210 Left = 2520 Picture = "frmMP1.frx":2E8E ToolTipText = "Playlist Toggle" Top = 840 Width = 375 End Begin VB.Image imgRandOn Height = 210 Left = 480 Picture = "frmMP1.frx":32F8 Top = 2520 Visible = 0 'False Width = 540 End Begin VB.Image imgRandOff Height = 210 Left = 480 Picture = "frmMP1.frx":3922 Top = 2760 Visible = 0 'False Width = 540 End Begin VB.Image imgPlOn Height = 210 Left = 1320 Picture = "frmMP1.frx":3F4C Top = 2520 Visible = 0 'False Width = 375 End Begin VB.Image imgPlOff Height = 210 Left = 1320 Picture = "frmMP1.frx":43B6 Top = 2760 Visible = 0 'False Width = 375 End Begin VB.Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Volume" BeginProperty Font Name = "Comic Sans MS" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FF00& Height = 225 Left = 3000 TabIndex = 15 Top = 1440 Width = 540 End Begin VB.Image imgVol Height = 105 Left = 2880 Picture = "frmMP1.frx":4820 Stretch = -1 'True Top = 1320 Width = 225 End Begin VB.Label lblVol BackStyle = 0 'Transparent BorderStyle = 1 'Fixed Single Height = 135 Left = 2640 TabIndex = 14 Top = 1320 Width = 1215 End Begin VB.Image imgSlideUD Height = 480 Left = 1800 Picture = "frmMP1.frx":4BCA Top = 1320 Visible = 0 'False Width = 480 End Begin VB.Label lblBottom BackStyle = 0 'Transparent Height = 255 Left = 0 TabIndex = 12 Top = 3000 Width = 4695 End Begin VB.Label lblSide BackStyle = 0 'Transparent Caption = ":" Height = 3255 Left = 4440 TabIndex = 11 Top = 0 Width = 255 End Begin VB.Image imgMin Height = 150 Left = 4200 Picture = "frmMP1.frx":4ED4 ToolTipText = "Minimize" Top = 0 Width = 150 End Begin VB.Label Label1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Balance" BeginProperty Font Name = "Comic Sans MS" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FF00& Height = 225 Left = 360 TabIndex = 9 Top = 1440 Width = 600 End Begin VB.Image imgBal Height = 105 Left = 120 Picture = "frmMP1.frx":5056 Stretch = -1 'True Top = 1320 Width = 225 End Begin VB.Label lblBal BackStyle = 0 'Transparent BorderStyle = 1 'Fixed Single Height = 135 Left = 120 TabIndex = 8 Top = 1320 Width = 1215 End Begin VB.Label lblDisp AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Center" BeginProperty Font Name = "Comic Sans MS" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 225 Left = 0 TabIndex = 7 Top = 360 Visible = 0 'False Width = 510 End Begin VB.Label lblST AutoSize = -1 'True BackColor = &H00FF8080& ForeColor = &H0000FFFF& Height = 195 Left = 840 TabIndex = 6 Top = 360 Visible = 0 'False Width = 45 End Begin VB.Image imgNotch Height = 135 Left = 1080 Picture = "frmMP1.frx":5400 Top = 600 Width = 450 End Begin VB.Label lblBar BackStyle = 0 'Transparent BorderStyle = 1 'Fixed Single Height = 135 Left = 0 TabIndex = 3 Top = 600 Width = 4695 End Begin VB.Image imgSlide Height = 480 Left = 3960 Picture = "frmMP1.frx":57AA Top = 2640 Visible = 0 'False Width = 480 End Begin VB.Image imgPause Height = 105 Left = 1800 Picture = "frmMP1.frx":5AB4 ToolTipText = "Pause" Top = 360 Width = 180 End Begin VB.Image imgFF Height = 105 Left = 2520 Picture = "frmMP1.frx":5BF2 ToolTipText = "Fast Forward" Top = 360 Width = 180 End Begin VB.Image imgPlay Height = 105 Left = 2160 Picture = "frmMP1.frx":5D30 ToolTipText = "Play" Top = 360 Width = 180 End Begin VB.Image imgPrev Height = 105 Left = 720 Picture = "frmMP1.frx":5E6E ToolTipText = "Previous" Top = 360 Width = 180 End Begin VB.Image imgRW Height = 105 Left = 1080 Picture = "frmMP1.frx":5FAC ToolTipText = "Rewind" Top = 360 Width = 180 End Begin VB.Image imgStop Height = 105 Left = 1440 Picture = "frmMP1.frx":60EA ToolTipText = "Stop" Top = 360 Width = 180 End Begin VB.Image imgNext Height = 105 Left = 2880 Picture = "frmMP1.frx":6228 ToolTipText = "Next" Top = 360 Width = 180 End Begin VB.Label lblPT Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "0:00 / 0:00" BeginProperty Font Name = "LcdD" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF8080& Height = 165 Left = 3480 TabIndex = 2 Top = 360 Width = 1095 End Begin VB.Label lblPlaying AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Welcome BeginProperty Font Name = "LcdD" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FF00& Height = 195 Left = 0 TabIndex = 1 Top = 120 Width = 765 End Begin MediaPlayerCtl.MediaPlayer MP Height = 615 Left = 360 TabIndex = 0 Top = 18000 Width = 2055 AudioStream = -1 AutoSize = 0 'False AutoStart = 0 'False AnimationAtStart= -1 'True AllowScan = -1 'True AllowChangeDisplaySize= -1 'True AutoRewind = 0 'False Balance = 0 BaseURL = "" BufferingTime = 5 CaptioningID = "" ClickToPlay = -1 'True CursorType = 0 CurrentPosition = -1 CurrentMarker = 0 DefaultFrame = "" DisplayBackColor= 0 DisplayForeColor= 16777215 DisplayMode = 0 DisplaySize = 4 Enabled = -1 'True EnableContextMenu= -1 'True EnablePositionControls= -1 'True EnableFullScreenControls= 0 'False EnableTracker = -1 'True Filename = "" InvokeURLs = -1 'True Language = -1 Mute = 0 'False PlayCount = 1 PreviewMode = 0 'False Rate = 1 SAMILang = "" SAMIStyle = "" SAMIFileName = "" SelectionStart = -1 SelectionEnd = -1 SendOpenStateChangeEvents= -1 'True SendWarningEvents= -1 'True SendErrorEvents = -1 'True SendKeyboardEvents= 0 'False SendMouseClickEvents= 0 'False SendMouseMoveEvents= 0 'False SendPlayStateChangeEvents= -1 'True ShowCaptioning = 0 'False ShowControls = -1 'True ShowAudioControls= -1 'True ShowDisplay = 0 'False ShowGotoBar = 0 'False ShowPositionControls= -1 'True ShowStatusBar = 0 'False ShowTracker = -1 'True TransparentAtStart= 0 'False VideoBorderWidth= 0 VideoBorderColor= 0 VideoBorder3D = 0 'False Volume = 0 WindowlessVideo = 0 'False End Begin VB.Image imgBGmain Height = 2655 Left = 0 Picture = "frmMP1.frx":6366 Stretch = -1 'True Top = 600 Width = 4695 End Begin VB.Label lblMNU BackStyle = 0 'Transparent BorderStyle = 1 'Fixed Single Height = 135 Left = 0 TabIndex = 10 Top = 0 Width = 4695 End Begin VB.Label lblBGtop BackColor = &H00000000& Height = 615 Left = 0 TabIndex = 4 Top = 0 Width = 4695 End Begin VB.Menu mnuSystemTray Caption = "File" Visible = 0 'False Begin VB.Menu mnuShow Caption = "Show Player" End Begin VB.Menu mnuNext Caption = "Next Song" End Begin VB.Menu mnuPrev Caption = "Previous Song" End Begin VB.Menu mnuExit Caption = "Quit" End End Begin VB.Menu mnuBG Caption = "BG" Visible = 0 'False Begin VB.Menu mnuPic Caption = "Change Back Picture" End End Attribute VB_Name = "frmMP1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim CooRD As POINT_TYPE, MOVEok As Boolean 'move object/setting variables Dim MOVE2ok As Boolean, MOVE3ok As Boolean Dim SPOTx, SPOTy, MOVE4ok As Boolean Dim MOVE5ok As Boolean, MOVE6ok As Boolean Dim theCOMM 'command line arguement Dim hmixer As Long Dim volCtrl As MIXERCONTROL ' Waveout volume control. Dim micCtrl As MIXERCONTROL ' Microphone volume control. Private Sub Form_Load() On Error Resume Next VIZZY = False theCOMM = Trim(Command$) If Dir$(App.Path & "\dat\mp1.dat") = "" Then 'first time using/create default setting files MkDir App.Path & "\dat" Open App.Path & "\dat\mp1.dat" For Output As #1 Close #1 Open App.Path & "\dat\mp2.dat" For Output As #1 Print #1, "True" Print #1, "False" Print #1, "" Print #1, 4275 Print #1, 1785 Print #1, 0 Print #1, 5229 Print #1, 1 Close #1 End If Call FileOP("openauto") lblPlaying.Caption = "Welcome to the RyRy Media Player Welcome to the RyRy Media Player Call FileOP("loadprog") If RANDY = True Then imgRand.Picture = imgRandOn.Picture imgRand.Picture = imgRandOff.Picture End If If PLon = True Then imgPL.Picture = imgPlOn.Picture lblBottom.Caption = ":" imgPL.Picture = imgPlOff.Picture End If imgBal.Left = (((BALLY + 6000) * (lblBal.Width - imgBal.Width)) / 12000) + lblBal.Left Call StateColor Call GoSystemTray bOK = fGetVolumeControl(hmixer, _ MIXERLINE_COMPONENTTYPE_DST_SPEAKERS, _ MIXERCONTROL_CONTROLTYPE_VOLUME, volCtrl) ' If the function successfully gets the volume control, ' the maximum and minimum values are specified by ' lMaximum and lMinimum. Use them to set the scrollbar. If bOK Then With VSvolume .Max = volCtrl.lMinimum .Min = volCtrl.lMaximum \ 2 .SmallChange = 1000 .LargeChange = 1000 End With End If ' Get the microphone volume control. bOK = fGetVolumeControl(hmixer, _ MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE, _ MIXERCONTROL_CONTROLTYPE_VOLUME, micCtrl) End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Static lngMsg As Long Static blnFlag As Boolean Dim Result As Long lngMsg = X / Screen.TwipsPerPixelX If blnFlag = False Then blnFlag = True Select Case lngMsg 'doubleclick Case WM_LBUTTONDBLCLICK Me.Show 'right-click Case WM_RBUTTONUP Result = SetForegroundWindow(Me.HWnd) Me.PopupMenu mnuSystemTray End Select blnFlag = False End If End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) VBGTray.cbSize = Len(VBGTray) VBGTray.HWnd = Me.HWnd VBGTray.uId = vbNull Call Shell_NotifyIcon(NIM_DELETE, VBGTray) End Sub Private Sub Form_Resize() 'move location of controls and such If frmMP1.WindowState = 0 Then lblBar.Width = frmMP1.Width - 500 lblBar.Left = (frmMP1.Width - 100) / 2 - lblBar.Width / 2 lblBGtop.Width = frmMP1.Width imgBGmain.Width = frmMP1.Width imgBGmain.Height = frmMP1.Height - 600 lblPT.Left = frmMP1.Width - 1170 imgLogo.Top = frmMP1.Height - 340 imgLogo.Left = frmMP1.Width - 390 imgEnd.Left = frmMP1.Width - 270 imgMin.Left = imgEnd.Left - 240 lblMNU.Width = frmMP1.Width lblSide.Left = frmMP1.Width - lblSide.Width / 2 lblSide.Height = frmMP1.Height lblBottom.Top = frmMP1.Height - lblBottom.Height / 2 lblBottom.Width = frmMP1.Width End If End Sub Private Sub Form_Unload(Cancel As Integer) Call FileOP("quit") 'save settings End Sub Private Sub imgAuto_Click() frmMP3.Show 'autoload options End Sub Private Sub imgBal_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) MOVE2ok = True 'set up to change balance frmMP1.MouseIcon = imgSlide.Picture frmMP1.MousePointer = 99 imgState.Visible = False lblDisp.Visible = True tmrMove.Interval = 10 End Sub Private Sub imgBal_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) MOVE2ok = False 'stop balance changes frmMP1.MousePointer = 0 If BALLY > -300 And BALLY < 300 Then BALLY = 0 lblDisp.Visible = False imgState.Visible = True tmrMove.Interval = 0 End Sub Private Sub imgBGmain_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then frmMP1.PopupMenu mnuBG 'show change background End Sub Private Sub imgEnd_Click() If VIZZY = True Then Unload Base 'unload the visual or the prog will crash ;o) Unload frmMP1 'close program(see form_unload) End Sub Private Sub imgFF_Click() On Error Resume Next 'fast forward If MP.CurrentPosition < MP.SelectionEnd - 5 Then MP.CurrentPosition = MP.CurrentPosition + 5 End Sub Private Sub imgLogo_Click() frmMP5.Show 'show general options End Sub Private Sub imgMin_Click() If PLon = True Then Unload frmMP2 'minimize to system tray Me.Hide End Sub Private Sub imgNext_Click() Call PlayNext End Sub Private Sub imgNotch_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) MOVEok = True 'set up to change song position frmMP1.MouseIcon = imgSlide.Picture frmMP1.MousePointer = 99 imgState.Visible = False lblST.Visible = True End Sub Private Sub imgNotch_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next MP.CurrentPosition = ((imgNotch.Left - lblBar.Left) / (lblBar.Width - imgNotch.Width)) * MP.SelectionEnd MOVEok = False frmMP1.MousePointer = 0 lblST.Visible = False imgState.Visible = True End Sub Private Sub imgPause_Click() On Error Resume Next 'pause If MP.PlayState = mpPaused Then MP.Play imgState.Picture = imgPlay.Picture Call StateColor MP.Pause imgState.Picture = imgPause.Picture Call StateColor End If End Sub Private Sub imgPL_Click() If PLon = True Then 'show/hide playlist Unload frmMP2 imgPL.Picture = imgPlOff.Picture PLon = True imgPL.Picture = imgPlOn.Picture Call FileOP("showpl") End If End Sub Private Sub imgPlay_Click() On Error Resume Next If MP.PlayState = mpPaused Then MP.Play imgState.Picture = imgPlay.Picture Call StateColor Exit Sub End If If MP.PlayState = mpPlaying Then Exit Sub If currSONG > 0 Then currSONG = currSONG - 1 Call PlayNext imgState.Picture = imgPlay.Picture Call StateColor End Sub Private Sub imgPrev_Click() currSONG = currSONG - 2 'previous song Call PlayNext End Sub Private Sub imgRand_Click() If RANDY = True Then 'random on/off RANDY = False imgRand.Picture = imgRandOff.Picture RANDY = True imgRand.Picture = imgRandOn.Picture End If End Sub Private Sub imgRW_Click() On Error Resume Next If MP.CurrentPosition < 5 Then MP.CurrentPosition = 0 If MP.CurrentPosition > 5 Then MP.CurrentPosition = MP.CurrentPosition - 5 End Sub Private Sub imgStop_Click() On Error Resume Next 'stop MP.Stop imgState.Picture = imgStop.Picture Call StateColor End Sub Private Sub imgVis_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next If VIZZY = False Then VIZZY = True imgVis.Picture = imgVisOn.Picture Load Base VIZZY = False imgVis.Picture = imgVisOff.Picture Unload Base End If End Sub Private Sub imgVol_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) MOVE6ok = True 'set up to change volume imgState.Visible = False lblDisp.Visible = True frmMP1.MouseIcon = imgSlide.Picture frmMP1.MousePointer = 99 tmrMove.Interval = 10 End Sub Private Sub imgVol_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) MOVE6ok = False lblDisp.Visible = False imgState.Visible = True frmMP1.MousePointer = 0 tmrMove.Interval = 0 End Sub Private Sub lblBottom_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) MOVE5ok = True 'resize form downward frmMP1.MouseIcon = imgSlideUD.Picture frmMP1.MousePointer = 99 tmrMove.Interval = 10 End Sub Private Sub lblBottom_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) MOVE5ok = False frmMP1.MousePointer = 0 tmrMove.Interval = 0 End Sub Private Sub lblMNU_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) SPOTx = X 'set up to move main form SPOTy = Y MOVE3ok = True tmrMove.Interval = 10 End Sub Private Sub lblMNU_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) MOVE3ok = False tmrMove.Interval = 0 End Sub Private Sub lblSide_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) MOVE4ok = True 'resize form to the right frmMP1.MouseIcon = imgSlide.Picture frmMP1.MousePointer = 99 tmrMove.Interval = 10 End Sub Private Sub lblSide_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) MOVE4ok = False frmMP1.MousePointer = 0 tmrMove.Interval = 0 End Sub Private Sub mnuExit_Click() Unload frmMP1 End Sub Private Sub mnuNext_Click() Call PlayNext End Sub Private Sub mnuPic_Click() On Error Resume Next 'change background picture CD.Filter = "Picture Files|*.bmp;*.jpg;*.gif|All Files|*.*" CD.ShowOpen BGfile = CD.FileName If BGfile <> "" Then imgBGmain.Picture = LoadPicture(BGfile) End Sub Private Sub mnuPrev_Click() currSONG = currSONG - 2 Call PlayNext End Sub Private Sub mnuShow_Click() Me.Show End Sub Private Sub MP_EndOfStream(ByVal Result As Long) Call PlayNext 'end of song...play the next one End Sub Private Sub tmrMove_Timer() 'change settings If MOVE2ok = True Then 'balance GetCursorPos CooRD imgBal.Left = CooRD.X * Screen.TwipsPerPixelX - frmMP1.Left - lblBal.Left - imgBal.Width / 2 If imgBal.Left < lblBal.Left Then imgBal.Left = lblBal.Left If imgBal.Left > lblBal.Left + lblBal.Width - imgBal.Width Then imgBal.Left = lblBal.Left + lblBal.Width - imgBal.Width BALLY = ((imgBal.Left - lblBal.Left) * 12000 / (lblBal.Width - imgBal.Width)) - 6000 MP.Balance = BALLY If BALLY > -300 And BALLY < 300 Then lblDisp.Caption = "Center" If BALLY <= -300 Then lblDisp.Caption = "Left " & Int(100 * BALLY / -6000) & "%" If BALLY >= 300 Then lblDisp.Caption = "Right " & Int(100 * BALLY / 6000) & "%" End If If MOVE3ok = True Then 'move form GetCursorPos CooRD frmMP1.Left = CooRD.X * Screen.TwipsPerPixelX - SPOTx frmMP1.Top = CooRD.Y * Screen.TwipsPerPixelY - SPOTy If PLon = True Then If SNAPPED = 1 Then frmMP2.Left = frmMP1.Left + frmMP1.Width frmMP2.Top = frmMP1.Top ElseIf SNAPPED = 2 Then frmMP2.Left = frmMP1.Left frmMP2.Top = frmMP1.Top + frmMP1.Height ElseIf SNAPPED = 3 Then frmMP2.Left = frmMP1.Left - frmMP2.Width frmMP2.Top = frmMP1.Top End If End If End If If MOVE4ok = True Then 'resize to right GetCursorPos CooRD frmMP1.Width = CooRD.X * Screen.TwipsPerPixelX - frmMP1.Left End If If MOVE5ok = True Then 'resize downward GetCursorPos CooRD frmMP1.Height = CooRD.Y * Screen.TwipsPerPixelY - frmMP1.Top End If If MOVE6ok = True Then 'volume GetCursorPos CooRD imgVol.Left = CooRD.X * Screen.TwipsPerPixelX - frmMP1.Left - imgVol.Width / 2 If imgVol.Left < lblVol.Left Then imgVol.Left = lblVol.Left If imgVol.Left > lblVol.Left + lblVol.Width - imgl.Width - 6GWidth / 2 If imgVol.LefPWidth - imgl.Width -ol.LePrivad + lbidth 0s)d.Width - imgl.Width - 6GWidth / 2 If imgVol.LefPWidth - imgl.Wi -6etn6dth/ 2 i6etn6dtILcRD.X * Screen.TwipsPE EntIf imgVofPWidth - "E th - ipsPE EntIiurrSONG- imgBi3 9l.WidthD-= True frmMP1.MousePointer = 0 tdVol.Left > = True Then 'balance GetCursorPos CooRD imgBal.Left = CooRD.X * Screen.TwipsPerPixelXle = True frmMP1.Ms Single, Y As Single) MO = True frmMP1.Ms Single, sBI4aGimgl.Width - t.h = CooR le) M'vhMOVE5ok = True TheiV lblBal.Lel.Wij STwipsPerPixelY - frmMP1.TthMOf imgVol.Left = CooRD.X * Screen.TwipsPerPixelX - frccture =alse e TBOTwipsscL 0Left = CooRD.X End If Eange baMs Single, Y As Single) MO = b lb 'True 0D.X End If Eange baMs Single, Y As Single) MO = b lb 'True 0D.X End If Eange baMs Single, ol.Left >L 0Left = CooRD.X End If Eange baMs Single, Y As Single).Lel.Wij STwipsPerPixelY - frm 0Le i Single, Y As Single) MO = b lb 'Tru2 Ete Subd uixelY - fr:ter = 99 tmrMove.Interval = 10 End Sub Private.Int.TwipsPerPO = b lb 'True 0D.X End If Eange baMs Single, End S0al D.X End If Eange bEaton As Integer, Shift As Integer, X GWidtU s_ 0 ' 0.IntaMs Sin ' Sub PrivateY As 1.Ms Sie ciY / 6000) & "%" End If If MOVE3ok = l StateColor End Sub PrivateLeft >L 0Left = CooRD.X End If Eange baMs Single, Y As Single).Lel.Wij ST4aGig to set the scrollbar. If bOK Then With VSvolume dtch * 2al Result As Long) Call Pla(fn Ifatele f MOVE.HWnd = Me.HWnd VBGTray.aume dtch * 2ad Sub Sub frmSGTray.aume 'Nn =NVSie ciY / 6000) & "%" End If I* 2ad SurNoIThen 'ure io(Co Pla(fn End If Eange baMs Sfnm/ -VSvolume MOVE5ok = False frmMP1.MouE.HWnd Dof 'Nn =NVSie I* 2#Scrd( = False tmrMove.Interval = 0 End Sub Private Sub lblo(l= 0 End Sub Private Sub lC LMAeouE.HWThen s Sfnm/ -VS ) f IT3P1.M-mto right st = CooRD.X * e Sub lh9Sub imgStop_ClimgStop_Climg4st =ange baMs Single, ' 0t End Sub Private Sub mnuShow_Click() Met_Load() MOVE5ok = F"rictur,moad() MOVE5Private SufrmMP29Sub f s"rictuB4N3 Ifatele f MOVE.HWnd = Me.HWnd VBGTray.aume dt1cft ThWnd Ms Single, ' 0t End S-wele 7 f MOVE.HWnd =t6Oh&Sub osdd.HWnd =t6Oh&Sub osdd.HWn67 f S-wele 7 f lan frmMP1.Left = CooRD.X * t ThWnd Ms Singltur,moad() MOVE5Private SufrS-we True A VBGTray.aume * t ThWnd Ms Singltre f MOVE.HWnd = Me.HWnd frmSGTray.aume 'Nn =NVS'TrVE5Private.aume IuMs Singltur A VBGTray.aume dtch * 2 SulVo}lOVE6ok = Trublo(l= 0 * t ThWnd Ms Singltre f MOVE.HWnd = Me.HWnd frmWnd frmSGTray.aume 'Nde_Mo . o'st.Left frmMP2.Top =O 'Nde_Moblo(l= 0 * t ThWnd M<If c1t ) ile)mrue Then i4rivaS00 * BALLY / -O 0 'False B Tht T Then)Lk = Tr- Ifatele f MOVE.HWnd = Me.HWnE"r TruenE- Ifatele = CooRD.XLASONG - 2 'previous song Call PlayNext le, ol.Le u+eft =P7) Call Play c1teGTray.a_Mo .7 i4rivaS00 * BALLY / -O 0 = 360 .3 aS00 *"' If bMa If IfF'ermMP2.Left = hen f ight = f CooRD.XLASONG - 2 'previous song Call PlayNe = aMs Single, Y As Single)nteger, Shift As Integer, X As Single, Y As Single) MOVE5ok = False f ight = f ight = fh ltPgle, Y As Single) frmSGT':2>C s Single) frmSGT':2>C s Single) frmSG7e8s0isfX As S Privatt6Oh&Sub D.Y 0n 'bTingle) MO = b lb 'Tru2 Ete Subhe sc le) fr) curCliMs Single, Y As Singles S fr) cucSingl = True tmrna6 osdd.P l = True tmrna6 osdd.P l = True tmrna6 osdd As.Show 2 'previoeal_Mo frmSGT':le) MO = b lb 'True 0D.X EmrkXiG r= b lbrkXiSubhe sc le) fr) curCl frmMP1.Height = CooRD.Y * RD.Y * RD.Cich * 2 SulVo}lOViaPicture = "frmMP1.frg For Output As #1 Print #1, "True" 21r f MOVCI, X kueECeightPgle, Y As Sure Ga SulVo}lO3ightWnd Private Sub i.Height ight ight ight () frmMPiCao GPiCao DDST_SPESw Coo 5 V2I=Gtop.Width = frmMP1.Width iSingllume dtx.LefPTo2. 21r f MOVCySub mnuShow_Clvub Pr - "E th mapsPerPixelY - frmMP1.Top utton As Integer, Se dtx.LefPTo2. 21r f MOVCySub mnuShow_Clvub Pr - "E th mapsPerPixelY - frmMP1.ToXp.1 fsr, PvmgPause_Click() On ErrormgP- frmMP1.To ABki5AF. 21r , 360 .3 aS00 *"' If bMa Ifu,rmMP1.MousePointer = 99 Pr - "E th mapsPerPixelY - frmMP1.Top utton As Integer, Se dtx.LefPTo2. 21r f MOVCySub mnuShow_Clvub Pr - "E th mapsPerPixelY - frmMP1.ToXp.1 fsr, PvmgPause_Click() On ErrormgP- frmMP1.To ABki5AF. 21r , 360 .3 aS00 *"' I6.HW f6aS00 *"' I6.HW f6aS00 *"' I6.HW