Visionneuse PDF avec dynawrap

Le
omen999
bonjour,

pour tester la version améliorée du composant dynawrap
(la version initiale datait de 1998) écrit par Gilles Laurent:
http://glsft.free.fr/index.php?option=com_content&task=view&id=47&Ite=
mid=33
j'ai imaginé une visionneuse pdf basique qui utilise les services du
freeware
sorax reader dispo ici: http://www.soraxsoft.com/index.html

il convient d'y ajouter une petite dll écrite par mes soins dispo ici:
http://rapidshare.com/files/133592229/PdfScript.dll.html

je dois dire que je n'ai pas très bien compris la syntaxe
de la fonction SetMemInBSTRAddr avec nDataType=dw_BSTR
mais ça n'a pas d'incidence sur le bon fonctionnement du code

ps: la gestion des bookmarks n'a pas été achevée ;-)

PdfViewer.vbs :

Option Explicit
' exemple de visionneuse pdf
' utilise le composant automation DynaWrap amélioré par Gilles Laurent
qui autorise la gestion
' des types structurés; http://glsft.free.fr/index.php?option=com_conte=
nt&task=view&id=47&Itemid=33
' nécessite également l'installation de Sorax Reader et de la
bibliothèque PdfScript.dll
' omen999 août 2008

Class XGui 'v3.1 "lightweight"
' cette classe permet de créer directement une boite de dialogue à
partir de l'API de façon "almost trivial"
Public dFrmData 'objet dictionnaire sName -> handle/valeur finale du
contrôle
Public Sub CreateForm(sCaption,lLeft,lTop,lWidth,lHeight,bOnTaskBar)
'Crée une feuille non modale et invisible
'sCaption: titre de la feuille
'lLeft,lTop: coordonnées de l'angle haut gauche de la feuille
'lWidth, lHeight: dimensions de la feuille
'bOnTaskBar: si vrai (-1) la feuille est affichée dans la barre des
tâches

Const WS_VISIBLE=&H10000000
Const WS_POPUP=&H80000000
Const WS_OVERLAPPEDWINDOW=&HCF0000
Dim hTask,fChild
If bOnTaskBar Then
hTask=0
fChild=0
Else
hTask=hWsh
fChild=WS_CHILD
End If
hWF=oApi.CreateWindowExA(0,"#32770",sCaption&"",WS_OVERLAPPEDWINDOW
+WS_POPUP+fChild,lLeft,lTop,lWidth,lHeight,hTask,0,hIns,0)
End Sub
Public Sub ShowForm(bAlwaysOnTop)
'Affiche la feuille préalablement créée par CreateForm
'bAlwaysOnTop: si vrai (-1) la feuille sera toujours au premier plan
Const HWND_TOP=0
Const HWND_TOPMOST=-1
Const SWP_SHOWWINDOW=&H40
Const SWP_NOMOVE=&H2
Const SWP_NOSIZE=&H1
Dim fTop

If bAlwaysOnTop Then fTop=HWND_TOPMOST Else fTop=HWND_TOP
oApi.SetWindowPos hWF,fTop,0,0,0,0,SWP_SHOWWINDOW+SWP_NOMOVE
+SWP_NOSIZE
End Sub
Public Sub RunForm()
'Gère la pompe à messages de la feuille qui devient modale ainsi que
le contenu final du dictionnaire
Const WM_COMMAND=&H111
Const WM_SYSCOMMAND=&H112
Const WM_KEYUP=&H101
Const WM_LBUTTONUP=&H202
Const WM_TIMER=&H113
Const WM_SETTEXT=&HC
Const GCW_ATOM=-32
Const LB_GETCURSEL=&H188
Const LB_ERR=-1
Const LB_GETTEXT=&H189
Const LB_GETTEXTLEN=&H18A
Const GWL_STYLE=-16
Const WS_CHILD=&H40000000
Const WS_VISIBLE=&H10000000
Const WS_TABSTOP=&H10000
Const BS_AUTOCHECKBOX=&H3
Const BS_AUTORADIOBUTTON=&H9
Const BM_GETCHECK=&HF0
Const BST_UNCHECKED=&H0
Const BST_CHECKED=&H1
Const BST_INDETERMINATE=&H2
Const BST_PUSHED=&H4
Const BST_FOCUS=&H8
Const CP_ACP=0
Const GWL_ID=-12
Const PBM_SETSTEP=&H404
Const PBM_STEPIT=&H405
Const PBM_SETBARCOLOR=&H409
Const CLR_DEFAULT=&HFF000000
Const CB_GETDROPPEDSTATE=&H157
Const WM_PV_SHOWPAGE=&H405
Const WM_USER=&H400
Const WM_NOTIFY=&H4E
Const PVN_OPEN_FILE=&H501
Const PVN_GOTO_PAGE=&H502
Const PVN_RUN_APP=&H503
Const PVN_GO_BACK=&H504
Const PVN_GO_FORWARD=&H505
Const PVN_QUIT=&H506
Const TVM_INSERTITEM=&H1100
Const dw_LONG=4
Const dw_BSTR=0
'variables dlg sélection fichier pdf
Dim aFilter(3),sFilters
Dim sFullFileName,sFileName,sInitDir,sDefExt,sTitre
Dim OPENFILENAME,pOPENFILENAME,lRc

Dim sCN,sCNW 'contenu du contrôle ansi/wide
Dim aKData,aHData 'contenu du dictionnaire clés/données
Dim lGetI 'index de l'item sélectionné (listbox)
Dim lStyle 'style du bouton
Dim lKCode 'param message
Dim lPos 'position barre de progression
Dim lCurPage 'page courante doc pdf
Dim n 'compteur

Do While oApi.GetMessageA(pMSG,hWF,0,0)>0 'Main loop messages pump
'WM_NOTIFY is sync message, so isn't set in queue
If oApi.GetMemInBSTRAddr(pMSG,4,dw_LONG)=PVN_GOTO_PAGE Then 'set
current page
lCurPage=oApi.GetMemInBSTRAddr(pMSG,8,dw_LONG)
oApib.SendMessageA dFrmData.Item("curpage"),WM_SETTEXT,
0,CStr(lCurPage)
End If
If oApi.IsDialogMessageA(hWF,pMSG)<>0 Then
Select Case oApi.GetMemInBSTRAddr(pMSG,4,dw_LONG)
Case WM_KEYUP,WM_LBUTTONUP 'touche clavier ou bouton gauche souris
lKCode=oApi.GetMemInBSTRAddr(pMSG,8,dw_LONG)
If oApi.GetMemInBSTRAddr(pMSG,4,dw_LONG)=WM_LBUTTONUP Then
If dFrmID.Item(oApi.GetFocus)="button" Then lKCode=13 'assimile
le clic gauche souris à la touche enter
End if
Select Case lKCode 'suivant le code de la touche
Case 27 'esc -> fermeture sans sauvegarde des données publiques
If Not bOpenF Then
dFrmData.RemoveAll
oApi.DestroyWindow hWF
Exit Do
Else
bOpenF=False
End If
Case 33 'PgUp
If lCurPage > 1 Then
lCurPage=lCurPage-1
oApi.SendMessageA oApi.GetFocus,WM_PV_SHOWPAGE,lCurPage,98
oApib.SendMessageA dFrmData.Item("curpage"),WM_SETTEXT,
0,CStr(lCurPage)
End If
Case 34 'PgDown
If lCurPage < lTPages Then
lCurPage=lCurPage+1
oApi.SendMessageA oApi.GetFocus,WM_PV_SHOWPAGE,lCurPage,98
oApib.SendMessageA dFrmData.Item("curpage"),WM_SETTEXT,
0,CStr(lCurPage)
End If
Case 13,32 'enter ou space quand le contrôle courant est un bouton
If oApi.GetClassLongA(oApi.GetFocus,GCW_ATOM)=49175 Then 'get
atom button
sCNW=UCase(GetBSTRCtrl(oApi.GetFocus))
If sCNW="&OK" Then 'c'est le bouton OK donc maj du dictionnaire
et fermeture de la feuille
aKData=dFrmData.Keys 'tableau des nomd des contrôles
aHData=dFrmData.Items 'tableau des handles des contrôles
For n=0 To dFrmData.Count-1 'boucle de la maj
sCNW="" ' valeur unicode à récupérer
sCNW=GetBSTRCtrl(aHData(n))
dFrmData.Item(aKData(n))=sCNW 'la maj
Next
oApi.DestroyWindow hWF ' maj dico terminée fermeture feuille
Exit Do
End If
If sCNW="&CANCEL" Then ' fermeture sans sauvegarde
dFrmData.RemoveAll
oApi.DestroyWindow hWF
Exit Do
End If
'If sCNW="&CLOSE" Then
' oApi.SendMessageA dFrmData.Item("pdf1"),WM_PD_DETACH,0,0
' oAPi.SPD_Close hPdf
' oApi.InvalidateRect dFrmData.Item("pdf1"),0,-1
'End If
If sCNW="O&PEN" Then
'définition des paramètres de la boite
aFilter(0)="Tous fichiers (*.*)"
aFilter(1)="*.*"
aFilter(2)="Fichiers pdf (*.pdf)"
aFilter(3)="*.pdf"
sFilters=Join(aFilter,vbNullChar) & vbNullChar & vbNullChar
sFullFileName=string(1024,chr(0)) 'peut contenir un nom complet
de fichier qui sera proposé comme le fichier par défaut
sFileName=string(128,chr(0))
sInitDir="C:Documents and SettingsNemoMes documents"
sTitre="Sélectionner un fichier pdf"
sDefExt="pdf"
OPENFILENAME=String(38,Chr(0))
pOPENFILENAME=oApi.GetBSTRAddr(OPENFILENAME)
With oApi
.SetMemInBSTRAddr pOPENFILENAME,0,dw_LONG,76 'lStructSize
OPENFILENAME_SIZE_VERSION_400
.SetMemInBSTRAddr pOPENFILENAME,4,dw_LONG,hWF 'hwndOwner
handle de la fenêtre parent (peut être nul)
'.SetMemInBSTRAddr pOPENFILENAME,8,dw_LONG,0 'hInstance
inutilisable
.SetMemInBSTRAddr pOPENFILENAME,
12,dw_LONG,oApi.GetBSTRAddr(sFilters)'filtre d'affichage
'.SetMemInBSTRAddr pOPENFILENAME,16,dw_LONG,0
'lpstrCustomFilter inutilisable
'.SetMemInBSTRAddr pOPENFILENAME,20,dw_LONG,0
'nMaxCustFilter inutilisable
.SetMemInBSTRAddr pOPENFILENAME,24,dw_LONG,2 'FilterIndex
sélectionne le 2ème filtre par défaut
.SetMemInBSTRAddr pOPENFILENAME,
28,dw_LONG,oApi.GetBSTRAddr(sFullFileName)'fichier avec chemin
complet
.SetMemInBSTRAddr pOPENFILENAME,32,dw_LONG,1024 'taille du
buffer fichier (min: 256)
.SetMemInBSTRAddr pOPENFILENAME,
36,dw_LONG,oApi.GetBSTRAddr(sFileName)'lpstrFileTitle nom du fichier
seul
.SetMemInBSTRAddr pOPENFILENAME,40,dw_LONG,128 'taille du
nom fichier
.SetMemInBSTRAddr pOPENFILENAME,
44,dw_LONG,oApi.GetBSTRAddr(sInitDir) 'répertoire par défaut
.SetMemInBSTRAddr pOPENFILENAME,
48,dw_LONG,oApi.GetBSTRAddr(sTitre)'titre de la boite de dialogue
(facultatif)
'**TEST**.SetMemInBSTRAddr pOPENFILENAME,
48,dw_BSTR,sTitre'titre de la boite de dialogue (facultatif)
'.SetMemInBSTRAddr pOPENFILENAME,52,dw_LONG,0 'flags
(voir ci-dessus la liste des options)
'.SetMemInBSTRAddr pOPENFILENAME,56,dw_LONG,0 'offset nom
fichier (valeur renvoyée)
'.SetMemInBSTRAddr pOPENFILENAME,60,dw_LONG,0 'offset
extension (valeur renvoyée)
.SetMemInBSTRAddr pOPENFILENAME,
64,dw_LONG,oApi.GetBSTRAddr(sDefExt)'extension par défaut si
l'utilisateur l'oublie
'.SetMemInBSTRAddr pOPENFILENAME,68,dw_LONG,0 'lCustData
inutilisable
'.SetMemInBSTRAddr pOPENFILENAME,72,dw_LONG,0 'lpfnHook
inutilisable
'.SetMemInBSTRAddr pOPENFILENAME,76,dw_LONG,0
'lpTemplateName inutilisable
bOpenF=True
lRc=.GetOpenFileNameW(pOPENFILENAME)
End With
If lRc <> 0 Then
'clean trailer
sFullFileName=Replace(sFullFileName,Chr(0),"")
oApi.DestroyWindow dFrmData.Item("button1")
AddControl "pdf1","pdfview",sFullFileName,0,0,892,720,0
bOpenF=False
End If
End If
End If
End Select
Case WM_COMMAND,WM_SYSCOMMAND
If (oApi.GetMemInBSTRAddr(pMSG,8,dw_LONG)=2) Or
(oApi.GetMemInBSTRAddr(pMSG,8,dw_LONG)=61536) Then 'bouton fermeture
de la feuille ou menu système
dFrmData.RemoveAll
oApi.DestroyWindow hWF
Exit Do
End If
End Select
Else
oApi.TranslateMessage pMSG
oApi.DispatchMessageA pMSG
End If
Loop
End Sub
Public Sub
AddControl(sName,sClass,sData,lLeft,lTop,lWidth,lHeight,bFlag)
'ajoute un contrôle sur la feuille créée par la méthode CreateForm
'sName: nom unique du contrôle
'sClass: nom d'une des classes globales du système (à compléter)
'sData: données du contrôle à créer
'lLeft,lTop: coordonnées relatives de l'angle haut gauche du contrôle
'lWidth, lHeight: dimensions du contrôle
'bFlag: valeur flag/handle dépendant du contrôle bouton->activé/
désactivé checkbox radiobox ->chk/unchk pdfview->handle fenêtre

