hola, tengo un codigo en vb de un mp3 player, pero le quiero poner una opcion de mp3 tag, es decir, que cuando presione un boton me muestre la informacion del mp3 seleccionado, pero tengo un problema, cuando pongo que me muestre todo en los text del mismo form donde esta el filelist me los muestra bien pero cuando pongo que me lo muestre en otro form, solo me muestra la informacion del primer mp3 que seleccione, aun si eligo otro siempre sigue igual, es como si se grabara o algo asi...
no se si me entiendan, aqui esta el codigo, pero antes de opnerles el codigo debo decir que, hice un module y en este puse las variables:
Código PHP:
Public Artist as String
Public Album as String
Public Year as String
public FileN as String
Public Comment as String
Public Title as String
y bien, este es el codigo que tengo
Código PHP:
Private Sub File1_Click()
Dim Filename As String
Filename = File1.Path & "\"
Filename = Filename & File1.List(File1.ListIndex)
With MediaPlayer1
If Not FileOpen Then
.Filename = Filename
.AutoStart = True
Else
.Filename = ""
End If
End With
Dim sArtist As String
Dim sTitle As String
Dim sAlbum As String
Dim sYear As String
Dim sComment As String
If GetTag(Filename, sTitle, sArtist, sAlbum, sYear, sComment) Then
txtTitle = Capitalize(sTitle)
Artist = Capitalize(sArtist)
Album = Capitalize(sAlbum)
Year = Capitalize(sYear)
Comment = Capitalize(sComment)
FileN = File1.List(File1.ListIndex)
End If
End Sub
Private Function GetTag(ByVal sFile As String, sTitle As String, sArtist As String, sAlbum As String, sYear As String, sComment As String) As Boolean
Dim b As Byte
Dim l As Long
Dim s As String
l = FileLen(sFile) - 1
Open sFile For Binary Access Read As 1
While FileLen(sFile) - l < 128
l = l - 1
Get #1, l, b
s = Chr(b) & s
Wend
Close #1
If InStr(s, "TAG") <> 0 Then
s = Mid(s, InStr(s, "TAG") + 3)
For l = 1 To 30
sTitle = sTitle & RusLat(Mid(s, l, 1))
Next
For l = 31 To 60
sArtist = sArtist & RusLat(Mid(s, l, 1))
Next
For l = 61 To 90
sAlbum = sAlbum & RusLat(Mid(s, l, 1))
Next
For l = 91 To 94
sYear = sYear & RusLat(Mid(s, l, 1))
Next
For l = 95 To 120
sComment = sComment & RusLat(Mid(s, l, 1))
Next
sTitle = Trim(sTitle)
sArtist = Trim(sArtist)
sAlbum = Trim(sAlbum)
sYear = Trim(sYear)
sComment = Trim(sComment)
GetTag = True
Else
GetTag = False
End If
End Function
Private Function Capitalize(ByVal s As String) As String
Dim i As Integer
s = UCase(Mid(s, 1, 1)) & LCase(Mid(s, 2))
For i = 2 To Len(s)
If Mid(s, i, 1) = " " Or Mid(s, i, 1) = "." Or Mid(s, i, 1) = "," Then
If i <> Len(s) Then s = Left(s, i) & UCase(Mid(s, i + 1, 1)) & Mid(s, i + 2)
End If
Next
Capitalize = s
End Function
Private Function RusLat(ByVal s As String) As String
Select Case Asc(s)
'lower case
Case &HB8: RusLat = "yo"
Case &HE9: RusLat = "y"
Case &HF6: RusLat = "ts"
Case &HF3: RusLat = "u"
Case &HEA: RusLat = "k"
Case &HE5: RusLat = "e"
Case &HED: RusLat = "n"
Case &HE3: RusLat = "g"
Case &HF8: RusLat = "sh"
Case &HF9: RusLat = "sch"
Case &HE7: RusLat = "z"
Case &HF5: RusLat = "kh"
Case &HFA: RusLat = "y"
Case &HF4: RusLat = "f"
Case &HFB: RusLat = "i"
Case &HE2: RusLat = "v"
Case &HE0: RusLat = "a"
Case &HEF: RusLat = "p"
Case &HF0: RusLat = "r"
Case &HEE: RusLat = "o"
Case &HEB: RusLat = "l"
Case &HE4: RusLat = "d"
Case &HE6: RusLat = "zh"
Case &HFD: RusLat = "e"
Case &HFF: RusLat = "ya"
Case &HF7: RusLat = "ch"
Case &HF1: RusLat = "s"
Case &HEC: RusLat = "m"
Case &HE8: RusLat = "i"
Case &HF2: RusLat = "t"
Case &HFC: RusLat = "'"
Case &HE1: RusLat = "b"
Case &HFE: RusLat = "yu"
'upper case
Case &H98: RusLat = "Yo"
Case &HE9: RusLat = "Y"
Case &HD6: RusLat = "Ts"
Case &HD3: RusLat = "U"
Case &HCA: RusLat = "K"
Case &HC5: RusLat = "E"
Case &HCD: RusLat = "N"
Case &HC3: RusLat = "G"
Case &HD8: RusLat = "Sh"
Case &HD9: RusLat = "Sch"
Case &HC7: RusLat = "Z"
Case &HD5: RusLat = "Kh"
Case &HDA: RusLat = "Y"
Case &HD4: RusLat = "F"
Case &HDB: RusLat = "I"
Case &HC2: RusLat = "V"
Case &HC0: RusLat = "A"
Case &HCF: RusLat = "P"
Case &HD0: RusLat = "R"
Case &HCE: RusLat = "O"
Case &HCB: RusLat = "L"
Case &HC4: RusLat = "D"
Case &HC6: RusLat = "Zh"
Case &HDD: RusLat = "E"
Case &HDF: RusLat = "Ya"
Case &HD7: RusLat = "Ch"
Case &HD1: RusLat = "S"
Case &HCC: RusLat = "M"
Case &HC8: RusLat = "I"
Case &HD2: RusLat = "T"
Case &HDC: RusLat = "'"
Case &HC1: RusLat = "B"
Case &HDE: RusLat = "Yu"
Case Else: RusLat = s
End Select
End Function
y en el otro form, (en el que mostrara la info) tengo esto:
Código PHP:
Private Sub Form_load()
txtArtist = Artist
txtAlbum = Album
txtYear = Year
txtTitle = Title
txtFilename = FileN
txtComment = Comment
Form1.Caption = Artist + "/" + Title
End Sub
alguna ayuda??