Guidance
指路人
g.yi.org
software / rapidq / Examples / Audio & Video / VidAudio JoJo.bas

Register 
注册
Search 搜索
首页 
Home Home
Software
Upload

  
'VidAudio JoJo 1.00
'Uploaded: May 8, 2002

'VidAudio JoJo is a simple multimedia player
'You can do as you please with this code.


     DECLARE SUB SetWindowPos LIB "User32" ALIAS "SetWindowPos"(hWnd AS LONG, hWndInsertAfter AS LONG, X AS LONG, Y AS LONG, cx AS LONG, cy AS LONG, wFlags AS LONG)
     DECLARE FUNCTION GetShortPathName LIB "kernel32" ALIAS "GetShortPathNameA" (BYVAL lpszLongPath AS STRING, BYVAL lpszShortPath AS LONG, BYVAL lBuffer AS LONG) AS LONG
     DECLARE FUNCTION PlayMedia LIB "winmm.dll" ALIAS "mciSendStringA" _
      (BYVAL lpstrCommand AS STRING, lpstrReturnString AS LONG, uReturnLength AS _
      LONG, hwndCallback AS LONG) AS LONG

     DECLARE SUB LoadList
     DECLARE SUB SaveList
     DECLARE SUB AlwaysTop
     DECLARE SUB TopMost
     DECLARE SUB CloseAudioForm
     DECLARE SUB Listening(Sender AS QCOOLBTN)
     DECLARE SUB aTextAgain
     DECLARE SUB InitAudio
     DECLARE SUB Check(hand AS LONG, message AS LONG, one AS LONG, two AS LONG)
     DECLARE SUB ChangeDirectories
     DECLARE SUB ResizeForm
     DECLARE SUB PlayList(Sender AS QCOOLBTN)
     DECLARE SUB CloseFForm
     DECLARE SUB ChangeDrive(Sender AS QRADIOBUTTON)
     DECLARE SUB Delete(key AS BYTE)
     DECLARE SUB Scroll
     DECLARE SUB Change
     DECLARE SUB Fancy

     DIM OpenDialog AS QOPENDIALOG
     DIM OpenListDlg AS QOPENDIALOG
     DIM SaveListDlg AS QSAVEDIALOG

     DIM aFileName(100) AS STRING
     DIM mAudio AS STRING*256

     DEFBYTE loops, bigloops, audx, stopandgo, ESCAPE, always, scrolled, videoison
     DEFSTR audio$, audiotype$

     CREATE Time AS QTIMER
      Interval = 1 '1000
      OnTimer = TopMost
     END CREATE

     CREATE Arial9G AS QFONT
      Name = "Arial"
      COLOR = &H00FF00   'clGreen
      AddStyles(0) 'fsBold
      Size = 9
     END CREATE

     CREATE Arial9Tae AS QFONT
      Name = "Arial"
      COLOR = &HAAEEEE   '&HDEFFED
      AddStyles(0)
      Size = 9
     END CREATE

     CREATE Arial AS QFONT
      Name = "Arial"
      COLOR = &H0000FF  'clRed
      AddStyles(0)
      Size = 10
     END CREATE

     CREATE Arial9R AS QFONT
      Name = "Arial"
      COLOR = &HEEFE
      AddStyles(0)
      Size = 9
     END CREATE

     CREATE Audio AS QFORM
      Width = 340
      Height = 205
      Center
      COLOR = 0
      AutoScroll = 0
      CAPTION = "VidAudio JoJo"
      Hint = "Click to turn on/off Always On Top."
      ShowHint = 1
      OnClick = AlwaysTop
      OnPaint = aTextAgain
      WndProc = Check
      CREATE FancyBox AS QCANVAS
       Top = 60
       Left = 10
       Height = 70
       Width = 275
       COLOR = 0
      END CREATE
      CREATE AudSlide AS QSCROLLBAR
       Top = 10
       Left = 10
       Height = 20
       Width = 275
       SmallChange = 10
       OnScroll = Scroll
      END CREATE
      CREATE AudS AS QCOOLBTN
       Flat = 1
       Font = Arial9G
       CAPTION = "Skip"
       Top = 32
       Left = 50
       Width = 45
       Hint = "Skip current file"
       ShowHint = 1
       OnClick = Listening
      END CREATE
      CREATE AudAgain AS QCOOLBTN
       Flat = 1
       Font = Arial9R
       CAPTION = "Again"
       Top = 32
       Left = 100
       Width = 45
       Hint = "Play current file continuously"
       ShowHint = 1
       OnClick = Listening
      END CREATE
      CREATE AudSnd AS QCOOLBTN
       Flat = 1
       Font = Arial9R
       CAPTION = "Mute"
       Top = 32
       Left = 150
       Width = 45
       Hint = "Turn audio on or off"
       ShowHint = 1
       OnClick = Listening
      END CREATE
      CREATE AudH AS QCOOLBTN
       Flat = 1
       Font = Arial9G
       CAPTION = "Stop"
       Top = 32
       Left = 200
       Width = 45
       Hint = "Stop play and rewind"
       ShowHint = 1
       OnClick = Listening
      END CREATE
      CREATE AudList AS QCOOLBTN
       Flat = 1
       Font = Arial9R
       CAPTION = "List"
       Top = 2
       Left = 285
       Width = 45
       Hint = "Playlist"
       ShowHint = 1
       OnClick = Listening
      END CREATE
      CREATE AudO AS QCOOLBTN
       Flat = 1
       Font = Arial9Tae
       CAPTION = "Open"
       Top = 32
       Left = 285
       Width = 45
       Hint = "Select audio or video file"
       ShowHint = 1
       OnClick = Listening
      END CREATE
      CREATE AudA AS QCOOLBTN
       Flat = 1
       Font = Arial9Tae
       CAPTION = "Play"
       Top = 62
       Left = 285
       Width = 45
       Hint = "Play selected file"
       ShowHint = 1
       OnClick = Listening
      END CREATE
      CREATE AudB AS QCOOLBTN
       Flat = 1
       Font = Arial9Tae
       CAPTION = "Pause"
       Top = 92
       Left = 285
       Width = 45
       Hint = "Pause or resume current file"
       ShowHint = 1
       OnClick = Listening
      END CREATE
      CREATE AudL AS QCOOLBTN
       Flat = 1
       Font = Arial9Tae
       CAPTION = "Loop"
       Top = 122
       Left = 285
       Width = 45
       Hint = "Play entire list continuously"
       ShowHint = 1
       OnClick = Listening
      END CREATE
      CREATE AudC AS QCOOLBTN
       Flat = 1
       Font = Arial9R
       CAPTION = "Close"
       Top = 152
       Left = 285
       Width = 45
       Hint = "Close current file or playlist"
       ShowHint = 1
       OnClick = Listening
      END CREATE
      CREATE FForm AS QFORM
       Height = 310
       Width = 410
       COLOR = 0
       Center
       FormStyle = 3
       KeyPreview = 1
       OnKeyDown = Delete
       OnResize = ResizeForm
       OnClose = CloseFForm
       CREATE DirList AS QFILELISTBOX
        ShowIcons = True
        AddFileTypes(4)
        DelFileTypes(6)
        OnDblClick = ChangeDirectories
        Top = 1
        Height = 75
        Width = 185
        COLOR = &HDEFFED
       END CREATE
       CREATE FileListA AS QFILELISTBOX
        MultiSelect = 1
        Mask = "*.rmi;*.midi;*.mid;*.wav;*.au;*.snd;*.mpa;*.wma;*.mp2;*.mp3;_
      *.aif;*.asf;*.asx;*.iff;*.mpm;*.m1v;*.mpeg;*.mpg;*.mpe;*.avi;*.mov;_
      *.wmv;*.mpv;*.qt;*.dat"
        Height = 150
        Width = 185
        Top = 100
        COLOR = &HDEFFED
       END CREATE
       CREATE FileListB AS QLISTBOX
        Height = 250
        Width = 185
        Left = 215
        MultiSelect = 1
        COLOR = &HDEFFED
       END CREATE
       CREATE BLoadList AS QCOOLBTN
        Flat = 1
        CAPTION = "LL"
        Font = Arial9Tae
        Left = 55
        Top = 255
        Hint = "Load list"
        ShowHint = 1
        OnClick = PlayList
       END CREATE
       CREATE BSelect AS QCOOLBTN
        Flat = 1
        CAPTION = ">>"
        Font = Arial9Tae
        Left = 85
        Top = 255
        Hint = "Select file"
        ShowHint = 1
        OnClick = PlayList
       END CREATE
       CREATE BIns AS QCOOLBTN
        Flat = 1
        CAPTION = "INS"
        Font = Arial9Tae
        Left = 150
        Top = 255
        Hint = "Insert selected file"
        ShowHint = 1
        OnClick = PlayList
       END CREATE
       CREATE BSub AS QCOOLBTN
        Flat = 1
        CAPTION = "SUB"
        Font = Arial9Tae
        Left = 225
        Top = 255
        Hint = "Substitute selected file"
        ShowHint = 1
        OnClick = PlayList
       END CREATE
       CREATE BOk AS QCOOLBTN
        Flat = 1
        CAPTION = "CLR"
        Font = Arial9G
        Left = 188
        Top = 255
        Hint = "Clear playlist"
        ShowHint = 1
        OnClick = PlayList
       END CREATE
       CREATE BMedia AS QCOOLBTN
        Flat = 1
        CAPTION = "ALL"
        Font = Arial9Tae
        Left = 83
        Top = 76
        Hint = "Cycle through: All Multimedia->Sound Only->Video Only"
        ShowHint = 1
        OnClick = PlayList
       END CREATE
       CREATE BDelete AS QCOOLBTN
        Flat = 1
        CAPTION = "<<"
        Font = Arial9Tae
        Left = 290
        Top = 255
        Hint = "Delete selected file"
        ShowHint = 1
        OnClick = PlayList
       END CREATE
       CREATE BSaveList AS QCOOLBTN
        Flat = 1
        CAPTION = "SL"
        Font = Arial9Tae
        Left = 320
        Top = 255
        Hint = "Save list"
        ShowHint = 1
        OnClick = PlayList
       END CREATE
       CREATE A AS QRADIOBUTTON
        CAPTION = "A"
        Font = Arial9R
        Top = 5
        Left = 187
        Width = 25
        OnClick = ChangeDrive
       END CREATE
       CREATE B AS QRADIOBUTTON
        CAPTION = "B"
        Font = Arial9R
        Top = 30
        Left = 187
        Width = 25
        OnClick = ChangeDrive
       END CREATE
       CREATE C AS QRADIOBUTTON
        CAPTION = "C"
        Font = Arial9R
        Top = 55
        Left = 187
        Width = 25
        OnClick = ChangeDrive
       END CREATE
       CREATE D AS QRADIOBUTTON
        CAPTION = "D"
        Font = Arial9R
        Top = 80
        Left = 187
        Width = 25
        OnClick = ChangeDrive
       END CREATE
       CREATE E AS QRADIOBUTTON
        CAPTION = "E"
        Font = Arial9R
        Top = 105
        Left = 187
        Width = 25
        OnClick = ChangeDrive
       END CREATE
       CREATE F AS QRADIOBUTTON
        CAPTION = "F"
        Font = Arial9R
        Top = 130
        Left = 187
        Width = 25
        OnClick = ChangeDrive
       END CREATE
       CREATE G AS QRADIOBUTTON
        CAPTION = "G"
        Font = Arial9R
        Top = 155
        Left = 187
        Width = 25
        OnClick = ChangeDrive
       END CREATE
       CREATE H AS QRADIOBUTTON
        CAPTION = "H"
        Font = Arial9R
        Top = 180
        Left = 187
        Width = 25
        OnClick = ChangeDrive
       END CREATE
       CREATE I AS QRADIOBUTTON
        CAPTION = "I"
        Font = Arial9R
        Top = 205
        Left = 187
        Width = 25
        OnClick = ChangeDrive
       END CREATE
       CREATE J AS QRADIOBUTTON
        CAPTION = "J"
        Font = Arial9R
        Top = 230
        Left = 187
        Width = 25
        OnClick = ChangeDrive
       END CREATE
       CAPTION = DirList.Directory
       Visible = 0
      END CREATE
     END CREATE

     SUB Listening
      DIM mLength AS STRING*256
      DIM mValue AS STRING*256
      DIM mSlide AS STRING*256
      SELECT CASE Sender.CAPTION
      CASE "Mute"
       IF audio$ = "off" THEN
        audio$ = "on"
        AudSnd.Font = Arial9R
       ELSEIF audio$ = "on" OR audio$ = "" THEN
        audio$ = "off"
        AudSnd.Font = Arial
       END IF
      CASE "Open"
       OpenDialog.Filter = "Multimedia files|*.rmi;*.midi;*.mid;*.wav;*.au;*.snd;*.mpa;*.wma;_
      *.mp2;*.mp3;*.asx;*.asf;*.aif;*.iff;*.mpm;*.m1v;*.mpeg;*.mpg;*.mpe;*.avi;*.mov;*.wmv;*.mpv;*.qt;*.dat|_
      Audio files|*.rmi;*.midi;*.mid;*.wav;*.au;*.snd;*.wma;_
      *.mp2;*.mp3;*.aif;*.iff|MP3|*.mp2;*.mp3|MIDI|*.midi;*.mid|WAV|*.wav|_
      Video files|*.mpm;*.mpa;*.m1v;*.mpeg;*.mpg;*.mpe;*.asx;*.asf;*.avi;*.mov;*.wmv;*.mpv;*.qt;*.dat|_
      MPEG video|*.mpeg;*.mpe;*.mpg|AVI video|*.avi|QuickTime|*.mov;*.qt|_
      All files|*.*"
       IF OpenDialog.EXECUTE = 1 THEN
        DIM lenFilename AS LONG
        filePath$ = STRING$(165,0)
        FileListB.AddItems OpenDialog.FileName
        lenFilename = GetShortPathName(OpenDialog.FileName,VARPTR(filePath$),164)
        aFileName(audx) = LEFT$(filePath$,lenFilename)
        Audio.Repaint
        aTextAgain
        Audio.Repaint
        Audio.TextOut(65,130,"CLICK PLAY or LOAD ANOTHER...",&HFFFFFF,0)
        INC audx
       END IF
      CASE "Play"
       IF FileListB.ItemCount = 0 THEN
        SHOWMESSAGE "No items to play."
        EXIT SUB
       END IF
       filePath$ = STRING$(165, 0)
       audx = 0
       DO
        lenFilename = GetShortPathName(FileListB.Item(audx),VARPTR(filePath$),164)
        aFileName(audx) = LEFT$(filePath$,lenFilename)
        INC audx
       LOOP UNTIL audx = FileListB.ItemCount
       FileListB.COLOR = &HAAEEEE
       audx = 0
       stopandgo = 0
       ESCAPE = 0
       IF AudB.CAPTION = "Resume" OR aFileName(audx) = "" THEN EXIT SUB
       DO
        Audio.Repaint
        aTextAgain
        Audio.Repaint
        Audio.TextOut(105,130,"  LOADING FILE... ",&HFFFFFF,0)
        end$ = RIGHT$(LCASE$(aFileName(audx)),3)
        FileListB.Selected(audx-1) = 0
        FileListB.Selected(audx) = 1
        DO
         DOEVENTS
         SELECT CASE end$
         CASE "mpm","mpa","m1v",".qt","mpg","mpe","peg","avi","asx","asf","mov","wmv","mpv","dat"
          videoison = 1
          PlayMedia("open " + aFileName(audx) + " type MpegVideo" + " parent " + STR$(Audio.Handle) + " style child",0,0,0)
          PlayMedia("Where " + aFileName(audx) + " destination", VARPTR(mValue), LEN(mValue) - 1, 0)
          mStart = INSTR(1, mValue, " ")
          mPosition = INSTR(mStart + 1, mValue, " ")
          mStart = INSTR(mPosition + 1, mValue, " ")
          Width$ = MID$(mValue, mPosition, mStart - mPosition)
          Height$ = MID$(mValue, mStart + 1)
          IF Audio.Height < (VAL(Height$) + 100) THEN
           Audio.Height = VAL(Height$) + 110
          END IF
          IF Audio.Width < (VAL(Width$) + 80) THEN
           Audio.Width = VAL(Width$) + 80
           AudList.Left = Audio.Width - 60
           AudO.Left = Audio.Width - 60
           AudA.Left = Audio.Width - 60
           AudB.Left = Audio.Width - 60
           AudL.Left = Audio.Width - 60
           AudC.Left = Audio.Width - 60
          END IF
          Audio.Repaint
          aTextAgain
          PlayMedia("put " + aFileName(audx) + " window at 14 60 " + Width$ + " " + Height$, 0, 0, 0)
         CASE ELSE
          videoison =0
          PlayMedia("open " + aFileName(audx) + " type MpegVideo",0,0,0)
         END SELECT
         IF FForm.Visible = 0 THEN
          Audio.Top = (Screen.Height - Audio.Height)*.5
         END IF
         Audio.Left = (Screen.Width - Audio.Width)*.5
         PlayMedia("status " + aFileName(audx) + " length",VARPTR(mLength),256,0)
         AudSlide.Max = VAL(LEFT$(mLength,7))
         ESCAPE = 0
         Audio.Repaint
         aTextAgain
         IF scrolled = 1 THEN
          PlayMedia("play " + aFileName(audx) + " seek to " + STR$(INT(.01*AudSlide.Position*AudSlide.Max)),0,0,0)
          PlayMedia("play " + aFileName(audx) + " from " + STR$(INT(.01*AudSlide.Position*AudSlide.Max)),0,0,0)
          scrolled = 0
         ELSE
          PlayMedia("play " + aFileName(audx) + " from " + STR$(AudSlide.Position),0,0,0)
         END IF
         FileListB.Selected(audx) = 1
         DO
          DOEVENTS
          PlayMedia("set " + aFileName(audx) + " audio all " + audio$, 0, 0, 0)
          PlayMedia("status " + aFileName(audx) + " mode",VARPTR(mAudio),256,0)
          PlayMedia("status " + aFileName(audx) + " position",VARPTR(mSlide),256,0)
          AudSlide.Position = VAL(LEFT$(mSlide,7))
          Audio.CAPTION = "VidAudio JoJo " + LEFT$(mAudio,7)
          IF LEFT$(mAudio,6) = "paused" THEN
           DO
            DOEVENTS
            PlayMedia("status " + aFileName(audx) + " mode",VARPTR(mAudio),256,0)
           LOOP UNTIL LEFT$(mAudio,7) = "playing"
          END IF
         LOOP UNTIL LEFT$(mAudio,7) = "stopped" OR ESCAPE = 1
         PlayMedia("close " + aFileName(audx),0,0,0)
         AudSlide.Position = 0
         Audio.Height = 205
         Audio.Width = 340
         AudS.Left = 50
         AudList.Left = 285
         AudO.Left = 285
         AudA.Left = 285
         AudB.Left = 285
         AudL.Left = 285
         AudC.Left = 285
        LOOP UNTIL loops = 0
        INC audx
        IF aFileName(audx) = "" AND bigloops = 1 THEN audx = 0
       LOOP UNTIL (aFileName(audx) = "" AND bigloops = 0) OR stopandgo = 1
       InitAudio
      CASE "Pause","Resume"
       IF AudB.CAPTION = "Resume" THEN
        AudB.CAPTION = "Pause"
        PlayMedia("resume "+ aFileName(audx),0,0,0)
       ELSEIF AudB.CAPTION = "Pause" THEN
        AudB.CAPTION = "Resume"
        PlayMedia("pause "+ aFileName(audx),0,0,0)
       END IF
      CASE "Loop"
       IF bigloops = 0 THEN
        bigloops = 1
        AudL.Font = Arial9G
       ELSE
        bigloops = 0
        AudL.Font = Arial9Tae
       END IF
      CASE "Close"
       ESCAPE = 1
       audx = 0
       DO
        aFileName(audx) = ""
        INC audx
       LOOP UNTIL aFileName(audx) = ""
       PlayMedia("close all",0,0,0)
       InitAudio
       IF FForm.Visible = 0 THEN Audio.Center
       FileListB.Clear
      CASE "Skip"
       PlayMedia("close "+ aFileName(audx),0,0,0)
       ESCAPE = 1
      CASE "Again"
       IF loops = 0 THEN
        loops = 1
        AudAgain.Font = Arial
       ELSE
        loops = 0
        AudAgain.Font = Arial9R
       END IF
      CASE "List"
       FForm.Visible = 1
       FForm.Top = 40
       Audio.Top = 350
       Audio.Left = (Screen.Width - Audio.Width)*.5
       DirList.COLOR = &HDEFFED
       FileListA.COLOR = &HDEFFED
       FileListB.COLOR = &HDEFFED
      CASE "Stop"
       PlayMedia("stop "+ aFileName(audx),0,0,0)
       ESCAPE = 1
       stopandgo = 1
      END SELECT
     END SUB

     SUB InitAudio
      audx = 0
      loops = 0
      bigloops = 0
      AudL.Font = Arial9Tae
      AudSlide.Position = 0
      Audio.Repaint
      Audio.TextOut(65,130,"CLICK PLAY or LOAD ANOTHER...",&HFFFFFF,0)
      Audio.Height = 205
      Audio.Width = 340
      AudS.Left = 50
      AudList.Left = 285
      AudO.Left = 285
      AudA.Left = 285
      AudB.Left = 285
      AudL.Left = 285
      AudC.Left = 285
      FileListB.COLOR = &HDEFFED
     END SUB

     SUB CloseAudioForm
      ESCAPE = 1
      PlayMedia("close all",0,0,0)
      Application.Terminate
     END SUB

     SUB aTextAgain
      title$ = RIGHT$(FileListB.Item(audx),LEN(FileListB.Item(audx))-RINSTR(FileListB.Item(audx),"\"))
      title$ = LEFT$(title$,RINSTR(title$,".")-1)
      Audio.TextOut(10,Audio.Height - 50,"  " + title$ + "  ",&HFFFFFF,0)
     END SUB

     SUB Check
      IF message = &H10 THEN CloseAudioForm
     END SUB

     SUB ChangeDirectories
      CHDIR(DirList.Item(DirList.ItemIndex) - "[" - "]")
      DirList.Directory = CURDIR$
      FileListA.Directory = CURDIR$
      FForm.CAPTION = CURDIR$
     END SUB

     SUB ResizeForm
      IF FForm.Height > 310 THEN FForm.Height = 310
      IF FForm.Width > 410 THEN FileListB.Width = 185 + (FForm.Width - 410)
     END SUB

     SUB PlayList
      SELECT CASE Sender.CAPTION
      CASE "LL"
       LoadList
      CASE ">>"
       IF FileListA.SelCount > 1 THEN
        FOR x = 0 TO (FileListA.ItemCount - 1)
         IF FileListA.Selected(x) = 1 THEN
          FileListB.AddItems CURDIR$ + "\" + FileListA.Item(x)
         END IF
        NEXT
       ELSEIF FileListA.SelCount = 1 THEN
        FileListB.AddItems FileListA.Filename
       END IF
      CASE "INS"
       IF FileListA.SelCount > 1 THEN
        FOR x = 0 TO (FileListA.ItemCount - 1)
         IF FileListA.Selected(x) = 1 THEN
          FileListB.InsertItem(FileListB.ItemIndex+1,CURDIR$ + "\" + FileListA.Item(x))
          FileListB.Selected(FileListB.ItemIndex+1) = 1
         END IF
        NEXT
       ELSEIF FileListA.SelCount = 1 THEN
        FileListB.InsertItem(FileListB.ItemIndex+1,FileListA.Filename)
       END IF
      CASE "SUB"
       FileListB.InsertItem(FileListB.ItemIndex,FileListA.Filename)
       FileListB.DelItems(FileListB.ItemIndex + 1)
      CASE "<<"
       Delete(46)
      CASE "SL"
       SaveList
      CASE "CLR"
       FileListB.Clear
       FileListB.COLOR = &HDEFFED
       audx = 0
      CASE "VID"
       FileListA.Mask = "*.rmi;*.midi;*.mid;*.wav;*.au;*.snd;*.mpa;*.wma;_
      *.mp2;*.mp3;*.aif;*.asx;*.asf;*.iff;*.mpm;*.m1v;*.mpeg;*.mpe;*.mpg;_
      *.avi;*.mov;*.wmv;*.mpv;*.qt;*.dat"
       BMedia.CAPTION = "ALL"
      CASE "ALL"
       FileListA.Mask = "*.rmi;*.midi;*.mid;*.wav;*.au;*.snd;*.wma;_
      *.mp2;*.mp3;*.aif;*.iff"
       BMedia.CAPTION = "SND"
      CASE "SND"
       FileListA.Mask = "*.mpm;*.m1v;*.qt;*.mpg;*.mpe;*.mpeg;*.avi;*.mov;*.wmv;_
      *.mpv;*.mpa;*.asx;*.asf;*.dat"
       BMedia.CAPTION = "VID"
      END SELECT
     END SUB

     SUB Delete
      IF key = 46 THEN
       IF FileListB.SelCount > 1 THEN
        FOR x = 0 TO (FileListB.ItemCount - 1)
         IF FileListB.Selected(x) = 1 THEN
          FileListB.DelItems x
          DEC x
         END IF
        NEXT
       ELSE
        FileListB.DelItems FileListB.ItemIndex
       END IF
      END IF
     END SUB

     SUB CloseFForm
      Audio.Top = (Screen.Height - Audio.Height)*.5
      Audio.Left = (Screen.Width - Audio.Width)*.5
      FForm.Visible = 0
     END SUB

     SUB ChangeDrive
      DirList.Drive = Sender.CAPTION + ":\"
      DirList.Directory = CURDIR$
      FileListA.Directory = CURDIR$
      FForm.CAPTION = CURDIR$
     END SUB

     SUB Scroll
      IF LEFT$(mAudio,7) = "playing" THEN
       PlayMedia("play " + aFileName(audx) + " from " + STR$(AudSlide.Position),0,0,0)
       PlayMedia("pause "+ aFileName(audx),0,0,0)
       AudB.CAPTION = "Resume"
      ELSEIF LEFT$(mAudio,7) = "       " THEN
       scrolled = 1
      END IF
     END SUB

     SUB AlwaysTop
      IF always = 0 THEN
       always = 1
      ELSE
       always = 0
      END IF
     END SUB

     SUB TopMost
      IF videoison = 0 THEN Fancy
      IF always = 1 THEN SetWindowPos(Audio.Handle, -1, 0, 0, 0, 0,&H2 OR &H1)
     END SUB

     SUB Fancy
      FancyBox.FillRect(0,0,275,70,0)
      INC y
      IF y > 150 THEN
       y = 1
       turn = INT(RND(10))
       IF turn MOD 2 = 0 THEN
        aa$ = "Achilles"
        bb$ = "Butuyan"
        cc$ = "Mina"
       ELSE
        aa$ = "wasaywasay"
        bb$ = "@edsamail"
        cc$ = ".com.ph"
       END IF
      ELSEIF y = 1 THEN
       aa$ = "wasaywasay"
       bb$ = "@edsamail"
       cc$ = ".com.ph"
      END IF
      IF y < 11 THEN
       b$ = RIGHT$(aa$,y)
       a$ = RIGHT$(bb$,y)
       FancyBox.TextOut(y,y,aa$,&HDDCE,0)
      ELSE
       IF y < 80 THEN
        FancyBox.TextOut(y,80-y,cc$,&H0000FF,0)
       ELSE
        FancyBox.TextOut(y,y-80,cc$,&H0000FF,0)
       END IF
       IF y < 60 THEN
        FancyBox.TextOut(y,y,a$,&HDDCE,0)
       ELSE
        FancyBox.TextOut(y,60-(y-60),a$,&HDDCE,0)
       END IF
      END IF
      FancyBox.TextOut(y*2,5,b$,&H00FF00,0)
     END SUB

     SUB LoadList
      OpenListDlg.Filter = "Playlist files|*.lst|All files|*.*"
      IF OpenListDlg.EXECUTE THEN
       FileListB.LoadFromFile(OpenListDlg.Filename)
      END IF
     END SUB

     SUB SaveList
      SaveListDlg.Filter = "Playlist format|Other formats"
      IF SaveListDlg.EXECUTE THEN
       FileListB.SavetoFile(SaveListDlg.Filename + ".lst")
      END IF
     END SUB

     Application.HintHidePause = 5000
     Application.HintPause = 300
     RANDOMIZE TIMER
     Audio.SHOWMODAL
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Mon 2024-10-7  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2013-06-19 07:40:31