Traducción del código fuente de Vb

La declaración "Option Explicit" debe escribir la siguiente declaración de acuerdo con la especificación completa.

"Const SPI_GETWORKAREA = 48" define una constante.

Estructura de variable personalizada de tipo privado RECT, que se suele utilizar para determinar el alcance del rectángulo.

Igual largo a la izquierda

Mismo largo arriba

Mismo largo

Mismo largo abajo

Tipo final

p>

Declaración privada función parámetros del sistema info Lib " usuario 32 " Alias ​​​​ " parámetros del sistema sinfoa " u

(ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, _

ByVal fuWinIni As Long) As Long 'Declaración API

Private Sub Command1_Click()' proceso de evento de clic en el botón.

La variable "Dim lRet As Long" se declara como larga.

"Dim apiRECT As RECT" declara la variable como una estructura personalizada.

lret = systemparametersinfo(SPI_getwork area, vbnull, apirect, 0)'Llame a la API para escribir el valor de la ventana en la estructura personalizada y devolver si fue exitoso.

Si lrettthen ' devuelve un valor distinto de cero, se ejecutará.

Etiqueta1. caption = "Ancho:" ; apiRECT. Gire a la derecha. amplificador izquierdo"alto:";ApiRECT. De abajo hacia arriba. Si tiene éxito, escríbalo en la etiqueta.

"Else" devuelve cero y falla.

Error al imprimir el mensaje "Error al llamar a la información de parámetros del sistema".

Terminará si...

Finalizar conector

Subcomando privado 2_Click()

Finalizar salida

Conector final