Stefan Thoolen .nl | VB6 Function Database

Attribute VB_Name = "modId3v1EmptyTag"
' This function is downloaded from:
' http://www.stefanthoolen.nl/archive/vb6-functions/
' 
' You may freely distribute this file but please leave all comments, including this one, in it.
' 
' @Author Stefan Thoolen <mail@stefanthoolen.nl>

Option Explicit

' Used to send back the ID3 tag to the application
' This is different from id3v1_file_footer since this type does not have string lengths defined
' Also some reformatting has been done so usage will be more user friendly
Public Type id3v1_tag
    has_tag As Boolean
    artist As String
    title As String
    album As String
    year As String
    has_trackno As Boolean
    trackno As Byte
    comment As String
    genre_id As Byte
    genre_text As String
    speed As Byte
End Type

''
' Returns an empty tag
' @return   id3v1_tag                       The tag elements
' @author   Stefan Thoolen <mail@stefanthoolen.nl>
Public Function id3v1_empty_tag() As id3v1_tag
    Dim ret As id3v1_tag
    id3v1_empty_tag = ret
End Function
Visual Basic 6 function "id3v1_empty_tag"

Go back
