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))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
Bonne journée à tous
