Cómo escribir un fondo personalizado en Easy Language Notepad (cómo escribir un fondo personalizado usando una imagen como fondo) Por favor, ayúdenme

.Versión?2

.Comando DLL?CreatePatternBrush,?Tipo entero,? "gdi32",?"CreatePatternBrush"

.Parámetro?hBitmap,? Tipo de entero

.Comando DLL?GetWindowLong,?Tipo de entero,?"user32",?"GetWindowLongA"

Parámetros?hwnd,?Tipo de entero

. .Parámetro?nÍndice,?Tipo entero

.Comando DLL?SetWindowLong,?Tipo entero,?"user32",?"SetWindowLongA"

.Parámetro?hwnd,?Tipo entero

.Parámetro?nÍndice,?Tipo entero

.Parámetro?dwNewLong,?Tipo entero

.Comando DLL?CallWindowProcA,?Tipo entero,?,?" CallWindowProcA"

.Parameter?lproc,?Tipo entero

.Parameter?hwnd,?Tipo entero

.Parameter?umsg,?Tipo entero

.Parámetro?wparam,?Tipo entero

.Parámetro?lparam,?Tipo entero

.Comando DLL?DeleteObject,?Tipo entero,?"gdi32",? "DeleteObject"

.Parámetro?hObject,?Tipo de entero

.Comando DLL?SetBkMode,?Tipo de entero,?"gdi32",?"SetBkMode"

.Parameter?hdc,?Integer type

.Parameter?nBkMode,?Integer type

Esta línea no se copia ============== = ===============================================

.Versión?2

.Constante?GWL_WNDPROC,?"-4"

.Constante?WM_CTLCOLOREDIT,?"307"

.Constante ? TRANSPARENTE,?"1"

Esta línea no se copia =============================== ==== =========================

.Versión?2

.¿Montaje? Ensamblaje de ventana 1

. ¿Variable de ensamblaje?lpOldProc,?Tipo de entero

Variable de ensamblaje?hBlackBrush,?Tipo de entero

.Subprograma?__Ventana de inicio _Creación completada<. /p>

. ¿Variables locales? Imagen,? Objeto

¿Crear objeto de imagen? (¿Obtener directorio en ejecución? (? +? "\1. jpg”))

hBlackBrush?＝?CreatePatternBrush?(¿Imagen.Atributo de valor de lectura?(“handle”,?))

lpOldProc?＝?GetWindowLong?(¿Obtener identificador de ventana? (),? #GWL_WNDPROC)

¿SetWindowLong?(¿Obtener identificador de ventana?(),?#GWL_WNDPROC,?¿Obtener valor?(&WndProc))

¿Subrutina?WndProc,? >

.Parámetro?hwnd,?Tipo entero

.Parámetro?umsg,?Tipo entero

.Parámetro?wparam,?Tipo entero

. Parámetro?lparam,?tipo entero

.¿Si es verdadero?(umsg?＝?#WM_CTLCOLOREDIT)

Se

tBkMode?(wparam,?#TRANSPARENT)

Retorno?(hBlackBrush)

Si realmente finaliza

Retorno?(CallWindowProcA?(lpOldProc,? hwnd,?umsg,?wparam,?lparam))

. ¿Subrutina?__iniciar ventana_¿se puede cerrar? Tipo lógico

Si es verdadero?(hBlackBrush?>?0)

¿EliminarObjeto?(hBlackBrush)

.Si termina

.¿Subrutina?_Cuadro de edición 1_el contenido se cambia

Cuadro de edición 1. ¿Redibujar?()

.¿Subrutina?_Cuadro de edición 1_Se rueda la rueda,?Tipo lógico

.¿Parámetro?Distancia de desplazamiento,?Tipo entero

.Parámetro?Tecla de función estado,?Tipo de entero

Cuadro de edición 1. ¿Redibujar?()