PureBasic Forums - English

http://www.purebasic.com
https://www.purebasic.fr/english/

Go to anchor in WebGadget [Resolved]

https://www.purebasic.fr/english/viewtopic.php?t=58311

Page 1 of 1

Go to anchor in WebGadget [Resolved]

Posted: Sat Feb 15, 2014 11:01 am
by Kwai chang caine
Hello at all :D

I try to go to an anchor in a web page into a webgadget , but with a button
I have try with JavaScript, but that not works
Surelly my code javascript is not good, or perhaps it's not possible like this.
All method interested me :D

Code: Select all

Enumeration
  #Form0
  #Web0
  #BoutonGoto50
EndEnumeration

OpenWindow(#Form0, 664, 253, 411, 451, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
WebGadget(#Web0, 14, 20, 384, 401, "")
ButtonGadget(#BoutonGoto50, 50, 428, 315, 20, "Goto to anchor 50")

Html$ = "<!DOCTYPE HTML PUBLIC " + Chr(34) + "-//W3C//DTD HTML 4.01 Transitional//EN" + Chr(34) + ">" + #CRLF$
Html$ + "<html>" + #CRLF$
Html$ + " <head>" + #CRLF$
Html$ + " <title>Document sans titre</title>" + #CRLF$
Html$ + " <meta http-equiv=" + Chr(34) + "Content-Type" + Chr(34) + " content=" + Chr(34) + "text/html; charset=iso-8859-1" + Chr(34) + ">" + #CRLF$
Html$ + #CRLF$
Html$ + " </head>" + #CRLF$
Html$ + #CRLF$
Html$ + " <body>" + #CRLF$
Html$ + #CRLF$
      
For i = 1 To 60
 
 Html$ + "<a href=#Kcc" + Trim(Str(i)) + ">I'm KCC line number " + Trim(Str(i)) + "<br><br><br></a></body>" + #CRLF$
 
Next

Html$ + " </body>" + #CRLF$
Html$ + "</html>" + #CRLF$
SetGadgetItemText(#Web0, #PB_Web_HtmlCode, Html$)

Repeat
  
 Evenement = WaitWindowEvent()
 
 If Evenement = #PB_Event_Gadget
  
  Select EventGadget()
    
   Case #BoutonGoto50
   
    GoAnchor$ = "<!DOCTYPE HTML PUBLIC " + Chr(34) + "-//W3C//DTD HTML 4.01 Transitional//EN" + Chr(34) + ">" + #CRLF$
    GoAnchor$ + "<html>" + #CRLF$
    GoAnchor$ + " <head>" + #CRLF$
    GoAnchor$ + " <title>Document sans titre</title>" + #CRLF$
    GoAnchor$ + " <meta http-equiv=" + Chr(34) + "Content-Type" + Chr(34) + " content=" + Chr(34) + "text/html; charset=iso-8859-1" + Chr(34) + ">" + #CRLF$
    GoAnchor$ + #CRLF$
    GoAnchor$ + " </head>" + #CRLF$
    GoAnchor$ + #CRLF$
    GoAnchor$ + " <body>" + #CRLF$
    GoAnchor$ + #CRLF$
    GoAnchor$ + "<script language=javascript>"
    GoAnchor$ + "gotourl(" + Chr(34) + "#Kcc50" + Chr(34) + " );"
    GoAnchor$ + "</script>"
    GoAnchor$ + " </body>" + #CRLF$
    GoAnchor$ + "</html>" + #CRLF$
    SetGadgetItemText(#Web0, 0, GoAnchor$)
     
  EndSelect  
  
 EndIf 
 
Until Evenement = #PB_Event_CloseWindow
Have a good day

Re: Go to anchor in WebGadget

Posted: Sat Feb 15, 2014 12:01 pm
by Kwai chang caine
I move...i have found a way with a Temp HTML file (In fact i have an error in the HTML code above :oops:)
But is it possible, to have the same thing, without creating a file ??

Code: Select all

Enumeration
  #Form0
  #Web0
  #BoutonGoto50
EndEnumeration

OpenWindow(#Form0, 664, 253, 411, 451, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
WebGadget(#Web0, 14, 20, 384, 401, "")
ButtonGadget(#BoutonGoto50, 50, 428, 315, 20, "Goto to anchor 50")

Html$ = "<!DOCTYPE HTML PUBLIC " + Chr(34) + "-//W3C//DTD HTML 4.01 Transitional//EN" + Chr(34) + ">" + #CRLF$
Html$ + "<html>" + #CRLF$
Html$ + " <head>" + #CRLF$
Html$ + " <title>Document sans titre</title>" + #CRLF$
Html$ + " <meta http-equiv=" + Chr(34) + "Content-Type" + Chr(34) + " content=" + Chr(34) + "text/html; charset=iso-8859-1" + Chr(34) + ">" + #CRLF$
Html$ + #CRLF$
Html$ + " </head>" + #CRLF$
Html$ + #CRLF$
Html$ + " <body>" + #CRLF$
Html$ + #CRLF$
      
For i = 1 To 60
 
 Html$ + "<div id=" + Chr(34) + "Kcc" + Trim(Str(i)) + Chr(34) + ">I'm KCC line number " + Trim(Str(i)) + "<br><br><br></div></body>" + #CRLF$
 
Next

Html$ + " </body>" + #CRLF$
Html$ + "</html>" + #CRLF$

If FileSize("c:\TempPage.html") <> -1
 DeleteFile("c:\TempPage.html")
EndIf

Canal = CreateFile(#PB_Any, "c:\TempPage.html")
WriteString(Canal, Html$)
CloseFile(Canal)

SetGadgetText(#Web0, "file:///" + "c|/TempPage.html")

Repeat
  
 Evenement = WaitWindowEvent()
 
 If Evenement = #PB_Event_Gadget
  
  Select EventGadget()
    
   Case #BoutonGoto50
       
    SetGadgetText(#Web0, "file:///" + "c|/TempPage.html#Kcc50")
     
  EndSelect  
  
 EndIf 
 
Until Evenement = #PB_Event_CloseWindow

If FileSize("c:\TempPage.html") <> -1
 DeleteFile("c:\TempPage.html")
EndIf

Re: Go to anchor in WebGadget

Posted: Sat Feb 15, 2014 4:23 pm
by Sparkie
Hi KCC :D

There are other ways but I make use of the element id name.

Code: Select all

Enumeration
  #Form0
  #Web0
  #BoutonGoto50
EndEnumeration

OpenWindow(#Form0, 664, 253, 411, 451, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
WebGadget(#Web0, 14, 20, 384, 401, "")
ButtonGadget(#BoutonGoto50, 50, 428, 315, 20, "Goto to anchor 50")

Html$ = "<!DOCTYPE HTML PUBLIC " + Chr(34) + "-//W3C//DTD HTML 4.01 Transitional//EN" + Chr(34) + ">" + #CRLF$
Html$ + "<html>" + #CRLF$
Html$ + " <head>" + #CRLF$
Html$ + " <title>Document sans titre</title>" + #CRLF$
Html$ + " <meta http-equiv=" + Chr(34) + "Content-Type" + Chr(34) + " content=" + Chr(34) + "text/html; charset=iso-8859-1" + Chr(34) + ">" + #CRLF$
Html$ + #CRLF$
Html$ + " </head>" + #CRLF$
Html$ + #CRLF$
Html$ + " <body>" + #CRLF$
Html$ + #CRLF$
      
For i = 1 To 60
 ;***************** add the id attribute to each hash *******************
 Html$ + "<a id='#KCC" + Str(i) + "'>I'm KCC line number " + Trim(Str(i)) + "<br><br><br></a></body>" + #CRLF$
 
Next

Html$ + " </body>" + #CRLF$
Html$ + "</html>" + #CRLF$
SetGadgetItemText(#Web0, #PB_Web_HtmlCode, Html$)

Repeat
  
 Evenement = WaitWindowEvent()
 
 If Evenement = #PB_Event_Gadget
  
  Select EventGadget()
    
    Case #BoutonGoto50
    GoAnchor$ = "javascript:ele = document.getElementById('#KCC50');"
    GoAnchor$ + "ele.scrollIntoView();"
    SetGadgetText(#Web0, GoAnchor$)
     
  EndSelect  
  
 EndIf 
 
Until Evenement = #PB_Event_CloseWindow

Re: Go to anchor in WebGadget

Posted: Sat Feb 15, 2014 6:03 pm
by Kwai chang caine
Yeeeessssss !!!!!! :D :D
That's works perfectly !!!!!!!

Thanks ...to continue to help your old earthworms of the programming !!!!
Image

And mainly thanks a lot, MASTER SPARKIE to give me the amazing pleasure, of come back with us.
You missed so much, during these years :cry:, at your "assistant" :oops:

Image (Remember :wink:)

I hope, you never go away, another big time like this, of your second familly :D

Long life to you, long life to the USA !!!

Image

Have a very good Week-End MASTER 8)

Re: Go to anchor in WebGadget [Resolved]

Posted: Sat Feb 15, 2014 8:44 pm
by davido
Hi KCC
Pure magic :)

Re: Go to anchor in WebGadget [Resolved]

Posted: Sat Feb 15, 2014 9:04 pm
by Kwai chang caine
Thanks DAVIDO 8) :D
Nothing is too much for PB and his numerous powerfull MASTER users :wink:
All times are UTC+01:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited