PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 2024 → Traduction code VB
Traduction code VB
Iniciado por Mas Fabien, abr., 19 2005 4:22 PM - 3 respostas
Publicado em abril, 19 2005 - 4:22 PM
bonjour, j'ai trouve ces extraits de code ecrit en visual basic,
y a t il un moyen de les traduire pour windev ?


BEPPRINTLib est une reference ajoutee ds vb

Option Explicit
Private WithEvents oPrintJobMonitor As BEPPRINTLib.PrintJobMonitor
------------------------------------------------------------------------
Private sub test()
Dim oPrinter As BEPPRINTLib.Printer
Dim oPrintJob As BEPPRINTLib.PrintJob
Dim nResult As BEPPRINTLib.prnConversionResult

Set oPrinter = CreateObject("easyPdfSdk.Printer")
Set oPrintJob = oPrinter.PrintJob
Set oPrintJobMonitor = oPrinter.PrintJobMonitor
Call oPrintJob.PrintOut(inFileName, outFileName)
Publicado em abril, 19 2005 - 4:58 PM
voici une autre formulation du code vb
COM Objects in Visual Basic
BCL COM Objects can be accessed from a variety of programming environments.
This brief example shows how to access a COM Object from Visual Basic.

1.. Create a new project. Click Project -> References, and select the BCL
COM Object:

2.. Create an Object in VB Code:

Dim oPrinter As BEPPRINTLib.Printer
Set oPrinter = CreateObject("EasyPdfSdk.Printer")


3.. Reference COM Method in VB Code:

Dim oPrintJob as BEPPRINTLib.PrintJob
Set oPrinjob = oPrinter.PrintJob
call oPrintJob.PrintOut(inFileName,outFileName)

impossiblde trouver quelque part ce mysterieux "BCL COM Object:" ds windev
....
"Mas Fabien" <fabien@iom.fr> a écrit dans le message de news:
4264ee16$1@news.pcsoft.fr...

bonjour, j'ai trouve ces extraits de code ecrit en visual basic,
y a t il un moyen de les traduire pour windev ?


BEPPRINTLib est une reference ajoutee ds vb

Option Explicit
Private WithEvents oPrintJobMonitor As BEPPRINTLib.PrintJobMonitor
------------------------------------------------------------------------
Private sub test()
Dim oPrinter As BEPPRINTLib.Printer
Dim oPrintJob As BEPPRINTLib.PrintJob
Dim nResult As BEPPRINTLib.prnConversionResult

Set oPrinter = CreateObject("easyPdfSdk.Printer")
Set oPrintJob = oPrinter.PrintJob
Set oPrintJobMonitor = oPrinter.PrintJobMonitor
Call oPrintJob.PrintOut(inFileName, outFileName)

Publicado em abril, 20 2005 - 12:32 AM
Pourquoi n'utilises tu pas la commande d'importation d'un projet VB vers WIndev

Menu Windev Fichier /Importation

A par quelques mots tous le projet est importé
Publicado em abril, 20 2005 - 9:20 PM
essaye
oPrintJob est un objet "EasyPdfSdk.Printer"
si cela fonctionne :
oPrintJob>>NomLaMethode(parametre)
Toto = oPrintJob>>NomDeLaPropriete


"Mas Fabien" <fabien@iom.fr> a écrit dans le message de
news:4264f663$1@news.pcsoft.fr...

voici une autre formulation du code vb
COM Objects in Visual Basic
BCL COM Objects can be accessed from a variety of programming

environments.
This brief example shows how to access a COM Object from Visual Basic.

1.. Create a new project. Click Project -> References, and select the

BCL
COM Object:

2.. Create an Object in VB Code:

Dim oPrinter As BEPPRINTLib.Printer
Set oPrinter = CreateObject("EasyPdfSdk.Printer")


3.. Reference COM Method in VB Code:

Dim oPrintJob as BEPPRINTLib.PrintJob
Set oPrinjob = oPrinter.PrintJob
call oPrintJob.PrintOut(inFileName,outFileName)

impossiblde trouver quelque part ce mysterieux "BCL COM Object:" ds windev
...
"Mas Fabien" <fabien@iom.fr> a écrit dans le message de news:
4264ee16$1@news.pcsoft.fr...

bonjour, j'ai trouve ces extraits de code ecrit en visual basic,
y a t il un moyen de les traduire pour windev ?


BEPPRINTLib est une reference ajoutee ds vb

Option Explicit
Private WithEvents oPrintJobMonitor As BEPPRINTLib.PrintJobMonitor
------------------------------------------------------------------------
Private sub test()
Dim oPrinter As BEPPRINTLib.Printer
Dim oPrintJob As BEPPRINTLib.PrintJob
Dim nResult As BEPPRINTLib.prnConversionResult

Set oPrinter = CreateObject("easyPdfSdk.Printer")
Set oPrintJob = oPrinter.PrintJob
Set oPrintJobMonitor = oPrinter.PrintJobMonitor
Call oPrintJob.PrintOut(inFileName, outFileName)