Autor Tema: ayuda con pantalla emergente  (Leído 2119 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado nacha4

  • PIC16
  • ***
  • Mensajes: 113
ayuda con pantalla emergente
« en: 06 de Abril de 2006, 14:36:34 »
hola lo que necesito saber como se hace es lo siguiente.
en la pantalla principal apretar un boton para que aparesca una pantalla nueva (eso ya lo se hacer) en esa pantalla tendria que haber algunos check para marcar, cuando cierro la pantalla emergente que en la pantalla principal segun lo que marque en la pantalla emergente sucedan algunas tareas enla pantalla principal.  Yo lo intente hacer pero una ves que cerre la pantalla emergente se borro todo
desde ya gracias
Nacha

Desconectado LordLafebre

  • Moderador Global
  • DsPIC30
  • *****
  • Mensajes: 3529
    • Micros & micros
Re: ayuda con pantalla emergente
« Respuesta #1 en: 06 de Abril de 2006, 16:40:14 »
Hola:

Nacha, tienes algo de codigo para verlo?


si quieres trabajar con controles que estan en un formulario diferente del principal, por ejemplo puedes hacer esto:

Private Sub Command1_Click()
    Form1.Text1.Text = Text1.Text
End Sub

ese boton esta en un formulario secundario, lo que hace es asignar el texto de un textbox que se encuentra en el form 2 a otro textbox que se encuentra en el form 1 (principal), y se mantiene asi aunque el form 2 se haya cerrado.

Desconectado nacha4

  • PIC16
  • ***
  • Mensajes: 113
Re: ayuda con pantalla emergente
« Respuesta #2 en: 06 de Abril de 2006, 21:39:32 »
No te entendi muy bien lo que yo quiero hacer es en el formulario secundario es poner un par de Check cerrar ese formulario y segun lo que tilde que haga una cosa o la otra
espero que se alla entendido
Nacha

Desconectado BrunoF

  • Administrador
  • DsPIC30
  • *******
  • Mensajes: 3865
Re: ayuda con pantalla emergente
« Respuesta #3 en: 06 de Abril de 2006, 22:18:17 »
Nacha:

"gracias otra pregunta si quiero usar las mismos variables(no se como se llaman) por ejemplo
Ya quiero que en la pagina agregada tildar algunas iconos para que en la primera pagina haga cosas segun lo que tilde. Espero entiendas mi pregunta
Nacha4"

Si te refieres a VARIABLES, pues es suficiente con declarar las variables que quieras compartir como global y publica
¿como declaras una variable como global y publica?
Simplemente la declaras al inicio del codigo, FUERA de cualquier evento(eso seria global) y reemplazas la palabra "Dim" por la palabra "Public"(eso daria global y publica).

ejemplo:

arriba de todo el codigo, fuera de todo pones:

Public Compilado As String

Para acceder a los objetos(formularios,textbox,picturebox, etc) desde otro formulario es mas facil aun.
simplemente cuando quieras referirte a un objeto que no este en el formulario donde estas, pones delante del nombre del objeto el nombre del formulario donde se ecuentra el objeto.

Private Sub Form2_Load()
Form1.Text1.Text = "Modificando Text1 del Form1 desde Formulario 2"
En Sub

Saludos!
"All of the books in the world contain no more information than is broadcast as video in a single large American city in a single year. Not all bits have equal value."  -- Carl Sagan

Sólo responderé a mensajes personales, por asuntos personales. El resto de las consultas DEBEN ser escritas en el foro público. Gracias.

Desconectado Toph

  • Colaborador
  • PIC12
  • *****
  • Mensajes: 84
Re: ayuda con pantalla emergente
« Respuesta #4 en: 30 de Abril de 2006, 20:20:17 »
lo que yo quiero hacer es en el formulario secundario es poner un par de Check cerrar ese formulario y segun lo que tilde que haga una cosa o la otra
espero que se alla entendido
Nacha


primero, no se con que ocultas el formulario, tienes que hacerlo con Hide porque si lo haces con Unload Me, se borran los datos.

en Form1 tienes que declarar la variable como publica

public cheque as string
Private Sub Check1_Click()
cheque = "A"
End Sub
Private Sub Check2_Click()
opcion = "B"
End Sub


en Form2 para saber que tiene cheque consultas la variable asi:

variable = form1.cheque


El tiempo perdido es dificil de recuperar, trata de no desperdiciarlo
atrevete de vez en cuando a hacer algo nuevo
¿Sera este el año que tanto he deseado?


 

anything