用vb改mp3标签

用vb改mp3标签

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Dim o1, o2, o3, o4, o5Private Sub Check1_Click()
If Check1.Value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End SubPrivate Sub Check2_Click()
If Check2.Value = 1 Then
Me.Hide
Else
Check2.Value = 0
End If
End SubPrivate Sub Command1_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
WindowsMediaPlayer1.URL = Text1.Text
End SubPrivate Sub Command2_Click()
File1.ListIndex = File1.ListIndex + 1
WindowsMediaPlayer1.URL = File1.FileName
End SubPrivate Sub Command5_Click()
'Text1.Text = Drive1.ListCount
ak = Drive1.ListIndex + 1
If ak = "1" Then
ak = "c:\"
ElseIf ak = "2" Then
ak = "d:\"
ElseIf ak = "3" Then
ak = "e:\"
ElseIf ak = "4" Then
ak = "f:\"
ElseIf ak = "5" Then
ak = "g:\"
End If
Dir1.Path = ak
End SubPrivate Sub Dir1_Change()
File1.Path = Dir1.Path
End SubPrivate Sub File1_Click()
WindowsMediaPlayer1.URL = File1.Path + "\" + File1.FileName
End SubPrivate Sub Timer1_Timer()
If WindowsMediaPlayer1.playState = wmppsPlaying Then
Else
File1.ListIndex = File1.ListIndex + 1
WindowsMediaPlayer1.URL = File1.Path + "\" + File1.FileName
End IfEnd SubPrivate Sub Timer2_Timer()
If GetKeyState(vbKeyF6) < 0 Then 'f6按下
Me.Show
Else
Check2.Value = 0
End If
End Sub是不是这个啊？