Red de conocimiento de recetas - Mercado del té - Easy Language crea el menú del juego de cibercafé arrastrando la tecla de acceso directo del escritorio directamente al código fuente del cuadro de lista súper. Muchas gracias por tu ayuda.

Easy Language crea el menú del juego de cibercafé arrastrando la tecla de acceso directo del escritorio directamente al código fuente del cuadro de lista súper. Muchas gracias por tu ayuda.

Debe agregar un componente de objeto de arrastrar y soltar. El siguiente es el código fuente completo. Por favor consúltelo. Tenga cuidado de no cometer errores al copiar. Si desea el código fuente completo, simplemente escríbalo en el correo electrónico.

. Conjunto ventana conjunto 1

. Variable de ensamblaje arrastrar y soltar nombre de archivo, tipo de texto

. Nombre de ruta de la variable de ensamblaje, tipo de texto.

. Reúna números de imágenes variables

. Grupo de imágenes de variables de ensamblaje, grupo de bytes

. Nombre de archivo de variable de ensamblaje, tipo de texto.

. Ruta de la variable de ensamblaje, tipo de texto, "0"

. Subrutina_ _Ventana de inicio_ creada

Arrastra y suelta el objeto 1. Registre el control de arrastrar y soltar(_Iniciar ventana. Obtener identificador de ventana())

Arrastrar y soltar objeto 1. recibir_archivo = verdadero.

Grupo de imágenes = cuadro de lista superior 1. Grupo de imágenes

. subrutina_Hyperlist Box 1_Doble clic, tipo lógico.

. Parámetro posición horizontal, tipo entero

. Posición vertical del parámetro entero

Estado de la tecla de función del parámetro, tipo entero

. Elementos variables locales

. Si es verdadero (SuperListBox1.CurrentSelected=-1)' Evite errores de ejecución de proyectos cuando hay proyectos o no.

Return()

Si realmente se acabó.

. Si es verdadero (Super List Box 1. Número de elementos () ≥ 1)', solo se puede ejecutar si hay elementos.

Item =Super cuadro de lista 1. Obtenga el valor del elemento de la tabla (cuadro de lista superior 1. elemento seleccionado actualmente).

Ejecutar (, ruta [proyecto],,)

Si realmente terminó.

. Subrutina_Arrastrar y soltar objeto 1_Obtener archivo

. La ruta del archivo recibida por el tipo de texto del parámetro.

. Sufijo de archivo de variable local, tipo de texto

. variable local nombre de archivo1, tipo de texto, "0"

Sufijo de variable local, tipo de texto

nombre de archivo1 = texto dividido (recibir ruta de archivo, #nueva línea, 1)

Arrastrar y soltar nombre de archivo = nombre de archivo 1 [1]

Nombre de ruta = arrastrar y soltar nombre de archivo

Nombre de sufijo de archivo = tomar el lado derecho del texto (nombre de ruta, tomar la longitud del texto (nombre de la ruta): busque el texto hacia atrás (nombre de la ruta, "), falso))

Sufijo = sufijo del archivo

If (sufijo = "exe " )

Número de imagen = Agregar imagen por extracción (grupo de imágenes, arrastrar y soltar el nombre del archivo)

De lo contrario.

Número de imagen = Agregar imagen por extracción (Grupo de imágenes, acceso directo de consulta (arrastrar y soltar el nombre del archivo),,)

Si finaliza

Super cuadro de lista 1. Grupo de imágenes = Grupo de imágenes

Nombre de archivo = Obtener el lado derecho del texto (nombre de ruta, obtener la longitud del texto (nombre de ruta) - Buscar texto al revés (nombre de ruta, "\", falso))

Filename=Obtener el lado izquierdo del texto (Nombre de archivo, tome la longitud del texto (nombre de archivo) -4)

Agregar miembro (ruta, nombre de ruta)

Si (número de imagen ≦-1)

<. p>Super cuadro de lista 1. Insertar elemento de tabla (-1, nombre de archivo, número de imagen,,, obtener el número de miembros de la matriz (ruta))

Super cuadro de lista 1. Insertar elemento de tabla (-. 1, nombre de archivo, 0, ​​obtiene el número de miembros de la matriz (ruta))

Si termina

.