Código fuente del programa maestro VB para editar calendario electrónico.
Proporcionar referencia
-
& lt! DOCTYPE HTML PUBLIC"-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>Utility Query-Calendar
& ltMETA t = 0;
var dStyle
document.onmousemove = mEvn
//Mostrar información detallada de la fecha
Función mOvr (v) {
var s , feriado;
var sObj = eval('SD'+v);
var d = sobj .
//Año, mes , día, semana,
//Año, mes, día, mes,
//cAño, cMes, cDía
if (sobj . Innerhtml!= '') {
sobj . cursor ='s-resize';
if (CLD [d]. solarTerms = =""&& ampCLD【d】solarFestival ==““&&& ampCLD【d】lunarFestival ==““)
festival = ““;
Otro
festival='< ;Ancho de tabla=100% BORDE=0 Relleno de celda=2 Espaciado de celda=0 BGCOLOR="#CCFFCC"><TR><TD> '+
& ltFONT COLOR="# 000000" STYLE="FONT-size :9pt& gt+CLD【d】 solarTerms+““+CLD【d】 solarFestival+““+CLD【d】. ;</TABLE>'
s ='<TABLE WIDTH="130" BORDER = 0 cell padding="2" CELLSPACING = 0 BGCOLOR="# CEE 5ff" style="filter:Alpha ( opacity=80)"><TR><TD >'+
<Ancho de tabla=100% BORDER=0Relleno de celda=0Espaciado de celda=0><TR><TD ALIGN="right">. <FONT COLOR="# 000000"STYLE="Tamaño-FONT:9pt& gt+
CLD[d]sAño+'año'+CLD[d].s mes+'mes'+CLD[d].sDía+ ' día semana+CLD semana+'
& ltfont color = "# aa 04 AC "& gt. Calendario lunar "+" (CLD [d]. islap? salto ": "") + CLD [ d ]. lMes+“mes”+CLD【d】. lDía+‘día& ltbr & gt+
& ltfont color="# 0318DC"& gt;‘+CLD【d】.
cAño+‘Año‘+CLD【d】. cMes+"mes"+CLD【d】. cDay+'Día《/font>'+
& lt/FONT>& lt/TD>& lt/TR>& lt/TABLE>'+festival+' </TD></TR>< /TABLE>';
documento . todo【"detalle"】. internalHTML = s;
if (nieve == 0) {
d estilo izquierda = x+offsetx-(ancho/2);
d estilo. .top = y+offsety;
d estilo = "visible"
nieve = 1;
}
//Borrar datos de fecha detallados
Función mOut(){
if (CNT> = 1){ SW = 0; }
if (SW == 0) { nieve = 0; d estilo = "oculto" }
else cnt++;
//Obtener ubicación
Función mEvn(){
x = event.x
y = event.y
if (documento. cuerpo. desplazarse hacia la izquierda)
{ x = evento. x+documento. desplazarse hacia la izquierda; p>
si (nieve)
d estilo . >
}
}
/////////////////////////////// //////////////////////////////////////////////////< /p >
Inicialización de función(){
//Calendario lunar
dStyle = detalle.estilo
CLD. sy.selectedindex = tY-1900;
CLD. SM.selectedIndex = tM
dibujar CLD(tY, tM);
}
//--& gt;
& lt/SCRIPT>
& ltSTYLE type=text/css>. TD {
TAMAÑO DE FUENTE:12px; Color: #565656
}
P {
TAMAÑO DE FUENTE:12px; :#565656
}
李{
TAMAÑO DE FUENTE:12px Color: #565656
}
<; p>Seleccione {TAMAÑO DE FUENTE:12px Color: #565656
}
Ingrese {
TAMAÑO DE FUENTE:12px ; Color: #565656
}
Área de texto {
FONT-SIZE:12px; Color: #565656
}
.
f14 {
TAMAÑO DE FUENTE: 14px
}
. todyaColor {
Color de fondo: verde claro
}
& lt/STYLE>
& ltMETA content = "Portada de Microsoft 4.0 "nombre = GENERADOR>. </HEAD>
<BODY bgColor = # 7 fbbff margen superior = 5 onload = inicializar() altura del margen = "5">.
& ltLenguaje de scripting = JavaScript & gt& lt! -
if(navigator.appname=="Netscape" | | parse int(navigator.appversion)<4)
document.write("<h1》usted El navegador no se puede ejecutar este programa </h 1>¡Este programa sólo se puede ejecutar después de IE4!")
//--></SCRIPT>
<Form name=CLD>
<DIV id=Detalles
style="Índice Z: 3; Filtro: Sombra (color= #333333, dirección=135); ancho: 140 px; posición: absoluta; alto: 120 px ">>; </div>
<center>
& lttable cell spacing=0 cell padding=0 width=464 border = 0 & gt
& ltTBODY & gt
& ltTR & gt
<TD height=36>. <img height=36 src="images/ca 01.gif"
width=463></TD></TR></TBODY></ TABLE>
& ltespaciado entre celdas =0 relleno de celda=0 ancho=464 borde=0>
& ltTBODY & gt
& ltTR & gt
& ltTD align = fondo medio = imágenes/ ca02. <! -<DIV style="Z-index:1;Posición:Absoluta