Forum Liberty Basic France

Général » Encore des fenêtres Sans courant d'air ...
Le 09/10/2014 à 17h14

Libertynaute Actif

Groupe: Membre

Inscrit le: 04/12/2012
Messages: 139
Bonjour à tous,
J'essaie de faire afficher un document sous la forme xxx.txt dans une fenêtre textbox ... mais ...
Ca ne fonctionne pas !
Ou je ne sais pas faire !!!
Merci d'une aide
Salutations
Horace
____________________
The Basic and I

Mail Web    
Le 10/10/2014 à 17h02

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2083
Hum...Toi, tu n'a pas bien étudiée la doc.
Voici un bout que j'ai extrait d'un prog.
Code VB :
 
 
texteditor #w.txt, 60, 35, 150, 345 'fenetre résultat
 open "L'Algo qui déchire" FOR WINDOW AS #w
#w.txt,"!autoresize" 'le texteditor suis le redimensionnement de la fenêtre
#w.txt,word$(a$,i);" ";word$(a$,j);" ";word$(a$,k);" ";word$(a$,m) ' On affiche sur une ligne avec des espaces entre les items

 


Les points virgules empêchent le retour à la ligne

Et...RTFM-->(Read the fucking manual) ;)
Allez...C'est mon jour de bonté.. Regarde le code qui suit (fonctionnel)
Le blème, c'est que je ne me rappelle pas ce qu'il fait...Au juste
je regarde si je te trouve autre chose...Lol!
Code VB :
 
 
nomainwin
 WindowWidth = 700
    WindowHeight = 450
    UpperLeftX = Int((DisplayWidth-WindowWidth)/2)
    UpperLeftY = Int((DisplayHeight-WindowHeight)/2)
 
    dim ecrit$(100)
 
    statictext #w.stat1, "Lire ICI", 150, 100, 150, 20
    statictext #w.stat2, "Ecrire ICI", 450, 100, 150, 20
    'TEXTBOX #w.av1, sQsize*5+30, 30, 150, 25
    button #w.sav, "SAVE",[sauve], UL, 500, 300
    button #w.sav, "LIRE",[lire], UL, 450, 300
 
    BackgroundColor$ = "brown"  ' couleur arrière plan "window" avant open
    ForegroundColor$ = "black"  ' couleur avant plan "window" avant open
    graphicbox #w.gr 5, 5, 400, 70  ' pour le logo de l'entreprise LoL!
    TEXTEDITOR #w.lire, 20, 130, 300, 150 ' voir l'aide pour les manip's
    TEXTEDITOR #w.ecri, 340, 130, 300, 150
    OPEN "         AlexChat" +space$(20)+ "Merci à Roland our son aide précieuse" For window_nf As #w
    #w "TrapClose [quit]"
    #w.gr, "down"  ' pour incliner le pot de peinture
    #w.gr, " fill red"  ' couleur graphicbox (#w.gr) apres open
    #w.gr "backcolor red"  ' le fond des lettres de "Alex777"
    #w.gr "color yellow; font ";font$;" 36 bold" ' la couleur, la police et la taille
    #w.gr "place 5 50"  ' l'endroit dans la graphicbox (#w.gr)
    #w.gr "| ALEX 877"
    #w.gr "font ";font$;" 14"  'changement de taille le font$ proviens d'un autre prog...
    #w.gr "place 250 50"        '...comme font$ n'a pas étée initialisée...
    #w.gr "| Chat..ou..Net"      '...le basar doit mettre une police par défaut
    #w.gr "font ";font$;" 10"  ' retour taille normale

 wait  'ne pas oublier les wait ou le prog va jusqu'au [quit] et se barre !

 [sauve]
#w.ecri, "!contents? ecrit$"
    open "MSG2.TXT" for append as #out
 
    print #out, "perso  dit : "; ecrit$ 
 
    close #out
 
wait
[lire]
 cls
 open "MSG2.TXT" for input as #monFichier
 
  while eof(#monFichier) <> -1
     input #monFichier,ligne$ 
  wend
close #monFichier
   #w.lire, "font ";font$;" 12 bold"
   #w.lire,"color black"
   #w.lire, "!contents ligne$"
wait   ' sans le wait rien de bon
    [quit]
        close #w
    end
 
 


Et enfin, tu a ce code de cassiope qui utilise des texteditors.

http://libertybasic.fr/forum/topic-64+dictionnaire-jb-lb.php
____________________
Roro

   
Le 14/10/2014 à 10h53

Libertynaute Actif

Groupe: Membre

Inscrit le: 04/12/2012
Messages: 139
Extra tes extraits. C'est exactement ce que je recherchais !
Grands mercis et salutations
H.
____________________
The Basic and I

Mail Web    
Général » Encore des fenêtres Sans courant d'air ...  

 |  |

1 Utilisateur en ligne : 0 Administrateur, 0 Modérateur, 0 Membre et 1 Visiteur
Utilisateur en ligne : Aucun membre connecté
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie