用VB做的一個音樂播放器，有兩個播放串列檔案（1.lst和2.lst），播放串列中1.lst的當前歌曲 右鍵移動到另外個串列2.lst 怎么做呢？
右鍵已經有幾個功能了，想添加以上的功能
附上一些代碼：
Private Sub RLs_Click(Index As Integer)
Select Case Index
Case 0 '播放
Call frmList.MSF_DblClick
Case 2 '洗掉
Call mnuDels_Click(0)
Case 3 '移動到串列2 這里的代碼怎么寫啊？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
Case 4 '修改歌名
Dim str As String
str = InputBox("請為該曲輸入新歌名:", "修改歌名", frmList.MSF.TextMatrix(frmList.MSF.row, 1))
If Trim(str) <> "" Then
frmList.MSF.TextMatrix(frmList.MSF.row, 1) = str
Call frmMain.SaveList '保存串列
End If
Case 5 '修改歌手
str = InputBox("請為該曲輸入新歌手:", "修改歌手", frmList.MSF.TextMatrix(frmList.MSF.row, 2))
If Trim(str) <> "" Then
frmList.MSF.TextMatrix(frmList.MSF.row, 2) = str
Call frmMain.SaveList '保存串列
End If
Case 8 '地址無效
Dim I As Integer
Dim j As Integer
For I = 1 To frmList.MSF1.Rows - 1
If Trim(frmList.MSF1.TextMatrix(I, 1)) = "" Then j = I: Exit For
Next
If j = 0 Then
frmList.MSF1.Rows = frmList.MSF1.Rows + 1
j = frmList.MSF1.Rows - 1
Else
End If
frmList.MSF1.row = j
frmList.MSF1.TextMatrix(frmList.MSF1.row, 0) = Format(frmList.MSF1.row, "000")
frmList.MSF1.TextMatrix(frmList.MSF1.row, 1) = frmList.MSF.TextMatrix(frmList.MSF.row, 1)
frmList.MSF1.TextMatrix(frmList.MSF1.row, 2) = frmList.MSF.TextMatrix(frmList.MSF.row, 2)
frmList.MSF1.TextMatrix(frmList.MSF1.row, 3) = frmList.MSF.TextMatrix(frmList.MSF.row, 3)
Call frmList.TabSel(1)
Case 9
'Call frmMain.MTV1_Click(0)
End Select
End Sub
uj5u.com熱心網友回復：
本人是菜鳥，我的QQ：787842463 希望高手幫忙，uj5u.com熱心網友回復：
串列檔案（1.lst和2.lst）的格式如下："歌名","歌手","00:00","E:\音樂\005.mp3"
uj5u.com熱心網友回復：
Private Sub List3_DblClick()
List2.AddItem List3.List(List3.ListIndex)
List3.RemoveItem List3.ListIndex
End Sub
Private Sub List2_DblClick()
List3.AddItem List2.List(List2.ListIndex)
List2.RemoveItem List2.ListIndex
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/131237.html
標籤：多媒體
上一篇：讀取自定義HID設備，在以讀方式打開設備CreateFile時GENERIC_READ一直回傳5
下一篇：vb新人求幫助 vb講解視頻