Red de conocimiento informático - Problemas con los teléfonos móviles - ¿VB hace que el botón de cerrar no esté disponible? ¿Cómo hacer que esté disponible nuevamente?

¿VB hace que el botón de cerrar no esté disponible? ¿Cómo hacer que esté disponible nuevamente?

Cree un COMmand1,Command2.

El código es el siguiente.

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Atenuar h mientras, l mientras

Const privada MF_BYPOSITION = &H400&

Const privada MF_ENABLED = &.H0&

Const privada MF_DISABLED = &H2&

Función de declaración privada GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long

Función de declaración privada GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long

Función de declaración privada EnableMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem Mientras, ByVal wEnable Mientras) Mientras

Private Sub Command1_Click()

EnableMenuItem h, l - 1, MF_BYPOSITION + MF_DISABLED

WindowState = 1

WindowState = 0

End Sub

Subcomando privado2_ Click()

EnableMenuItem h, l - 1. MF_BYPOSITION + MF_ENABLED

WindowState = 1

WindowState = 0

Fin Sub

Sub privado Form_Load()

h = GetSystemMenu (hwnd, 0)

l = GetMenuItemCount(h)

End Sub