metodos
Private Sub Command1_Click()
Form2.Show
Form1.Hide
End Sub
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim f2 As New Form2
f2.Show()
Me.Hide()
End Sub
End Class
y pones otro botón en el formulario2 ydentro este código:
Private Sub Command1_Click()
Form1.Show
Form2.Hide
End Sub
Al apretar el botón del formulario1 aparecerá el formulario2 y al apretar el botón del formulario2 te aparecerá sin problemas el formulario1.
Se me olvido comentarte aunque igual lo sepas, que si usas el dejar los formularios en HIDE, deberías en algún momento del programa descargarlos con un load, ya que siel usuario acaba el programa cerrando una de las ventanas, la otra quedaría ejecutándose, esto lo puedes comprobar en el administrador de tareas de Windows, en la pestaña de procesos. Si tu proyecto por ejemplo se llama Proyecto1.exe aparecerá allí ejecutándose todavía al cerrar una de las ventanas o form.
Sería bueno que pusieras en el evento un load del form el siguiente código en cadaformulario.
En el primer form por ejemplo:
Private Sub Command1_Click()
Form2.Show
Form1.Hide
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unload Form2
Unload Form1
End Sub
En el Segundo form por ejemplo:
Private Sub Command1_Click()
Form1.Show
Form2.Hide
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unload Form1
Unload Form2
End Sub
Bueno es un ejemplo, así siel usuario cierra la ventana del primer form se descarga el segundo también y viceversa a si no queda nada del proceso abierto.
¿CÓMO CREAR UN PROYECTO EJECUTABLE EN VB6.0?
Lo único que necesitas es crear el paquete de instalación. Lo podes llamar como un complemento. Para ello seguí los siguientes pasos:
a. En el menú complementos clic kea "Administrador de complementos".
b. Busca en laventana que se abrió "Asistente de distribución y empaquetado" y hace clic ahí (indispensable)
c. Chequea la casilla Cargado/Descargado (opcionalmente, también la casilla "cargar al iniciar")
d. Acepta y aparece en el menú complementos como "Asistente de empaquetado y distribución" (no sé porque tiene el orden alterado). Hace clic y aparece el asistente.
e. Presiona "empaquetar" y seguí las instrucciones de pantalla.
f. Elegí "Paquete de instalación estándar"
g. Busca la carpeta donde guardas el paquete y presiona siguiente
h. En esta pantalla podes agregar y quitar componentes. En tu caso estás utilizando una base de datos, así que agrégala. Usa el botón examinar. Es imprescindible que en el código no hayas utilizado una ruta absoluta para conectar la base de datos. Si esasí, reemplaza la ubicación de la base de datos por una obtenida a partir de app.path, por ejemplo si la base de datos está en el directorio de la aplicación la ruta es App.path & "\base.mdb"
i. Luego seguí las instrucciones de pantalla para
finalizar
CODIGO DE CALCULADORA EN VB 6.0
Necitas crea un caja de texto
Una matriz diez botes de comandos para los numero
Otra matriz de cuatrobotones de comando para los operadores (+,-,/,*)
Un comando para nueva operacion
Un comando para el resultado (=)
CODIGO DEL FORMULARIO
Private Sub Igual_Click()
Select Case signo 'la variable signo te dice si sumas(0) si restas(1)......
Case 0
Text1.Text = suma(anterior, Val(Text1.Text)) 'llamada a la función suma
Case 1
Text1.Text = resta(anterior, Val(Text1.Text))
Case 2 Text1.Text = multiplicar(anterior, Val(Text1.Text))
Case 3
Text1.Text = Dividir(anterior, Val(Text1.Text))
End Select
End Sub
Private Sub Nueva_Click()
Text1.Text = ""
End Sub
Private Sub Operador_Click(Index As Integer)
signo = Index 'si index es 0 sumas, si es 1 restas......
anterior = Val(Text1.Text)
Text1.Text = ""
End Sub
Private Sub Numero_Click(Index...
Regístrate para leer el documento completo.