Código fuente de teclas de acceso rápido en lenguaje simple

.Biblioteca compatible shellEx

.Ensamblaje de ventana de ensamblaje 1

.Variable de ensamblaje F1, entero

.Variable de ensamblaje F2 , entero

.Variable de ensamblaje F3, entero

.Fetch_Window_Handle (), 0, tecla #F2)

F3 = Tecla de acceso rápido de registro (Obtener identificador de ventana ( ), Label1.Fetch_Window_Handle (, 0, tecla #F3)

F3 = Registrar tecla de acceso rápido (Obtener identificador de ventana (), Label1. (, 0, tecla #F3)

.Subroutine_Label1_FeedbackEvent, entero

. Parámetro parámetro uno, entero

. Parámetro dos, número entero

. Si es verdadero (argumento uno = F1)

. Comience a juzgar (checkbox1.selected = true)

checkbox1.selected = false

.Default

Checkbox1.checked = true

. Fin del juicio

.Fin si es verdadero

.Si es verdadero (parámetro uno = F2)

.Inicio del juicio (seleccione la casilla 2. marcada = verdadero)

Cuadro de selección 2.marcado=falso

.Predeterminado

Cuadro de selección 2.marcado=verdadero

.Fin del juicio

Si es verdadero, finalice

Si es verdadero (parámetro uno = F3)

Comienza el juicio (cuadro de selección 3.marcado = verdadero)