Const WS_EX_CLIENTEDGE=&H200
Const WS_EX_STATICEDGE=&H20000
Const PBS_SMOOTH=&H1
Const DEFAULT_GUI_FONT=17
Const WM_SETFONT=&H30
Const WS_CHILD=&H40000000
Const WS_VISIBLE=&H10000000
Const WS_DISABLED=&H8000000
Const WS_TABSTOP=&H10000
Const WM_SETTEXT=&HC
Const GWL_ID=-12
Const WS_VSCROLL=&H200000
Const BS_AUTOCHECKBOX=&H3
Const BS_AUTORADIOBUTTON=&H9
Const BS_GROUPBOX=&H7
Const BM_SETCHECK=&HF1
Const BST_CHECKED=1
Const LBS_HASSTRINGS=&H40
Const CBS_DROPDOWN=&H2
Const CBS_DROPDOWNLIST = &H3
Const CB_ADDSTRING=&H143
Const LB_ADDSTRING=&H180
Const LBS_DISABLENOSCROLL=&H1000
Const WM_PD_ATTACH=&H401
Const WM_PD_DETACH=&H402
Const WM_PV_SHOWPAGE=&H405
Const WM_PV_DOOPENACTION=&H410
Const WM_PV_PRINT=&H40A
Const dw_LONG=4

Dim hWn 'handle du contrôle courant
Dim sD 'donnée(s) du contrôle courant
Dim cbBuf 'tableau des données liste ou combo
Dim sX 'gestion des différents types boutons
Dim lStyle 'style du contrôle courant
Dim lStyleEx 'style étendu du contrôle courant
Dim lSL 'style liste ou combo
Dim n 'compteur
Dim fX
Dim REC 'structure dimension du contrôle pdf viewer
Dim pREC 'pointeur structure

fX=false
'définition des paramètres de CreateWindowEx selon la classe du
contrôle
Select Case UCase(sClass)
Case "STATIC"
sX=sClass
sD=sData
lStyle=WS_CHILD+WS_VISIBLE
lStyleEx=0
Case "BUTTON"
sX=sClass
sD=sData
lStyle=WS_CHILD+WS_VISIBLE+WS_TABSTOP
If Not bFlag Then lStyle=lStyle+WS_DISABLED
lStyleEx=0
Case "PDFVIEW" 'DLL SORAX READER
With oApi
.Register "C:Program FilesSorax Reader
SPDF.dll","SPD_ResetConfig","f=c","i=s","r=l"
.Register "C:Program FilesSorax Reader
SPDF.dll","SPD_Open","f=c","i=sss","r=l"
.Register "C:Program FilesSorax Reader
SPDF.dll","SPD_Close","f=c","i=l","r=l"
.Register "C:Program FilesSorax Reader
SPDF.dll","SPD_GetPageCount","f=c","i=l","r=l"
.Register "C:Program FilesSorax Reader
SPDF.dll","SPD_GetOutline","f=c","i=hll","r=l"
.Register "C:Program FilesSorax Reader
SPDF.dll","SPD_PrintDirect","f=c","i=lsllt","r=l"
.Register "C:Program FilesSorax Reader
SPDF.dll","SPV_Create","f=c","i=hlu","r=l"
'.SPD_ResetConfig "C:SPDF.ini" (facultatif)
.InitDll 'initialise PdfScript
lpProc=.SendToPost(hWF) 'permet la gestion des messages
WM_NOTIFY et de SPDOUTLINEPROC
End With
REC=String(8,Chr(0))
sX="spdfview"
sD=sData
fX=True
Case Else
Err.raise 10000,"Méthode AddControl","La classe " & sClass & " n'est
pas une classe globale du système"
Exit Sub
End Select
If fX Then ' Pdf Viewer
With oApi
pREC=.GetBSTRAddr(REC)
.SetMemInBSTRAddr pREC,0,dw_LONG,lLeft
.SetMemInBSTRAddr pREC,4,dw_LONG,lTop
.SetMemInBSTRAddr pREC,8,dw_LONG,lWidth
.SetMemInBSTRAddr pREC,12,dw_LONG,lHeight
hWn=.SPV_Create(hWF,pREC,256)
hPdf=.SPD_Open(sD&"","","")
.SendMessageA hWn,WM_PD_ATTACH,0,hPdf
.SendMessageA hWn,WM_PV_SHOWPAGE,1,98 'default displaymode
98
WScript.Sleep 200 'délai de parsing
End With
oApib.SendMessageA hWF,WM_SETTEXT,0,sD&""
oApib.SendMessageA dFrmData.Item("curpage"),WM_SETTEXT,0,"1"
lTPages=oApi.SPD_GetPageCount(hPdf)
oApib.SendMessageA dFrmData.Item("totpages"),WM_SETTEXT,
0,CStr(lTPages)
oApi.SPD_GetOutline hPdf,lpProc,hWF 'envoie les bookmarks du doc à
la fonction SPDOUTLINEPROC
Else

hWn=oApi.CreateWindowExA(lStyleEx,sX&"",sD&"",lStyle,lLeft,lTop,lWidth,lH=
eight,hWF,
0,hIns,0) 'création du contrôle
oApi.SendMessageA
hWn,WM_SETFONT,oApi.GetStockObject(DEFAULT_GUI_FONT),-1 'fonte
par défaut
End if
dFrmData.Add sName,hWn 'ajoute une entrée pour le contrôle créé da=
ns
le dictionnaire
dFrmID.Add hWn,LCase(sX)

End Sub
'**************************************************************************=
***********************************
IMPLEMENTATION
Private dFrmID 'objet dico pour identifier la classe des contrôles
Public oApi 'objet Dynawrap
Private oApib 'objet SendMessage (syntaxe différente)
Private oWaw 'objet conversion ANSI -> UNICODE

Private MSG 'structure MSG définie par l'API (message queue)
Private pMSG 'pointeur structure MSG
Private hIns 'handle de l'instance
Private hWsh 'handle de la fenêtre principale WScript (cachée)
Private hWF 'handle de la feuille créée
Private hPdf 'handle contrôle pdf
Private lTPages 'nb de pages du doc pdf
Private bOpenF 'flag dlg openfile
Public xRes,yRes 'dimensions écran
Private lpProc 'pointeur fonction SPDOUTLINEPROC

Private Sub Class_Initialize 'Constructeur
Const GWL_HINSTANCE=-6
Const HORZRES=8
Const VERTRES=10
Set oApi=CreateObject("DynamicWrapper")
Set oApib=CreateObject("DynamicWrapper")
Set oWaw=CreateObject("DynamicWrapper")
With oApi
.Register "user32.dll","FindWindowA","f=s","i=ss","r=l"
.Register
"user32.dll","CreateWindowExA","f=s","i=lsslllllllll","r=l"
.Register "user32.dll","SetWindowPos","f=s","i=lllllll","r=l"
.Register "user32.dll","GetMessageA","f=s","i=llll","r=l"
.Register "user32.dll","DispatchMessageA","f=s","i=l","r=l"
.Register "user32.dll","TranslateMessage","i=l","f=s","r=l"
.Register "user32.dll","GetWindowLongA","f=s","i=ll","r=l"
.Register "user32.dll","EnableWindow","f=s","i=ll","r=l"
.Register "user32.dll","SendMessageA","f=s","i=llll","r=l"
.Register "user32.dll","SetWindowLongA","f=s","i=lll","r=l"
.Register "user32.dll","GetWindowLongA","f=s","i=ll","r=l"
.Register "user32.dll","IsDialogMessageA","f=s","i=ll","r=l"
.Register "user32.dll","DestroyWindow","f=s","i=l","r=l"
.Register "user32.dll","GetFocus","f=s","r=l"
.Register "user32.dll","GetWindowTextA","f=s","i=lll","r=l"
.Register "user32.dll","GetWindowTextLengthA","f=s","i=l","r=l"
.Register "user32.dll","GetClassLongA","f=s","i=ll","r=l"
.Register "user32.dll","GetDC","f=s","i=h","r=l"
.Register "user32.dll","UpdateWindow","f=s","i=h","r=l"
.Register "user32.dll","InvalidateRect","f=s","i=hll","r=l"
.Register "gdi32.dll","GetStockObject","f=s","i=l","r=l"
.Register "gdi32.dll","GetDeviceCaps","f=s","i=ll","r=l"
.Register "comctl32.dll","InitCommonControls","f=s"
.Register "comdlg32.dll","GetOpenFileNameW","f=s","i=l","r=l"
.Register "user32.dll","SetTimer","f=s","i=llll","r=l"
.Register "user32.dll","KillTimer","f=s","i=ll","r=l"
.Register "PdfScript.dll","InitDll","f=c","r=l"
.Register "PdfScript.dll","SendToPost","f=c","i=l","r=l"
End With
oApib.Register "user32.dll","SendMessageA","f=s","i=llls","r=l" 'di
oWaw.Register
"kernel32.dll","MultiByteToWideChar","f=s","i=llllll","r=l"
MSG=String(14,Chr(0))
pMSG=oApi.GetBSTRAddr(MSG)
oApi.SetMemInBSTRAddr pMSG,0,4,28
'instanciation des dictionnaires qui vont gérer les données des
contrôles créés
Set dFrmData=CreateObject("Scripting.Dictionary")
Set dFrmID=CreateObject("Scripting.Dictionary")
'récupère le handle de l'instance
hWsh=oApi.FindWindowA("WSH-Timer",chr(0))
hIns=oApi.GetWindowLongA(hWsh,GWL_HINSTANCE)
'lit les dims de l'écran
xRes=oApi.GetDeviceCaps(oApi.GetDC(0),HORZRES)
yRes=oApi.GetDeviceCaps(oApi.GetDC(0),VERTRES)
bOpenF=False
'oApi.InitCommonControls inutile, comctl32.dll est déjà référenc=
ée
par la fonction .register
End Sub
Private Function GetBSTRCtrl(hdW)
' Renvoie le contenu d'un contrôle de handle hdW sous la forme d'une
chaine BSTR
Const CP_ACP=0
Dim sBuf,sBufW
sBuf=String(oApi.GetWindowTextLengthA(hdW),Chr(0))

sBufW=String(oApi.GetWindowTextA(hdW,oApi.GetBSTRAddr(sBuf),oApi.GetWindo=
wTextLengthA(hdW)
+1),Chr(0))
oWaw.MultiByteToWideChar CP_ACP,
0,oApi.GetBSTRAddr(sBuf),-1,oApi.GetBSTRAddr(sBufW),LenB(sBufW)
GetBSTRCtrl=sBufW
End Function
End Class

Dim oFrm
Set oFrm=New XGui
oFrm.CreateForm "PdfViewer by omen999",(oFrm.xRes-900)/2,
(oFrm.yRes-800)/2,900,800,-1 ' feuille non modale
oFrm.AddControl "curpage","static","0",10,730,24,24,True
oFrm.AddControl "slash","static","/",36,730,6,24,True
oFrm.AddControl "totpages","static","0",42,730,24,24,True
oFrm.AddControl "button1","button","O&pen",734,730,70,24,True
oFrm.AddControl "button2","button","&Cancel",808,730,70,24,True
oFrm.ShowForm False
oFrm.RunForm 'pompe à messages (rend la feuille modale)
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Gilles LAURENT [MVP]
Le #16445031
"omen999" news:
| bonjour,

Bonjour,

| pour tester la version améliorée du composant dynawrap
| (la version initiale datait de 1998) écrit par Gilles Laurent:
|
http://glsft.free.fr/index.php?option=com_content&task=view&idG&Itemid3
| j'ai imaginé une visionneuse pdf basique qui utilise les services du
| freeware
| sorax reader dispo ici: http://www.soraxsoft.com/index.html
|
| il convient d'y ajouter une petite dll écrite par mes soins dispo ici:
| http://rapidshare.com/files/133592229/PdfScript.dll.html

Très intéressant !
Tentative de communication via votre e-mail publique.
Sinon, me contacter via mon site.

--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
Publicité
Poster une réponse
Anonyme