metodos

Páginas: 19 (4576 palabras) Publicado: 16 de julio de 2014
Hola si pones un botón en el formulario1 y dentro este código:
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...
Leer documento completo

Regístrate para leer el documento completo.

Estos documentos también te pueden resultar útiles

  • Metodos De Metodos
  • El Método
  • Metodo
  • El Método
  • Metodo
  • Metodos
  • Metodos
  • Metodos

Conviértase en miembro formal de Buenas Tareas

INSCRÍBETE - ES GRATIS