Lenguaje fácil para modificar el fondo del escritorio, ¿código qiu?
.Soporte de biblioteca eImgConverter
.Soporte de biblioteca eAPI
.Soporte de biblioteca shellEx
.Soporte de biblioteca shell.ventana de ensamblaje Ensamblaje 6. Subroutine_ListBox1_ListItemsSelected
. Variable local Identificador de fondo de pantalla, entero PictureBox1.Picture = Leer archivo (ListBox1.FetchItemText (ListBox1.FetchFocusItem ()))
Identificador de fondo de pantalla = Cargar imagen (PictureBox1) .Picture)
Label5.Caption = "ancho:" + a texto (PictureBox1.FetchFocusItem ()))
.+ a texto (PictureBox1.FetchPicture Ancho (identificador de fondo de pantalla))
Etiqueta 6.Caption = "Altura:" + al texto (tablero de dibujo 1. buscar la altura de la imagen (controlador del fondo de pantalla))
Descargar imagen (controlador del fondo de pantalla). Subrutina _Listbox1_ Haga doble clic para seleccionar
. Variables locales nombre de archivo de fondo de pantalla, texto fondo de pantalla actual = listbox1.fetch elemento de enfoque ()
nombre de archivo de fondo de pantalla = listbox1.fetch texto del elemento (fondo de pantalla actual)
. Si es verdadero (convertir a mayúsculas (tomar el lado derecho del texto (nombre del archivo de fondo de pantalla, 4)) ≠ ".BMP")
. Si es verdadero (convertir a BMP (nombre del archivo de fondo de pantalla, directorio del programa + "WALLPAPER.BMP") = 1)
Nombre del archivo de fondo de pantalla = directorio del programa + "WALLPAPER.BMP"
. Si es verdadero final. Si es verdadero, finalice
Se inicia el juicio (marque la casilla de opción 1)
Establezca el fondo de escritorio (nombre del archivo de fondo de pantalla, 1)
. Casilla de radio 2. marcada)
Establecer fondo de escritorio (nombre de archivo de fondo de pantalla, 2)
.Default
Establecer fondo de escritorio (nombre de archivo de fondo de pantalla, 0)
.Termina el juicio
. Se hace clic en la subrutina _SelectionBox4_. if (casilla de verificación 4.marcada = verdadera)
_Ventana de inicio. Reloj 2.Periodo del reloj = al valor (cuadro de edición 2.Contenido) × 60000
Cuadro de edición 2.Desactivar = falso
.
De lo contrario
Cuadro de edición 2.Prohibido = Verdadero
_Iniciar ventana.Reloj 2.período de reloj = 0
.Si finaliza
. La subrutina _Wallpaper Manager_ será destruida
. La variable local guarda el archivo de fondo de pantalla, el número entero.
El bucle de fondo de pantalla de la variable local, el número entero guarda el archivo de fondo de pantalla = abrir el archivo (directorio del programa + "WALLAB. INI". , 4,)
Borrar matriz (lista de fondos de pantalla)
Si es verdadero (guardar archivo de fondo de pantalla ≠0)
Cuente la primera línea del bucle (. listbox1.fetchItems(), WallpaperLoop)
Escribe una línea de texto (guarda el archivo de fondo de pantalla, listbox1.fetchItemsText (WallpaperLoop - 1))
Añade miembro (lista de fondos de pantalla, listbox1.fetchItemsText (WallpaperLoop - 1))
. El bucle de conteo termina ()
Cierra el archivo (guarda el archivo de fondo de pantalla)
Si es verdadero, finaliza
..Si (seleccione el cuadro 4. seleccionado)
_Ventana de inicio.Ciclo de reloj = valor (editar el contenido del cuadro 2.) × 60000
Escribir elemento de configuración (directorio del programa + "clock.ini", "Cambiar fondo de pantalla", "Intervalo de tiempo", cuadro de edición 2. contenido)
Escribir elementos de configuración (directorio del programa + "clock.ini", "Cambiar fondo de pantalla", "Cambio automático ", "Y" )
. En caso contrario
_Ventana de inicio. Reloj 2. Ciclo de reloj = 0
Escribir entrada de configuración (directorio de programa + "clock.ini", "cambiar fondo de pantalla", "cambio automático", "N")
."N " )
Escribe elementos de configuración (directorio del programa + "clock.ini", "Cambiar fondo de pantalla", "Intervalo", "")
Si finaliza
. .Confirmar para iniciar (marque el botón de opción 2)
Escribir elementos de configuración (directorio de programas + "clock.ini", "Cambiar fondo de pantalla", "Modo de visualización", "2")
.Judge (marque el botón de opción 1)
Escribir elementos de configuración (directorio de programa + "clock.ini", "Cambiar fondo de pantalla", "Modo de visualización", "1")
.1")
.Default
Escribe entradas de configuración (directorio de programa + "clock.ini", "Cambiar fondo de pantalla", "Modo de visualización", "0")
. El juicio finaliza
. Crea la subrutina _WallpaperManager_
. La variable local toma el valor del ciclo del fondo de pantalla, un número entero. Si es verdadero (obtiene el miembro de la matriz (número de fondos de pantalla). list) > 0)
Primer bucle del bucle de conteo (obtener miembro de la matriz (lista de fondos de pantalla), obtener valor del bucle de fondos de pantalla)
si es verdadero (. Si el archivo existe (Lista de fondos de pantalla). [Obtener valor del ciclo del papel tapiz]))
Cuadro de lista 1. Agregar elemento (Lista de fondos de pantalla [Obtener valor del ciclo del papel tapiz],)
Si es verdadero, finalice.
El ciclo de conteo termina ()
. Si es verdadero, finaliza
.Si es verdadero (_start window . Clock2.Clock period > 0)
Cuadro de edición 2. Contenido = a texto (_Ventana de inicio. Reloj2.Período de reloj ÷ 60000)
Seleccione la casilla 4. Contenido = a texto (_Ventana de inicio. Reloj2.Período de reloj ÷ 60000)
Si es verdadero Fin
Si es verdadero Fin
Cuadro de lista 1.seleccione elemento (fondo de pantalla actual, )
_Listbox1_list_item_is_selected ()
Agregar mensaje ( Picturebox1. take_window_handle(), "double_click_mouse_to_clear_wallpaper", falso, falso)
. Si es verdadero (si el formulario puede ser transparente)
Establezca la transparencia de la ventana (tome el identificador de la ventana (), 230)
Si es verdadero, finalice
. Se ha modificado el contenido de la subrutina _EditBox2_. Si es verdadero (el cuadro de selección 4. está seleccionado)
_Iniciar ventana.Ciclo de reloj = al valor (cuadro de edición 2. contenido) × 60000
.Finalizar si es verdadero
.La subrutina _WallpaperManager_ se puede cerrar y la lógica regresa (verdadero). Subrutina _PictureBox1_DoubleClicked, lógica
Parámetros posición horizontal, entero
. Posición vertical del parámetro, número entero
Estado de la tecla de función del parámetro, fondo de escritorio del conjunto de números enteros ("",)
Subrutina _SuperButton1_Clicked
. nombre de archivo y tipo de texto
. Guarde el nombre del archivo, texto, "0"
. Variable local Recorrido, entero Obtener nombre de archivo abierto = Abrir cuadro de diálogo de múltiples archivos (administrador de fondos de pantalla)
Obtener identificador de ventana (), "Seleccione el fondo de pantalla para agregar", "JPG, BMP, ICO | *.JPG;*.BMP;*.ICO",)
. Si es verdadero (tome el nombre del archivo abierto ≠"")
Guarde el nombre del archivo = texto dividido (tome el archivo Abierto nombre de archivo, ";",)
. El primer ciclo del ciclo de conteo (obtener el miembro de la matriz (guardar el nombre del archivo), recorrer los valores)
listbox1.add item (guardar el nombre del archivo [recorrer los valores],)
Agregar Miembro (lista de fondos de pantalla, guardar nombre de archivo [bucle sobre valores])
.Cuenta el final del bucle ()
.Si es verdadero, finaliza
. Subrutina _SuperButton2_Clicked
Variable local Directorio de fondo de pantalla, tipo de texto
Variable local Buscar nombre de archivo, entero
. Variables locales tipo de fondo de pantalla, tipo de texto, "4"
. La variable local guarda el nombre del archivo del fondo de pantalla, tipo de texto tipo de fondo de pantalla = { "*.JPG", "*.BMP", "*.ICO".
}
Catálogo de fondos de pantalla = Explorar carpeta ("Seleccione el directorio para buscar fondos de pantalla", verdadero)
. Si es verdadero (Obtener texto a la derecha (Catálogo de fondos de pantalla, 1) ≠ "\")
Catálogo de fondos de pantalla = Catálogo de fondos de pantalla + "\"
.Finalizar si es verdadero
.Calcular el primero del bucle (4, obtener el nombre del archivo)
Guardar nombre del archivo del fondo de pantalla = buscar archivo (directorio del fondo de pantalla + tipo de fondo de pantalla [obtener nombre del archivo],)
Determine el primero en el bucle (guardar el nombre del archivo del fondo de pantalla ≠"")
Cuadro de lista 1. Agregar elemento (directorio del fondo de pantalla + guardar el nombre del archivo del fondo de pantalla)
Agregar miembro (. lista de fondos de pantalla, directorio de fondos de pantalla + guardar nombre de archivo de fondo de pantalla)
Guardar nombre de archivo de fondo de pantalla = buscar archivo (,)
Determinar el final del bucle ()
. Finalizar si es verdadero
.Subroutine_SuperButton3_Clicked
.Variable local Bucle para archivo, entero. Si es verdadero (listbox1.número de elementos () > 0)
Cuente el primer elemento del bucle (listbox1.fetch items (), bucle al archivo)
listbox1. elementos (bucle al archivo - 1,)
.Contar el final del bucle ()
.Finalizar si es verdadero
.Subroutine_SuperButton4_Clicked
Las variables locales guardan la matriz de nombres de archivo, tipo de texto, "0"
. Las variables locales recorren los nombres, los números enteros borran la matriz (guardan la matriz de nombres de archivo)
. verdadero (listbox1. cuenta el primer bucle (listbox1.fetch items (), recorre los nombres)
. Si es verdadero (listbox1.is seleccionado (nombre del bucle - 1) = false)
Agregar miembro (guardar matriz de nombre de archivo, cuadro de lista1. Obtener texto del elemento (nombre del bucle - 1))
Si es verdadero, finalizar el ciclo de conteo ()
Cuadro de lista 1. Borrar ().
Borra la matriz (lista de fondos de pantalla)
Cuenta el bucle primero (obtén los miembros de la matriz (guarda la matriz de nombres de archivo), recorre los nombres)
Cuadro de lista 1. Unirse a elementos (guardar matriz de nombres de archivos [recorrer los nombres],)
Unirse a miembros (lista de fondos de pantalla, guardar matriz de nombres de archivos [recorrer los nombres])
Hora de finalización del bucle de cálculo()<. /p>
.Finalizar si es verdadero
.