hi,

1.is ther away to display all("PPT") as list or combo1 and make choice to dispaly it,via your code,

2.is ther away to show(dispaly) via timer ,display new one after 1 minute.

thanks


>>It does not work. The presentation does not display.
>>
>>
>>
>>>>Can anyone show me how to use the MS PowerPoint ActiveX control in VFP 9?
>>>>
>>>>I have a small presentation I want to show, and I would like it to open in a VFP window.
>>>>
>>>>Thanks
>>>
>>>Place a webbrowser control on form and call navigate2 method:
>>>
>>>.Navigate2.( "file://"+fullpath("yourppt.ppt") )
>>>
>>>Though it works I suggest not to open in VFP.
>>>Cetin
>
>I don't know why it doesn't work for you. I just tested this and it works wonderfully well here:
>

>lcFile = GETFILE("PPT")
>Public oForm
>oForm = NewObject('HTMLViewerForm')
>oForm.Show
>
>oForm.htmlviewer.navigate2("file://"+m.lcFile)
>
>Define Class HTMLViewerForm As Form
>  Height = 500
>  Width = 800
>  Add Object htmlviewer As OleControl With ;
>    Height = 500, Width = 800, Visible = .T., ;
>    OleClass = 'Shell.Explorer', anchor=195
>
>  Procedure htmlviewer.Refresh
>    Nodefault
>  Endproc
>Enddefine

Cetin