Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Searching PDF document
Message
 
 
À
17/11/2017 10:30:48
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows 10
Network:
Windows Server 2012
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01655634
Message ID:
01655647
Vues:
66
Great, thanks! that was the solution I was looking for.

>
>*can implement simply the famous CTRL+F but after giving the focus to the browser.
>*ctrl+f fires the simple search dialog in acrobat document
>*CTRL+F fires the advanced search in the acrobat document (warning here its sensitive).
>*see the 2 photos attached.
>
>publi oform
>oform=newObject("yacrobat")
>oform.show
>
>read events
>retu
>*
>DEFINE CLASS yacrobat AS form
>	Height = 576
>	Width = 1151
>	ShowWindow = 2
>	AutoCenter = .T.
>	Caption = "Form1"
>	BackColor = RGB(212,208,212)
>	Name = "Form1"
>
>	ADD OBJECT obrowser AS olecontrol WITH ;
>        oleclass="shell.explorer.2", ;
>		Top = 36, ;
>		Left = 0, ;
>		Height = 541, ;
>		Width = 1153, ;
>		Anchor = 15, ;
>		Name = "oBrowser"
>
>	ADD OBJECT command1 AS commandbutton WITH ;
>		Top = 2, ;
>		Left = 36, ;
>		Height = 25, ;
>		Width = 85, ;
>		FontBold = .T., ;
>		Anchor = 768, ;
>		Caption = "Open a pdf", ;
>		MousePointer = 15, ;
>		SpecialEffect = 2, ;
>		ForeColor = RGB(0,255,255), ;
>		BackColor = RGB(128,0,64), ;
>		Name = "Command1"
>
>	ADD OBJECT command2 AS commandbutton WITH ;
>		Top = 2, ;
>		Left = 156, ;
>		Height = 27, ;
>		Width = 96, ;
>		FontBold = .T., ;
>		Anchor = 768, ;
>		Caption = "Simple search", ;
>		MousePointer = 15, ;
>		SpecialEffect = 2, ;
>		BackColor = RGB(255,255,0), ;
>		Name = "Command2"
>
>	ADD OBJECT command3 AS commandbutton WITH ;
>		Top = 2, ;
>		Left = 265, ;
>		Height = 27, ;
>		Width = 107, ;
>		FontBold = .T., ;
>		Anchor = 768, ;
>		Caption = "Advanced search", ;
>		MousePointer = 15, ;
>		SpecialEffect = 2, ;
>		BackColor = RGB(128,255,0), ;
>		Name = "Command3"
>
>	PROCEDURE Destroy
>		clea events
>	ENDPROC
>
>	PROCEDURE obrowser.Init
>		this.silent=.t.
>	ENDPROC
>
>
>	PROCEDURE command1.Click
>		local m.lcfile
>		m.lcfile=getfile('pdf')
>		if ! inlist(lower(justext(m.lcfile)),"pdf")  &&only pdf filter
>		return .f.
>		endi
>		thisform.oBrowser.navigate(m.lcfile)
>	ENDPROC
>
>
>	PROCEDURE command2.Click
>		local oshell
>		oshell=newObject("wscript.shell")
>		thisform.oBrowser.setFocus
>		oshell.sendkeys("^f")   &&sensitive f minuscule open search in acrobat document
>		oshell=null
>	ENDPROC
>
>
>	PROCEDURE command3.Click
>		local oshell
>		oshell=newObject("wscript.shell")
>		thisform.oBrowser.setFocus
>		oshell.sendkeys("^F")   &&sensitive F majuscule  open advanced search in acrobat document
>		oshell=null
>	ENDPROC
>
>
>ENDDEFINE
>*
>*-- EndDefine: yacrobat
>
Christian Isberner
Software Consultant
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform