Insérer du Texte dans un DataGrid: Lecteur MP3Résolu

Question

Bonjour a tous et a toute,
Peut-être le thème ne se situe pas la,
J'ai une question à vous poser.
Ça fais près de 1 semaine aujourd'hui que je cherche un moyen d'insérer du texte
dans un DataGrid => Rien

Pourquoi un DataGrid ??? Je suis en train de faire un lecteur MP3,
Et j'aimerais mettre les titres, albums et durés dans chacunes des colonnes
respectives.

J'ai réussi malgré tout a pouvoir insérer du text dans la première collonne lors
d'ajout de lignes : DataGridView1.Rows.Add(MonTexte.Text).

DONC, Je met la question suivante en caractère gras et surligner:
Comment insérer du texte dans un datagrid ?

Donc j'espère que j'ai asser mis d'infos pour vous aider a m'aider :P

Bonne journée et j'attend vos réponses !!!

(PS: je travaille en VB 2008)

gillardg · Accepted Answer

'pour une datagridview qui possède 20 colonnes








'ça fait les tables de multiplications tout seul








' si j'avais eu ça à l'école primaire ...








' pas compliqué quand même de trouver quand on cherche un peu








For

 x = 0 


To

 100DataGridView1.Rows.Add(x, x * 2, x * 3, x * 4, x * 5, x * 6, x * 7, x * 8, x * 9, x * 10, x * 11, x * 12, x * 13, x * 14, x * 15, x * 16, x * 17, x * 18, x * 19, x * 20)



Next

 x

gillardg · Answer

je pense qu'il faut dabord créer des colonnes!

xboxnissan · Answer

Tu ne vois aucune collones ???
Il y en a trois : Titre, durée et Artiste

Ensuite je fais quoi gillardg ?

Merci de m'avoir répondu !

XbOxNiSsAn

xboxnissan · Answer

j'ai trouver la réponse avant que tu me le dise,

Mais si je n'aurais pas su, je t'aurais dis
1 000 000 000 000 000 001 fois merci

Merci quand même !

Tant a ce que tu sois la, sait tu comment extraire un artiste et la durée de la chanson ?

Merci Merci encore !

Martin

PS: j'ai trouver en fesans ceci :    DataGridView1.Rows.Add(FileName2, FileName2, FileName2), mais j'aimerais que ca devienne: DataGridView1.Rows.Add(FileName2, Filelenght, FileArtist)

gillardg · Answer

http://www.vbfrance.com/codes/CLASSE-MP3-TAGS-IMAGE_33910.aspx

xboxnissan · Answer

Salut encore, je ne comprend pas ce qu'elle veut dire...

text1.text = mp3.artist ???

Comment fait-elle pour déclarer ca ?

XbOxNiSsAn

PS:
Voici mon code:
        ImporterMusique.ShowDialog()
        FileName = ImporterMusique.FileName
        FileArtist = FileName.artist
        FileLenght = FileName.lenght
        FileName2 = Mid$(FileName, InStrRev(FileName, "") + 1)
        DataGridView1.Rows.Add(FileName2, FileLenght, FileArtist)
J'aimerais que ca ressemble a ca...

gillardg · Answer

copie le code de la classe dans la form aue tu utilises ( après le End Class)

ensuite tu l'utilises:




Dim

 mp3 


As





New

 cls_mp3tag()  ' faut déclarer une classe avant de l'utiliser















Dim

 ofd 


As





New

 OpenFileDialogofd.ShowDialog()

mp3.init(ofd.FileName)

mp3.num = 1 



'il doivent avoir un no, moi c'est la clé de ma base access








'affiche les tags dans un textbox


TextBox1.Text = mp3.artist & 





" - "

 & mp3.title & 


" - "

 & mp3.album
voila je viens de l'éssayer chez moi et ça fonctionne très bien

xboxnissan · Answer

le  Dim mp3 
As
New cls_mp3tag() 
ne fonctionne pas...
http://www.freewebs.com/martinkillers/Nouvelle%20image%20%282%29.bmp
regarde ce lien voila ce qu'il marrive...

Merci de me répondre !

XbOxNiSsAn

xboxnissan · Answer

Agrandi l'image pour une meilleur qualitée...

gillardg · Answer

Imports




 System.IO



Imports

 System.Net





Public





Class

 Form1





Dim

 mp3 


As





New

 cls_mp3tag()



Private





Sub

 Button1_Click(


ByVal

 sender 


As

 System.Object, 


ByVal

 e 


As

 System.EventArgs) 


Handles

 Button1.Click



Dim

 ofd 


As





New

 OpenFileDialog
ofd.ShowDialog()
mp3.init(ofd.FileName)
mp3.num = 1
TextBox1.Text = 


"Artiste "

 & mp3.artist & vbCrLf & 


"Titre "

 & mp3.title & vbCrLf & 


"Album "

 & mp3.album
mp3player.URL = ofd.FileName



End





Sub
End





Class




<Serializable()> 


Public





Class

 cls_mp3tag



Public

 path 


As





String








Public

 directory 


As





String








Public

 filename 


As





String








Public

 artist 


As





String








Public

 title 


As





String








Public

 album 


As





String








Public

 genre 


As





String

 = 255



Public

 comments 


As





String








Public

 track 


As





String








Public

 tagged 


As





Boolean








Public

 num 


As





Integer








' Genres








Public





Enum

 enum_genres 


As





Byte


Blues = 0


ClassicRock = 1


Country = 2


Dance = 3


Disco = 4


Funk = 5


Grunge = 6


HipHop = 7


Jazz = 8


Metal = 9


NewAge = 10


Oldies = 11


Other = 12


Pop = 13


RnB = 14


Rap = 15


Reggae = 16


Rock = 17


Techno = 18


Industrial = 19


Alternative = 20


Ska = 21


DeathMetal = 22


Pranks = 23


Soundtrack = 24


EuroTechno = 25


Ambient = 26


TripHop = 27


Vocal = 28


JazzFunk = 29


Fusion = 30


Trance = 31


Classical = 32


Instrumental = 33


Acid = 34


House = 35


Game = 36


SoundClip = 37


Gospel = 38


Noise = 39


AlternRock = 40


Bass = 41


Soul = 42


Punk = 43


Space = 44


Meditative = 45


InstrumentalPop = 46


InstrumentalRock = 47


Ethnic = 48


Gothic = 49


Darkwave = 50


TechnoIndustrial = 51


Electronic = 52


PopFolk = 53


Eurodance = 54


Dream = 55


SouthernRock = 56


Comedy = 57


Cult = 58


Gangsta = 59


Top40 = 60


ChristianRap = 61


PopFunk = 62


Jungle = 63


NativeAmerican = 64


Cabaret = 65


NewWave = 66


Psychadelic = 67


Rave = 68


Showtunes = 69


Trailer = 70


LoFi = 71


Tribal = 72


AcidPunk = 73


AcidJazz = 74


Polka = 75


Retro = 76


Musical = 77


RocknRoll = 78


HardRock = 79


None = 255








End





Enum








'******************************************************************************








'recup les infos a partir des tags








Public





Sub

 init(


ByVal

 e_path 


As





String

)



Me

.path = e_path



Try








Me

.filename = 


Me

.path.Substring(


Me

.path.LastIndexOf(


""

) + 1)



Me

.title = 


Me

.filename



Me

.directory = 


Me

.path.Substring(0, 


Me

.path.LastIndexOf(


""

) + 1)



Dim

 Buffer(128) 


As





Byte








Dim

 StreamReadWrite 


As

 System.IO.FileStream



Dim

 Encodeur 


As





New

 System.Text.ASCIIEncoding



Try


StreamReadWrite = 





New

 System.IO.FileStream(path, System.IO.FileMode.Open, System.IO.FileAccess.ReadWrite, System.IO.FileShare.ReadWrite)



Catch

 ex 


As

 Exception



Exit





Sub








End





Try








Dim

 TagID3 


As





String


StreamReadWrite.Seek(-128, System.IO.SeekOrigin.End)


StreamReadWrite.Read(Buffer, 0, 128)


TagID3 = Encodeur.GetString(Buffer)








'Recherche du Tag TAG








If

 TagID3.Substring(0, 3).Equals(


"TAG"

) 


Then








'Initialisation de Title








Me

.title = TagID3.Substring(3, 30).Trim.Replace(Chr(0), 


""

).Trim(


CChar

(vbNullChar))



'Initialisation de Author








Me

.artist = TagID3.Substring(33, 30).Trim.Trim.Replace(Chr(0), 


""

).Trim(


CChar

(vbNullChar))



'Initialisation de Album








Me

.album = TagID3.Substring(63, 30).Trim.Trim.Replace(Chr(0), 


""

).Trim(


CChar

(vbNullChar))



'Initialisation de Comments








Me

.comments = TagID3.Substring(97, 28).Trim.Trim.Replace(Chr(0), 


""

).Trim(


CChar

(vbNullChar))



'Analyse du caractère 125 de TagID3








If

 TagID3.Chars(125).Equals(0) 


Then








'Initialisation de Track








Me

.track = Buffer.GetValue(126)



'Initialisation de Tagged








Me

.tagged = 


False








Else








'Initialisation de Track








Me

.track = 0



'Initialisation de Category








Me

.genre = Buffer.GetValue(127)



If





Me

.genre = 


""





Or





Me

.genre = 


" "





Then








Me

.genre = 


"255"








End





If








If





Me

.title = 


""





Then





Me

.title = 


Me

.filename



'Initialisation de Tagged








Me

.tagged = 


True








'ferme le fichier


StreamReadWrite.Close()








End





If








End





If








Catch

 IOex 


As

 System.IO.IOException



End





Try








'si ya pas de title, on met le nom du fichier








If





Me

.title = 


""





Then





Me

.title = 


Me

.filename



'si ya pas d'artiste, on met le nom du dossier 








If

 IsNothing(


Me

.artist) 


OrElse





Me

.artist.Length = 0 


Then





Me

.artist = 


"Inconnu"








End





Sub








'******************************************************************************









End








Class

xboxnissan · Answer

:( jcomprend vraiment rien je suis désolé

Pourrais tu me créer un code avec ceci

 ImporterMusique.ShowDialog()
 FileName = ImporterMusique.FileName
FileArtist = Me.Artiste
FileLenght = Me.Durée
 FileName2 = Mid$(FileName, InStrRev(FileName, "") + 1)
  DataGridView1.Rows.Add(FileName2, FileLenght, FileArtist)

parce que le Me ne fonctionne pas...

XbOxNiSsAn

PS: je suis un débutant..

gillardg · Answer

as tu copié le code que je t'ai donné^^???
éssayes le regardes le résultat et adaptes le a tes besoins ,


il n'y a rien de compliqué 
ciao 


L'expérience c'est une connerie par jour mais jamais la même

xboxnissan · Answer

D'où sort tu le vbNullChar ?

xboxnissan · Answer

Laisse j'essaie en ce moment d'incroporer ton code au mien...

J'ai fait un autre projet pour tester et ca marche #1

Maintenant le transférer ne seras pas facile..

xboxnissan · Answer

MERCI BEAUCOUP
Ça fonctionne #1
J'en revien pas encore !!!
Voici un apercu:

xboxnissan · Answer

Lol tant qu'a faire aussi, comment je fais pour que je clique sur la chanson (le cell) ca joue.

j'aimerais que quand je clique sur play, le timer1 devienne enabled true, et que la chanson démarre

Merci vraiment de ta réponse pour le datagrid !!!

À bientôt,

XbOxNiSsAn

Insérer du Texte dans un DataGrid: Lecteur MP3

16 réponses

Votre réponse

Discussions similaires