Red de conocimiento informático - Aprendizaje de código fuente - 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

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ámetro?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 entero

.Variable de ensamblaje?hBlackBrush,?tipo entero

.Subprograma?__ventana de inicio _Creación completada

.¿Variable local?Imagen,?Objeto

Imagen. ¿Crear objeto de imagen? (¿Leer en el archivo? (¿Obtener el 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?(amp;WndProc))

Subrutina?WndProc,?Tipo entero<. /p>

.Parámetro?hwnd,?Tipo de entero

.Parámetro?ums

g,?Tipo de entero

.Parámetro?wparam,?Tipo de entero

Parámetro?lparam,?Tipo de entero

Si es verdadero?(umsg?=. ?#WM_CTLCOLOREDIT)

SetBkMode?(wparam, ?#TRANSPARENT)

Devuelve ?(hBlackBrush)

Si es verdadero, finaliza

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

¿Se puede cerrar la subrutina?__start window_Tipo lógico

.Si es verdadero. ?(hBlackBrush?>?0)

¿EliminarObjeto?(hBlackBrush)

.Si es verdadero final

.¿Subrutina?_Cuadro de edición 1 _Se cambia el contenido

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

. ¿Subrutina?_Cuadro de edición 1_La rueda está rodada,?

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

p>

.¿Parámetro?Estado de la tecla de función,?Tipo de entero

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