¿Cómo muestra el control de calendario el calendario gregoriano?

Después de comprender los controles, primero puede diseñar la interfaz del calendario. Abra VB6.0 y agregue el control del calendario lunar y el control "Microsoft Calendar Control8.0" utilizando nuestro método anterior. Luego colóquelos en Form1 respectivamente. Además, necesita dos controles de prueba, un control Frame y dos controles OptionButton (Figura 2).

Figura 2

Establezca las propiedades en Form1 de la siguiente manera:

¿Título? Hermoso calendario

Establezca las propiedades en Texto1 y Texto2 de la siguiente manera:

¿Varias líneas? ¿Barras de desplazamiento reales

? 2

Establezca las propiedades en el Marco1 de la siguiente manera:

¿Título? Seleccione el tipo de visualización del calendario lunar

Establezca las propiedades en la Opción1 de la siguiente manera:

¿Título? Tipo de carácter

¿Valor? Verdadero

Establezca las propiedades en la opción 2 de la siguiente manera:

¿Título? Tipo numérico

En tercer lugar, complete el código

Después de configurar las propiedades anteriores, podemos escribir el código. Ingrese el código en la Tabla 1:

Opción explícita

El proceso de mostrar información del calendario lunar

Sub se muestra como una cadena

Dim Los tallos y las ramas son como cuerdas

Atenuar los animales en cuerdas

Atenuar JQ en cuerdas

Atenuar sMsgChineseDate en cuerdas

Juzga si el El parámetro es de tipo fecha.

¿Si es fecha? Luego d

determina si está dentro del rango válido.

¿Y si CDate? d<CDate? ¿"1920-1-1" o CDate? d>CDate? 2019-12-31

Texto 1. text = "Hermoso calendario que muestra la conversión del calendario solar de 100 años de 1920 a 2019".

Otros

Establece la fecha gregoriana a convertir.

Calendario 2. FechaAhora = CDeta? d

Obtener la fecha lunar

sMsgChineseDate = Calendar2. Fecha china

Obtiene el año de la rama principal del calendario lunar

Rama del tallo = Calendario2. Signos del Zodíaco Chino

Obtén los Signos del Zodíaco Chino

Animales = Calendario 2. Animales chinos

Obtener términos solares lunares

JQ = Calendario 2. Solar chino

Muestra información lunar relevante en el cuadro de texto.

texto 1 . texto = " Gregoriano " & CDate? d &"Correspondiente al calendario lunar"&;Tallos y ramas&_"("&Animales y salud.") "&sMsgChineseDate &""&JQ

Terminará si...

Otro

Text1.text = "Ingrese una fecha válida"

Terminará si...

Finalizar conector

Calendario infantil privado 1_¿Clic?

¿Llamando al despacho? Calendario 1. "valor" llama al procedimiento que muestra información relacionada con el calendario lunar.

Conector final

Subopción privada 1_Click?

Si es la opción 1. Entonces valor = verdadero

Calendario2. ChineseDateType = 0

Finalizar si...

Finalizar conector

Subopción privada 2_Click?

Si es la opción 2. Entonces valor = verdadero

Calendario2. ChineseDateType = 1

Terminará si...

Conector final

Hasta ahora, al ejecutar este programa, puedes ver un calendario que puede mostrar el calendario lunar. calendario.