ventanas de charla como msn???

[Sancho.Mazorka]

hola muchachos queria saber si se puede hacer esto:
mi idea es hacer un tipo msn, en el msn cuando queremos hablar con un contacto hacemos 2 click sobre el y te abre una ventana (podes abrir todas las ventanas hasta que se acaben los contactos) pero con vb si queremos hacer eso tendriamos que poner en el proyecto una formulario para cada contacto, intente hacer una amtriz de forms pero no se puede. alguino tiene una idea de como ahcerlo, si no es claro por favro avisenme!!! salu2


Sancho Mazorka    

[Ismy]

Se podria hacer un formulario MDI , y dentro de el, poner los formularios de  toda la gente que tienes conectada a ti

Seria como un troyano, solo que en vez de ejecutar codigos maliciosos le mandas texto

[jorson]

Me suena haber visto en algun sitio codigo que creaba formularios en tiempo de ejecucion. No se si usaba algo como:

Load form1(0)

prueba algo asi, alomejor te funciona.

[#Borracho.-]

Si pero ahi estas llamando al form de una matriz y segun el no se puede... que me parece muy raro...

Salu2 y felices fiestas 

[Sancho.Mazorka]

probe asi pero me dice esto:

El subindice esta fuera de intervalo

y en las propiedades de form no hay una que diga index. y a los form MDI no los se usar o talvez no me puse a provar XD.
alguna otra sugerencia es bien recibida. Felices fiestas, salu2


Sancho Mazorka     

[jdonzet]

ACA TENGO LA SOLUCION CREO QUE TE VA A SERVIR

ESTE CODIGO GENERA N FORMULARIOS IDENTICOS A UNO YA CREADO, CON LOS MISMOS CONTROLES CODIGO Y TODO.

ESTE PROYECTO CONSTA DE 2 FORMULARIOS UNO EN EL CUAL SE ENCUENTRA UN BOTON QUE AL PRESIONARSE COMIENZA A GENERAR FORMULARIOS.
-- Y OTRO QUE ES EL QUE SE TOMA COMO REFERENCIA


ACA TE DEJO EL CODIGO DE LOS 2 FORMs

primer form

Código [Seleccionar] Expandir



Dim CONTA As Integer
Private Sub Command1_Click()
Dim S As Integer
For S = 1 To 40
    Call NUEVOS
Next S
Form1.Top = Int((8100 + 1) * Rnd + 1)
Form1.Left = Int((10515 + 1) * Rnd + 1)
End Sub

Private Sub NUEVOS()
CONTA = CONTA + 1
Dim nf As New Form2
nf.Show
nf.Top = Int((8100 + 1) * Rnd + 1)
nf.Left = Int((10515 + 1) * Rnd + 1)
nf.Caption = nf.Caption & CONTA
End Sub

Private Sub Form_Load()
Form1.Caption = Date & " - " & Time
CONTA = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = True
End Sub


segundo form

Código [Seleccionar] Expandir


Private Sub Command1_Click()
unload me
End Sub


el segundo form tiene un command que cierra ese form


TAMBIEN ME TOME EL TRABAJO DE SUBIR EL PROYECTO:

http://www.megaupload.com/?d=YH55XM8J


ESPERO QUE TE SIRVA A VOS Y A TODOS

SALUDOS

--Modificación: Corregido el Link

[Sancho.Mazorka]

muchas pero muchas gracias jdonzet me solucionaste un gran problema ahora voy a poder hacerlo. Salu2, gracias y Feliz año nuevo!!!

PD: lo unico malo que el proyecto no lo pu7edo bajar porque no anda el archivo dice el archivo no esta dsiponible. Pero no me voy a morir por hacer un nuevo proyecto y pegar eso  .


Sancho Mazorka     

[jdonzet]

GRACIAS IGUALMENTE