Cómo escribir una declaración cuando el cuadro de entrada está vacío en programación VB para indicar que el formulario actual se ha cerrado
Esto es de MSDN
Atenuar mensaje, título, valor predeterminado como cadena
Atenuar myValue como objeto
' Establecer valor entre el mensaje. 1 y 3"
' Establecer título.
title = "InputBox Demo"
defaultValue = "1" ' Establecer el valor predeterminado.
' Mostrar mensaje, título
myValue = InputBox(message, title, defaultValue)
' Si el usuario hace clic en Cancelar, establezca myValue en el valor predeterminado
' Si myValue es """, establezca myValue en el valor predeterminado
' Si myValue es """, establezca myValue en el valor predeterminado. Si myValue es "" Entonces myValue = defaultValue<.
' Muestra el cuadro de diálogo en la posición 100, 100
myValue = InputBox(message, title, defaultValue, 100, 100)
' Si el usuario hace clic. Cancelar, establezca myValue en defaultValue
' 100, 100)
' Si el usuario hace clic en Cancelar, establezca myValue en defaultValue
Si myValue es "" Entonces. miValor = valor predeterminado