Buenas tardes
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
y aqui el html
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
#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
<!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>Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
