WebGadget - Alles auswählen
Verfasst: 17.02.2024 11:32
Moin,
habe schon einiges versucht, bekomme es aber einfach nicht gebacken:
Wie kann ich im WebGadget "Alles markieren"??
Von Hand geht es natürlich (Ctrl A)
Jemand eine Idee?
Danke, Joe
habe schon einiges versucht, bekomme es aber einfach nicht gebacken:
Wie kann ich im WebGadget "Alles markieren"??
Von Hand geht es natürlich (Ctrl A)
Jemand eine Idee?
Danke, Joe
Code: Alles auswählen
EnableExplicit
Enumeration FormWindow
#frmMain
EndEnumeration
Enumeration FormGadget
#wv
#btnTest
EndEnumeration
Global.b flagForever = #True
Procedure OpenfrmMain(x = 0, y = 0, width = 567, height = 453)
OpenWindow(#frmMain, x, y, width, height, "WebView", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
WebGadget(#wv, 7, 40, 553, 413, "")
ButtonGadget(#btnTest, 7, 7, 113, 27, "Test")
EndProcedure
Procedure main()
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
flagForever = #False
Case #PB_Event_Gadget
Select EventGadget()
Case #btnTest
SetGadgetText(#wv, "https://www.purebasic.com")
While GetGadgetAttribute(#wv, #PB_Web_Busy)
WaitWindowEvent(#frmMain)
Wend
Debug GetGadgetItemText(#wv, #PB_Web_HtmlCode)
;SetActiveGadget(#wv)
; send Ctrl+A (alles auswählen)
; Debug GetGadgetItemText(#wv, #PB_Web_SelectedText)
EndSelect
EndSelect
Until flagForever = #False
EndProcedure
openfrmMain()
main()
End