elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recopilación Tutoriales y Manuales Hacking, Seguridad, Privacidad, Hardware, etc


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Ayuda con MiFormulario as Form2
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda con MiFormulario as Form2  (Leído 3,731 veces)
TheGhost(Z)

Desconectado Desconectado

Mensajes: 230



Ver Perfil
Ayuda con MiFormulario as Form2
« en: 5 Marzo 2010, 20:02 pm »

Hola, amigos

Veran tengo tres Formularios:


FormPrincipal
FormCliente
FormDocumentos


El FormCliente tiene TextBox como: TextNombres, TextApellidos, TextDocumento, etc. Y lo ejecuto desde FormPrincipal con el código siguiente:
Código:
Dim MiFormCliente As New ForCliente
With MiFormCliente
.Show
End With

Una vez cargado el nuevo Formulario, relleno los TextBox y cuando me sitúo en el TextDocumento, preciono Ctrl + Enter para cargar el FormDocumentos que contiene un ListBox con los documentos comunes como: DNI, Pasaporte, Licencia de conducir, etc.

Bueno, pues al dar DobleClik en el ListBox no se como pasar los datos del documento seleccionado porque el FormCliente lo he creado con el código que ya dije anteriormente. He intentado con:

Código:
With FormCliente
     .TextDocumento.Text = Listado.Text
     .TextDocumento.Tag = Listado.ItemData(Listado.ListIndex)
End With
y

Código:
With MiFormCliente
     .TextDocumento.Text = Listado.Text
     .TextDocumento.Tag = Listado.ItemData(Listado.ListIndex)
End With

y no me pasa los datos. Ayuda por favor alguna sugerencia o solución..




En línea

Snopk

Desconectado Desconectado

Mensajes: 32



Ver Perfil WWW
Re: Ayuda con MiFormulario as Form2
« Respuesta #1 en: 6 Marzo 2010, 04:53 am »

Para mostrar un formulario que esta en tu proyecto lo haces simplemente con el evento Show.
Código:
Private Sub Form_Load()

frmSecundario.Show

End Sub

Y si quieres hacer referencia a algun control, función (publica), etcétera seria así:
Código:
MsgBox frmSecundario.txtNombre.Text


No entendí bien tu problema, espero haberte ayudado.  ;D


En línea

TheGhost(Z)

Desconectado Desconectado

Mensajes: 230



Ver Perfil
Re: Ayuda con MiFormulario as Form2
« Respuesta #2 en: 6 Marzo 2010, 11:15 am »

Eso lo tengo claro. Lo que digo que el el formulario lo cargo en tiempo de ejecución:

Código:
Dim MiFormCliente As New ForCliente
With MiFormCliente
.Show
End With


Seria lógico hacer un:

Código:
MiFormCliente.TextDocumento.Text = "DNI"

Pero si lo hago me sale error.... por que ese Formulario lo he cargado en tiempo de ejecución.

Práticamente mi pregunta sería: ¿como hacer referencia a control de un formulario que ha sido creado en tiempo de ejecución?
En línea

BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: Ayuda con MiFormulario as Form2
« Respuesta #3 en: 6 Marzo 2010, 21:47 pm »


Agrega un Form
    Con un TextBox con nombre Text1
Agrega un modulo y pega esto

Establece en propiedades del proyecto el proceso inicial Sub Main

Código
  1.  
  2. Public MatrizDeForms() As Form
  3. Sub main()
  4.    ReDim MatrizDeForms(10)
  5.    For Index = LBound(MatrizDeForms) To UBound(MatrizDeForms)
  6.        Set MatrizDeForms(Index) = New Form1
  7.        With MatrizDeForms(Index)
  8.            .Text1.Text = "Cagada Del FormNo.: " & Index
  9.            .Show
  10.        End With
  11.    Next
  12. End Sub
  13.  
  14.  

Dulce Infierno Lunar!¡.
En línea

The Dark Shadow is my passion.
TheGhost(Z)

Desconectado Desconectado

Mensajes: 230



Ver Perfil
Re: Ayuda con MiFormulario as Form2
« Respuesta #4 en: 8 Marzo 2010, 12:59 pm »

