title image


Smiley Re: Problem bei UserForm mit Argument
Hallo snooper,



so:



Private Sub CommandButton1_Click()    Dim uID3v2 As ID3v2    Dim sFile As String    Dim nSize As Long    sFile = "C:\test.mp3"    nSize = MP3_ID3v2Exists(sFile)    If nSize > 0 Then        uID3v2 = MP3_ReadID3v2Tag(sFile, nSize)        Label1.Caption = "Titel: " & uID3v2.sTitle        Label2.Caption = "Interpret: " & uID3v2.sArtist        Label3.Caption = "Album: " & uID3v2.sAlbum        Label4.Caption = "Track: " & uID3v2.sTrack        Label5.Caption = "Länge: " & uID3v2.sLen        Label6.Caption = "Medium: " & uID3v2.sMedium        Label7.Caption = "Kommentar: " & uID3v2.sComment    End IfEnd Sub
Gruß
Nepumuk


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: