Insérer du Texte dans un DataGrid: Lecteur MP3 [Résolu]

Signaler
Messages postés
23
Date d'inscription
dimanche 23 septembre 2007
Statut
Membre
Dernière intervention
10 juillet 2008
-
Messages postés
23
Date d'inscription
dimanche 23 septembre 2007
Statut
Membre
Dernière intervention
10 juillet 2008
-
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)

16 réponses

Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
4
'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
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
4
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
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
4
je pense qu'il faut dabord créer des colonnes!
Messages postés
23
Date d'inscription
dimanche 23 septembre 2007
Statut
Membre
Dernière intervention
10 juillet 2008

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
Messages postés
23
Date d'inscription
dimanche 23 septembre 2007
Statut
Membre
Dernière intervention
10 juillet 2008

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)
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
4
Messages postés
23
Date d'inscription
dimanche 23 septembre 2007
Statut
Membre
Dernière intervention
10 juillet 2008

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...
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
4
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
Messages postés
23
Date d'inscription
dimanche 23 septembre 2007
Statut
Membre
Dernière intervention
10 juillet 2008

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
Messages postés
23
Date d'inscription
dimanche 23 septembre 2007
Statut
Membre
Dernière intervention
10 juillet 2008

Agrandi l'image pour une meilleur qualitée...
Messages postés
23
Date d'inscription
dimanche 23 septembre 2007
Statut
Membre
Dernière intervention
10 juillet 2008

:( 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..
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
4
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
Messages postés
23
Date d'inscription
dimanche 23 septembre 2007
Statut
Membre
Dernière intervention
10 juillet 2008

D'où sort tu le vbNullChar ?
Messages postés
23
Date d'inscription
dimanche 23 septembre 2007
Statut
Membre
Dernière intervention
10 juillet 2008

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..
Messages postés
23
Date d'inscription
dimanche 23 septembre 2007
Statut
Membre
Dernière intervention
10 juillet 2008

MERCI BEAUCOUP
Ça fonctionne #1
J'en revien pas encore !!!
Voici un apercu:
Messages postés
23
Date d'inscription
dimanche 23 septembre 2007
Statut
Membre
Dernière intervention
10 juillet 2008

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