سلام
کنترلی در هست که این کار را بکنه؟ البته DHTML عکسها را نشون نمیداد!
سلام
کنترلی در هست که این کار را بکنه؟ البته DHTML عکسها را نشون نمیداد!
____________________________
همه چیز را همگان دانند و همگان هنوز از مادر زاده نشده اند. (بزرگمهر حکیم)
c:\program files\microsoft visual foxpro 8\gallery\_webview.vcx
سلام
کنترل _webbroswe در کلاس بالا
thisform._webbrowser1.navigate("c:\sample. html)"
وب سایت شخصی
وبلاگ آموزش ویژوال فاکس پرو - به دلیل تعطیل شدن میهن بلاگ نوشته های وبلاگ به وب سایت شخصی منتقل شدند.
سلام
البته من یک راه دیگه استفاده میکردم :
PUBLIC oMyHelpViewer
oMyHelpViewer = NewObject("myhtmlhelpviewer")
oMyHelpViewer.Show
DEFINE CLASS myhtmlhelpviewer AS form
Top = 0
Left = 0
Height = 454
Width = 633
DoCreate = .T.
BorderStyle = 2
Caption = "Custom HTML Help Viewer"
MaxButton = .F.
WindowState = 0
Name = "Form1"
ADD OBJECT olecontrol1 AS olecontrol WITH ;
Top = 10, ;
Left = 16, ;
Height = 433, ;
Width = 601, ;
Name = "Olecontrol1", ;
OLEClass = "Shell.Explorer.2"
PROCEDURE olecontrol1.Refresh
NODEFAULT
ENDPROC
PROCEDURE olecontrol1.Init
cHelpPath = SubSTR(Home(5), 1, Len(Home(5))-8)
cVFPHelpTopicPath = "mk:@MSITStore:" + cHelpPath + ;
"FOXHELP.CHM::/html/vfpstartpage.htm"
This.Navigate(cVFPHelpTopicPath)
ENDPROC
ENDDEFINE
برای فارسی هم با این دستور هم راست به چپش کنید:
THISFORM._webbrowser1.Document.Dir = "rtl"
____________________________
همه چیز را همگان دانند و همگان هنوز از مادر زاده نشده اند. (بزرگمهر حکیم)
در تندیس های تخت جمشید هیچ کس در حال تعظیم نیست ، هیچ کس عصبانی نیست ، هیچ کس سرافکنده و شکست خورده نیست ، هیچ کس سوار بر اسب نیست ، هیچ قومی بر قوم دیگر برتر نیست ، هیچ کس برده نیست و هیچ تصویر خشنی دیده نمیشود.
************************************************** ******************************************
اندیشه کن , آنگاه سخن گو تا از لغزش بر کنار باشی