Problemas con una rutina en VB

25/10/2004 - 19:06 por Sandra y María Claudia | Informe spam
Hola amigos:
Tengo una rutina que me permite ver un calendario en VB.
La invoco con esta función

function Calendario()
{
var
cSearchValue=showModalDialog("Calendario.asp",0,"dialogwidth)8px;dialogheight&0px;status=no");
if (cSearchValue != -1 && cSearchValue != null && cSearchValue != "")
document.all.fecha_nac.value = cSearchValue;
}

y la rutina del calendario es esta

<script language=vbscript>
Sub window_onunload
window.returnvalue = formatdatetime(document.all.calendar1.value,2)
end sub
</script>
<Object id=Calendar1 style="LEFT: 0px; WIDTH: 289px; TOP: 0px; HEIGHT:
198px"
classid=clsid:8E27C92B-1264-101C-8A2F-040224009C02 width(9 height8
VIEWASTEXT class=Calendar>
<Param Name="_Version" VALUE="524288">
<Param Name="_ExtentX" VALUE="7646">
<Param Name="_ExtentY" VALUE="5239">
<Param Name="_StockProps" VALUE="1">
<Param Name="BackColor" VALUE="-2147483633">
<Param Name="Year" VALUE="<%=year(now())%>">
<Param Name="Month" VALUE="<%=month(now())%>">
<Param Name="Day" VALUE="<%=day(now())%>">
<Param Name="DayLength" VALUE="1">
<Param Name="MonthLength" VALUE="2">
<Param Name="DayFontColor" VALUE="0">
<Param Name="FirstDay" VALUE="1">
<Param Name="GridCellEffect" VALUE="1">
<Param Name="GridFontColor" VALUE="10485760">
<Param Name="GridLinesColor" VALUE="-2147483632">
<Param Name="ShowDateSelectors" VALUE="-1">
<Param Name="ShowDays" VALUE="-1">
<Param Name="ShowHorizontalGrid" VALUE="-1">
<Param Name="ShowTitle" VALUE="-1">
<Param Name="ShowVerticalGrid" VALUE="-1">
<Param Name="TitleFontColor" VALUE="10485760">
<Param Name="ValueIsNull" VALUE="0">
</Object>
<br>
<center><input type=button value="Seleccionar Fecha"
onClick=window.close></center>

Tengo una pequeña red doméstica y cuando la veo localmente funciona pero
cuando la veo desde otra PC en mi red, nada que ver, aparece como si
estuviera cargando una imágen no encontrada (el cuadradito con x roja).
También me he dado cuenta de que ni por Internet la puedo ver con dicha PC.
¿Alguna idea?. Tengo Xp Pro con SP2 recién instalado y le he transferido a
esa PC la configuración del Explorador de la PC donde si puedo verla.

Muchas gracias

Sandra y María Claudia
 

Leer las respuestas

#1 Hernaldo
25/10/2004 - 19:15 | Informe spam
Según veo estas usando un OCX al que llamas
como "Calendar1" en tu código.

No se ese ActiveX sea el famoso MSCAL.OCX que viene con
MS-Access o el DatePicker que viene con Visual Basic 6.0

Cualquiera sea el caso, debes llevar el OCX a los demás
equipos, copiarlo en Windows\System (o System32 si es
Windows NT/2000/XP/2003) y registrarlo con RegSvr32.exe

Preguntas similares