PureBasic

Forums PureBasic
Nous sommes le Ven 18/Oct/2019 23:06

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 1 message ] 
Auteur Message
 Sujet du message: Imprimer un webgadget avec ou sans prévisualisation
MessagePosté: Ven 11/Mai/2012 13:58 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 22/Aoû/2010 15:24
Messages: 6856
Localisation: IDF (Yvelines)
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

_________________

➽ Config PureBasic : i3, RAM 4Go, NVidia (1024 Mo), Windows 10 - PB 5.70 LTS
➽ Je papote aussi sur http://purebasic.chat

➽ Sites personnels http://falsam.com & EasySprite.js

➽ Je ne réponds pas aux MP techniques


Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 1 message ] 

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 3 invités


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  
cron

 


Powered by phpBB © 2008 phpBB Group | Traduction par: phpBB-fr.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye