Red de conocimiento informático - Problemas con los teléfonos móviles - VB, ayúdame a traducir este pequeño programa. Después de traducir cada línea, entregaré la tarea y pediré tantos detalles como sea posible.

VB, ayúdame a traducir este pequeño programa. Después de traducir cada línea, entregaré la tarea y pediré tantos detalles como sea posible.

Opción Explícita 'Declara que las siguientes declaraciones deben escribirse con especificaciones completas

Const SPI_GETWORKAREA = 48 'Definir constantes

Tipo Privado RECT 'Estructura de variable personalizada, rect generalmente se usa para determinar el rango de un rectángulo

Izquierda tan larga

Arriba tan larga

Derecha tan larga

Abajo tan larga

Tipo de finalización

p>

Función de declaración privada SystemParametersInfo Lib "user32" Alias ​​​​"SystemParametersInfoA" _

(ByVal uAction siempre, ByVal uParam mientras, lpvParam como cualquiera, _

ByVal fuWinIni As Long) As Long 'Declarar API

Private Sub Command1_Click() 'Procedimiento de evento de clic de botón

Dim lRet As Long 'Declarar variables mientras formas

Dim apiRECT As RECT 'Declara la variable como una estructura personalizada

lRet = SystemParametersInfo(SPI_GETWORKAREA, vbNull, apiRECT, 0) 'Llama a la API para escribir el valor de la ventana en el estructura personalizada y devolver si tiene éxito.

Si lRet Then 'Devuelve un valor distinto de cero, luego ejecuta

Label1.Caption = "Width: " & apiRECT.Right - apiRECT.Left & " Height: " & apiRECT.Bottom - apiRECT.Top 'Se escribió correctamente el valor de la ventana. Top 'Escribió la etiqueta con éxito

De lo contrario 'Error si se devuelve cero

Imprimir "Error al llamar a SystemParametersInfo" 'Error de solicitud

Finalizar si

Fin Sub

Sub Comando Privado2_Click()

Fin 'Salir

Fin Sub

上篇: Cómo crear una instancia de JspFactory dentro de un servlet. 下篇: Cómo importar fuentes ps Cómo importar fuentes ps

Artículos populares