Ce sujet est résolu.
| 1 | |
| Auteur | Messages |
|---|---|
| DIM900 | #1 Posté le 26/12/2011 à 20:47:42 |
 | Bonjour à tous Je suis un débutant dans le monde de gambas, mais aussi dans la programmation.  Mais la, je suis un débité..   Pour fin simple J ai un " textbox" qui ajoute l'info dans une "listbox1" et avec un bouton je sauvegarde le tout dans ufichier text. Maintenant, j esseille d affiche ce fichier text dans un "tableview1" mais la impossible. J ai simplement réussi à définir le nbs de colonnes et de lignes. De donner un nom au colonnes et au ligne.. Mais impossible d afficher le contenus du fichier dans le tableau. Avez vous une idée ou un exemple. Merci d avance. Je voudrai une gambas grillée   Merci  |
| jeanyvon | #2 Posté le 26/12/2011 à 21:05:15 |
Gambas? Ma! Et gusto | hello! être débité c'est mortel mais être dépité ça l'est moins! il faudrait que tu donnes du code pour que nous puissions voir! a+ JY Vieillir? On peut retarder mais pas y échapper! |
| DIM900 | #3 Posté le 26/12/2011 à 21:24:50 |
| Merci pour "dépité " Voici le code complet. PUBLIC SUB _new() END PUBLIC SUB Form_Open() ME.Center() ListBox1.List = Split(File.Load(ModVariables.listeAGC_boutton), " ") TableViewLisAGC.Columns.Count = 25 TableViewLisAGC.Rows.Count = 25 TableViewLisAGC.Header = 1 TableViewLisAGC.Columns[0].Text = ("Agence") TableViewLisAGC.Columns[0].Width = 100 END PUBLIC SUB Form_Close() IF Sauvegarde() = FALSE THEN STOP EVENT RETURN ENDIF END PUBLIC SUB Button1_Click() DIM AjAGC AS String 'defini la variable comme non numerique AjAGC = TextBox1.Text 'info saisie par user ajouter dans la variable ListBox1.Add(AjAGC) 'insertion dans la liste END PUBLIC SUB Button2_Click() ListBox1.Remove(ListBox1.Index) 'sup dans la liste la selection END PUBLIC SUB Button3_Click() 'Determine la variable "listeAGC" comme fichier DIM listeAGC AS File 'creer un fichier text listeAGC = OPEN ModVariables.listeAGC_boutton FOR WRITE CREATE 'ecriture dans le ficher avec le séparateur ; PRINT #listeAGC, ListBox1.List.Join(" ") 'ferme le fichier en coure CLOSE #listeAGC Message.Info("Sauvegarde effecter") END PUBLIC SUB Menu4_Click() 'Quitter le prog dans le menu ME.Close END PUBLIC FUNCTION Sauvegarde() AS Boolean DIM typemes AS Integer typemes = Message.Question("Voulez vous sauvegarder ?", "Oui", "Non") SELECT CASE typemes CASE 1, 5, 8 ' Repondu OUI 'creer un fichier text Ecriture_Fichier() RETURN TRUE CASE 2 ' Repondu NON RETURN TRUE CASE ELSE ' Cas par default RETURN FALSE END SELECT END PUBLIC FUNCTION Ecriture_Fichier() AS String DIM listeAGC AS File 'DIM Eleve AS NEW ClassEleve listeAGC = OPEN ModVariables.listeAGC_boutton FOR WRITE CREATE 'ecriture dans le ficher avec le séparateur ; PRINT #listeAGC, ListBox1.List.Join(" ") 'ferme le fichier en coure CLOSE #listeAGC Message.Info("Sauvegarde effecter") END PUBLIC SUB TableViewLisAGC_Data(Row AS Integer, Column AS Integer) DIM TBmenu AS String[] TBmenu = Split(File.Load(ModVariables.listeAGC_boutton), " ") TableViewLisAGC[0, 0].Text = TBmenu END Je voudrai une gambas grillée Merci |
| spheris | #4 Posté le 26/12/2011 à 22:50:59 |
 | As-tu consulté ce petit tuto : http://gambaslinux.eg2.fr/articles.php?lng=fr&pg=162 Bon courage pour ton projet ! A+ ;) |
| DIM900 | #5 Posté le 2/1/2012 à 16:49:11 |
| Merci des infos.. Je vais esseyer.. Je voudrai une gambas grillée Merci |
| 1 | |