PureBasic

Bonjour la famille

Apres le truc et astuce de 2008, KCC il donne celui de 2009.
KCC il est a fond en ce moment

Bon voila, j'ai voulu faire ecrire ligne à ligne dans un webgadget, et pas moyen

Cet abruti, il faisait page blanche et ecrivais tout d'un coup apres.

Alors KCC il a demandé chez les français d'en face qui parlent pas le meme français, et rien de mieux

Sauf des mega codes de la mort qui soignait pas le Webgadget de KCC

Alors a force de fouiner KCC il a trouvé un POST de FREAK, qui disait de rajouter ces lignes :
http://www.purebasic.fr/english/viewtop ... 619#205619

Code : Tout sélectionner

  ; - Stream Source into WebGadget 
    SetGadgetItemText(10, #PB_Web_HtmlCode, "<html><body>Hello world!</body></html>") 

    While GetGadgetAttribute(10, #PB_Web_Busy) 
      While WaitWindowEvent(1): Wend 
    Wend 

    ; - Get HTML Code 
    MessageRequester("Code", GetGadgetItemText(10, #PB_Web_HtmlCode))

Qu' il ne savait pas pourquoi,.......... mais parce que, na !!!!

Mais ça marchait pas mieux avec ces lignes

Alors KCC il a eu l'idée de prendre que la moitié du code de FREAK

Et ça marche noir

Alors KCC il donne à la famille, la combine que peut etre tout le monde connait sauf lui, on sait jamais

Code : Tout sélectionner

If OpenWindow(0, 0, 0, 800, 500, "", #PB_Window_SystemMenu) 
  
 WebGadget(0, 0, 0, 800, 500, "") 
 Entete$ = "<html><head><title></title>" 
 Entete$ + "<div class='page'><h2>"+#CRLF$ 
 Fin$ + "</h2></div></body></html>"+#CRLF$ 
   
 For i = 1 To 8 

  html$ + "La ligne " + Str(i) + " de KCC est ecrite<br>" 
  SetGadgetItemText(0, #PB_Web_HtmlCode, Entete$ + html$ + Fin$) 
  While WaitWindowEvent(1):Wend 
  Delay(300)
 
 Next 
 
 MessageRequester("Youuupi!!!", "KCC est heureux :-))")
 Repeat 
  event = WaitWindowEvent(100) 
 Until event = #PB_Event_CloseWindow 

EndIf 
End

Prochaine combine à KCC en 2010

Bonne journée à tous

[quote="Kwai chang caine"]

Code : Tout sélectionner

For i = 1 To 8 
  html$ + "La ligne " + Str(i) + " de KCC est ecrite<br>" 
  SetGadgetItemText(0, #PB_Web_HtmlCode, Entete$ + html$ + Fin$) 
  While WaitWindowEvent(1):Wend 
  Delay(300)
Next

question, oh grand "Maestre des Codes"

à quoi sert le waitwindowEvent(1) ?
le delay(300) ?

y'a pas un doublon, là ?

pat

Bonjour PAT

Bah non justement

Toute la feinte elle est dans la ligne

Code : Tout sélectionner

While WaitWindowEvent(1):Wend

Car si tu la met pas comme il a dit FREAK et ben t'as panneau blanc

Cette ligne permet de laisser le temps a IE d'ecrire la ligne.
C'est le "Delay" mais que pour IE.
D'ailleur si tu augmente le 1 à 300 et que tu vire le dealy(300) et bah ça marche pas nikel

Et le delay lui c'est pour qu'elle s'ecrivent toute les x secondes, selon ce que tu desire.
Dis moi pas que ça sert a rien, j'ai mis 4 heures de recherches pour trouver cette ligne à la biip !!!!

Tu vois que je cherche

et si tu met juste un waitwindowevent() ?

sans rien dans la parenthese ? vu que ta boucle bloque le programme tant qu'il n'y a pas d'event, en plus tu peux virer le delay juste apres

bref

faut lire la doc mon pauvre kcc

Bah non les filles

Vous ecoutez pas ce que KCC il ecris

C'est vrai que c'est la premiere fois qu'il dit pas une connerie.....faut un temps d'adaptation

Si j'enleve le 1, je viens d'essayer, bah ça bloque carrement l'ecriture
Et moi, je veux que ça ecrive ligne a ligne

Et le delay(300) est reglable, selon la vitesse d'ecriture des lignes desirés.

L'un est pour IE et l'autre pour l'utilisateur, comme ça pas de jaloux

Code : Tout sélectionner

While WindowEvent()
Wend

Pas besoin de WaitWindowEvent

Et oui, pour débloquer le rafraichissement d'un programme au milieu d'un algo, il suffit de coller des

Code : Tout sélectionner

While WindowEvent()
Wend

au milieu de la boucle de l'algo

Ah bah, n'en voila un qui ecoute en classe !!!

Mais t'as raison, en plus

Non seulement t'as bien ecouté KCC professeur, mais en plus tu lui a donné des cours

Et bah, tu vois si j'avais su j'taurais demandé, parce que j'ai cherché 4 heure juste pour une ligne.
J'suis pas sur que mon patron y trouve que j'suis vraiment rentable

Kwai chang caine a écrit :Ah bah, n'en voila un qui ecoute en classe !!!

T'inquiete pas KCC , il y a 5 minutes, il ne le s'avais pas non plus

PureBasic

Ecriture ligne à ligne dans un WebGadget

Ecriture ligne à ligne dans un WebGadget

Re: Ecriture ligne à ligne dans un WebGadget