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 :P
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
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.
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 ;D
probe asi pero me dice esto:
CitarEl 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 :P
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
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
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
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 ;D.
Sancho Mazorka :P
GRACIAS IGUALMENTE