Visual Basic 6 function "id3_genre_name"

Go back

Below you'll find the source for the Visual Basic 6 function id3_genre_name.

Attribute VB_Name = "modId3GenreName"
' 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

''
' Returns the name of a genre number
' @param    Byte       id                   The number of the genre
' @return   String                          The name of the genre
' @author   Stefan Thoolen <mail@stefanthoolen.nl>
Public Function id3_genre_name(id As Byte) As String
    Dim genre As String
    Select Case id
        Case 0: genre = "Blues"
        Case 1: genre = "Classic Rock"
        Case 2: genre = "Country"
        Case 3: genre = "Dance"
        Case 4: genre = "Disco"
        Case 5: genre = "Funk"
        Case 6: genre = "Grunge"
        Case 7: genre = "Hip-Hop"
        Case 8: genre = "Jazz"
        Case 9: genre = "Metal"
        Case 10: genre = "New Age"
        Case 11: genre = "Oldies"
        Case 12: genre = "Other"
        Case 13: genre = "Pop"
        Case 14: genre = "R&B"
        Case 15: genre = "Rap"
        Case 16: genre = "Reggae"
        Case 17: genre = "Rock"
        Case 18: genre = "Techno"
        Case 19: genre = "Industrial"
        Case 20: genre = "Alternative"
        Case 21: genre = "Ska"
        Case 22: genre = "Death Metal"
        Case 23: genre = "Pranks"
        Case 24: genre = "Soundtrack"
        Case 25: genre = "Euro-Techno"
        Case 26: genre = "Ambient"
        Case 27: genre = "Trip-Hop"
        Case 28: genre = "Vocal"
        Case 29: genre = "Jazz+Funk"
        Case 30: genre = "Fusion"
        Case 31: genre = "Trance"
        Case 32: genre = "Classical"
        Case 33: genre = "Instrumental"
        Case 34: genre = "Acid"
        Case 35: genre = "House"
        Case 36: genre = "Game"
        Case 37: genre = "Sound Clip"
        Case 38: genre = "Gospel"
        Case 39: genre = "Noise"
        Case 40: genre = "AlternRock"
        Case 41: genre = "Bass"
        Case 42: genre = "Soul"
        Case 43: genre = "Punk"
        Case 44: genre = "Space"
        Case 45: genre = "Meditative"
        Case 46: genre = "Instrumental Pop"
        Case 47: genre = "Instrumental Rock"
        Case 48: genre = "Ethnic"
        Case 49: genre = "Gothic"
        Case 50: genre = "Darkwave"
        Case 51: genre = "Techno-Industrial"
        Case 52: genre = "Electronic"
        Case 53: genre = "Pop-Folk"
        Case 54: genre = "Eurodance"
        Case 55: genre = "Dream"
        Case 56: genre = "Southern Rock"
        Case 57: genre = "Comedy"
        Case 58: genre = "Cult"
        Case 59: genre = "Gangsta"
        Case 60: genre = "Top 40"
        Case 61: genre = "Christian Rap"
        Case 62: genre = "Pop/Funk"
        Case 63: genre = "Jungle"
        Case 64: genre = "Native American"
        Case 65: genre = "Cabaret"
        Case 66: genre = "New Wave"
        Case 67: genre = "Psychadelic"
        Case 68: genre = "Rave"
        Case 69: genre = "Showtunes"
        Case 70: genre = "Trailer"
        Case 71: genre = "Lo-Fi"
        Case 72: genre = "Tribal"
        Case 73: genre = "Acid Punk"
        Case 74: genre = "Acid Jazz"
        Case 75: genre = "Polka"
        Case 76: genre = "Retro"
        Case 77: genre = "Musical"
        Case 78: genre = "Rock & Roll"
        Case 79: genre = "Hard Rock"
        Case 80: genre = "Folk"
        Case 81: genre = "Folk-Rock"
        Case 82: genre = "National Folk"
        Case 83: genre = "Swing"
        Case 84: genre = "Fast Fusion"
        Case 85: genre = "Bebob"
        Case 86: genre = "Latin"
        Case 87: genre = "Revival"
        Case 88: genre = "Celtic"
        Case 89: genre = "Bluegrass"
        Case 90: genre = "Avantgarde"
        Case 91: genre = "Gothic Rock"
        Case 92: genre = "Progressive Rock"
        Case 93: genre = "Psychedelic Rock"
        Case 94: genre = "Symphonic Rock"
        Case 95: genre = "Slow Rock"
        Case 96: genre = "Big Band"
        Case 97: genre = "Chorus"
        Case 98: genre = "Easy Listening"
        Case 99: genre = "Acoustic"
        Case 100: genre = "Humour"
        Case 101: genre = "Speech"
        Case 102: genre = "Chanson"
        Case 103: genre = "Opera"
        Case 104: genre = "Chamber Music"
        Case 105: genre = "Sonata"
        Case 106: genre = "Symphony"
        Case 107: genre = "Booty Bass"
        Case 108: genre = "Primus"
        Case 109: genre = "Porn Groove"
        Case 110: genre = "Satire"
        Case 111: genre = "Slow Jam"
        Case 112: genre = "Club"
        Case 113: genre = "Tango"
        Case 114: genre = "Samba"
        Case 115: genre = "Folklore"
        Case 116: genre = "Ballad"
        Case 117: genre = "Power Ballad"
        Case 118: genre = "Rhythmic Soul"
        Case 119: genre = "Freestyle"
        Case 120: genre = "Duet"
        Case 121: genre = "Punk Rock"
        Case 122: genre = "Drum Solo"
        Case 123: genre = "A capella"
        Case 124: genre = "Euro-House"
        Case 125: genre = "Dance Hall"
        Case Else: genre = "Unknown"
    End Select
    id3_genre_name = genre
End Function