Cómo abrir un cuadro de diálogo al presionar un botón en VB6~~Sea específico~~

1. Uso del cuadro de diálogo de entrada:

Private Sub Command1_Click()

h = InputBox("Ingrese el valor que se muestra en el cuadro de texto")

Text1.Text = h

End Sub

2, cuadro de diálogo de mensaje

Private Sub Command1_Click()

MsgBox ("Hola")

End Sub

3. Cuadros de diálogo comunes (cuadro de diálogo Abrir, cuadro de diálogo Guardar como, cuadro de diálogo Color, cuadro de diálogo Fuente, cuadro de diálogo Imprimir). , cuadro de diálogo Ayuda)

El control del cuadro de diálogo no es un control estándar y se puede agregar mediante el siguiente método

En la pestaña Project-Parts-Control, seleccione el cuadro de diálogo común de Microsoft. Casilla de verificación Control6.0 Haga clic en Aceptar.

Lo siguiente solo muestra el cuadro de diálogo abierto

Private Sub Command1_Click()

CommonDialog1.Filter = "Acceder a la base de datos ( *.mdb)" ' Establece las condiciones de filtro del cuadro de diálogo "Abrir"

CommonDialog1.ShowOpen 'Abre el cuadro de diálogo "Abrir"

End Sub

Se recomienda leer libros sobre programación VB.

Puede seleccionar directamente el formulario (por ejemplo, llamado FrmMain) en el objeto de inicio de la pestaña Propiedades-General del Proyecto 1.

Escribe el siguiente código en FrmMain:

Private Sub Form_Load()

FrmLogin.Show 1

End Sub

Dónde FrmLogin es el formulario de inicio de sesión que aparece. El nombre.

1 significa mostrar el formulario como un cuadro de diálogo modal. En este caso, el código después del método Show no se puede ejecutar hasta que se cierre el cuadro de diálogo modal. y el foco no se puede mover a otras formas;