Graciar, veo que funciona.
En línea

TheGhost(Z)

Desconectado Desconectado

Mensajes: 230



Ver Perfil
Re: Ayuda con MiFormulario as Form2
« Respuesta #5 en: 8 Marzo 2010, 15:54 pm »

Hola, lo que intento es crear una matriz vacía, Fomularios () as Form y segun ande ejecuntando formularios ire agregando a la matriz, pero si se cierra un formulario la posicion de la matriz quedaría vacía. y asi aría un for para buscar posiciones vacías y cuando encuentre uno metería el nuevo formulario en esa posicion vacía y si no encuentro pues redimensionno + 1 y meto ahi el nuevo formulario.

mi pregunta es como hago para saber si una pocicion determinada esta vacía porque hago con:

Código:
IF Formularios(0) = VBNull then
endif
no me sale nada...
En línea

cobein


Desconectado Desconectado

Mensajes: 759



Ver Perfil WWW
Re: Ayuda con MiFormulario as Form2
« Respuesta #6 en: 8 Marzo 2010, 16:41 pm »

Te respondi esto hace unos cuantos post atras...

Pone ese code en el form que tiene la lista (en este caso list1, tu ejemplo es FormDocumentos) y automagicamente te va a agregar el item seleccionado al form que lo llamo en un textbox llamado text1

Código:
Private Sub List1_Click()
    GetCaller.Text1 = List1
End Sub

Private Function GetCaller() As Object
    Dim objForm As Object
   
    For Each objForm In Forms
        If objForm Is Me Then Exit For
        Set GetCaller = objForm
    Next
End Function
En línea

http://www.advancevb.com.ar
Más Argentino que el morcipan
Aguante el Uvita tinto, Tigre, Ford y seba123neo
Karcrack es un capo.
TheGhost(Z)

Desconectado Desconectado

Mensajes: 230



Ver Perfil
Re: Ayuda con MiFormulario as Form2
« Respuesta #7 en: 8 Marzo 2010, 20:58 pm »

Hola Cobein

Sabes, no entiendo este
Código:
If objForm Is Me Then Exit For

el
Código:
is Me
formularioDocumentos, al que tienen la lista, no?.  lo que yo quiero es pasar el dato al:
Código:
FormClientes(i).TextDocumentos.Text=Lista.text
En línea

sinksss

Desconectado Desconectado

Mensajes: 59


¿Qué sabe el pez del agua donde nada toda su vida?


Ver Perfil
Re: Ayuda con MiFormulario as Form2
« Respuesta #8 en: 8 Marzo 2010, 21:52 pm »

El "Me" hace referencia a el form en el que esta escrito.
Saludos
En línea

cobein


Desconectado Desconectado

Mensajes: 759



Ver Perfil WWW
Re: Ayuda con MiFormulario as Form2
« Respuesta #9 en: 9 Marzo 2010, 03:04 am »

Ahi te deje un ejemplo, no es el mismo source que postie aca, es mas simple y versatil.

http://www.2shared.com/file/11965677/711ea2d3/Sample.html


Podes cambiar  esto en el FormCliente asi no tenes mas de una instancia.

Código:
Private Sub Command1_Click()
    If Not Called Is Nothing Then
        If Called.Visible Then Exit Sub
        Called.Show: Exit Sub
    End If
    Dim f As New FormDocumentos
    f.Show
End Sub
En línea

http://www.advancevb.com.ar
Más Argentino que el morcipan
Aguante el Uvita tinto, Tigre, Ford y seba123neo
Karcrack es un capo.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Deactivar timer de form1 desde form2?
Programación Visual Basic
usuario oculto 2 2,085 Último mensaje 2 Julio 2011, 14:01 pm
por usuario oculto
Base De Datos De Form 1 a form2 (Ayuda!)
Programación Visual Basic
R3Z 1 1,568 Último mensaje 3 Agosto 2015, 20:09 pm
por 79137913
Ayuda.! Click en WebBrowser1 ejecutar form2
.NET (C#, VB.NET, ASP)
darkisel 1 3,391 Último mensaje 6 Diciembre 2021, 15:48 pm
por Mohicano
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines