Al visualizar esta pagina web con el ActiveX ( "Shell.Explorer.2" ), me da error de script
Este error no aparece al ver la página en el explorador directamente ( Google, IE, etc )
Tampoco da el error con el CreateObject( "InternetExplorer.Application" )
Sé que se puede suprimir el mensaje con la propiedad Silent := .T.
Mi pregunta es si algún compañero ha pasado por esto y se puede eliminar este mensaje o el motivo de que el ActiveX dé el mensaje
Utilizo Win 10
---------------------------------------------- ENGLISH -----------------------------------------------
Good afternoon
When viewing this web page with the ActiveX ("Shell.Explorer.2"), it gives me a script error
This error does not appear when viewing the page in the browser directly (Google, IE, etc.)
It also does not give the error with the CreateObject ("InternetExplorer.Application")
I know you can delete the message with the property Silent: = .T.
My question is if any buddy has gone through this and can delete this message or the reason that the ActiveX gives the message
I use Win 10
-------------------------------------------------------------------------------------------------
Aqui, el código del prg
- Code: Select all Expand view RUN
#include "Fivewin.ch"
//----------------------------------------------------------------------------//
Static oActX
Static cPathTmp
Function Main()
cPathTmp := Upper( cFilePath( HB_ARGV( 0 ) ) )
ViewAcces()
Return nil
//----------------------------------------------------------------------------//
Function ViewAcces( nT, nL, nH )
local oWnd
local cWndTitle := "Test"
local nLin := 30
local oFont
DEFAULT nT := 10
DEFAULT nL := 60
DEFAULT nH := 660
DEFINE FONT oFont NAME "Verdana" SIZE 0, -14
DEFINE DIALOG oWnd TITLE cWndTitle PIXEL FROM nT, nL TO nH, 830 FONT oFont
oWnd:bValid := { || oActX:End(), .T. }
ACTIVATE DIALOG oWnd ON INIT ( CreateActX( oWnd ) ) //CENTERED
Return nil
//----------------------------------------------------------------------------//
Function CreateActX( oWnd, cTitle )
DEFAULT cTitle := oWnd:cTitle()
if !Empty( oActX )
oActX:End()
endif
oActX := TActiveX():New( oWnd, "Shell.Explorer.2" )
oWnd:oClient := oActX
oActX:nTop := 1
oActX:nLeft := 1
oActX:nHeight := oWnd:nHeight - 32
oActX:nWidth := oWnd:nWidth - 10
//oActX:FullScreen := .F.
oActX:Visible := .T.
//oActX:Silent := .T.
oActX:ToolBar := .F.
oActX:StatusBar := .F.
oActX:MenuBar := .F.
oActX:Navigate2( cPathTmp + "TextA.html" )
Return oActX
//----------------------------------------------------------------------------//
y aqui el html
- Code: Select all Expand view RUN
<!DOCTYPE html>
<html lang="en">
<head>
<title>Test ( CNL )</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="viewport" content="width=device-width, initial-scale=1>
<link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/css/bootstrap.min.css">
<script src="https://ajax.googleapis.com/ajax/libs/jquery/3.2.1/jquery.min.js"></script>
<script src="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/js/bootstrap.min.js"></script>
<style type="text/css">
#head
{
top: 5px;
position: relative;
left: 20px;
width: 714px;
font-family:verdana;
font-size: 24px;
color:white;
background-color:rgb(49,92,125);
}
#controls
{
top: 5px;
position: relative;
left: 20px;
width: 714px;
height: 36px;
font-family:verdana;
font-size: 20px;
// color:white;
background-color:rgb(201,201,201);
}
#run
{
position: relative;
top: 1px;
left: 574px;
width: 120px;
height: 28px;
font-family:verdana;
font-size: 14px;
border:none;
color:white;
background-color:rgb(0,92,125);
}
</style>
</head>
<body>
<div id="wrap0">
</div>
<div id="banner">
<div id="head" itemprop="name">
<img src="..\bitmaps\pngs\image7.png" style="width:48px;height:36px;">
Fivewin
</div>
<div id="controls">
<input type="button" value="Exit" id="exit">
</div>
</div>
</body>
<footer class="container-fluid text-left">
<p></p>
<p>Made by <a href="http://forums.fivetechsupport.com/index.php" title="( C ) CNL">( C ) CNL</a></p>
</footer>
</html>
