PureBasic
https://www.purebasic.fr/french/

Imprimer un webgadget avec ou sans prévisualisation
https://www.purebasic.fr/french/viewtopic.php?f=15&t=12797
Page 1 sur 1

Auteur:  falsam [ Ven 11/Mai/2012 13:58 ]
Sujet du message:  Imprimer un webgadget avec ou sans prĂ©visualisation

Imprimer avec ou sans prévisualisation le contenu d'un Webgadget.
Code:
; Print WebGadget
; OS : Window

EnableExplicit

Enumeration
  #MainForm
  #Webgadget
  #Preview
  #Print
EndEnumeration

#PWB_PROMPTUSER  = 1   
#PWB_NOPROMPTUSER = 2
#PWB_PRINT = 6
#PWB_PREVIEW = 7

Procedure PrintWebGadget (WebgadgetID, Arg1, Arg2)
  Protected WebObject.IWebBrowser2 = GetWindowLong_(GadgetID(WebgadgetID), #GWL_USERDATA)
  WebObject\ExecWB(Arg1, Arg2, 0, 0)
EndProcedure

OpenWindow(#MainForm, 0,0,800, 600, "Print Webgadget", #PB_Window_ScreenCentered | #PB_Window_SystemMenu)
WebGadget(#Webgadget, 5, 5, 790, 500, "www.purebasic.fr")
ButtonGadget(#Preview, 5, 550, 80, 30, "Preview")
ButtonGadget(#Print, 90, 550, 80, 30, "Print")

Repeat
  Select WaitWindowEvent(50)
    Case #PB_Event_Gadget
      Select EventGadget()
        Case #Preview
          PrintWebGadget(#Webgadget, #PWB_PREVIEW, #PWB_PROMPTUSER)
         
        Case #Print
          PrintWebGadget(#Webgadget, #PWB_PRINT, #PWB_NOPROMPTUSER)
      EndSelect
           
    Case #PB_Event_CloseWindow
      End
     
  EndSelect
ForEver

Page 1 sur 1 Heures au format UTC + 1 heure
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/