Visual Basic - Algun Experto?

Life is soft - evento anual de software empresarial
 
Vista:

Algun Experto?

Publicado por SouL (38 intervenciones) el 16/05/2001 04:06:05
Hola.. quisiera saber como puediera o algun ejemplo de como crear un form....lo que pasa es que tengo un listbox y dentro del listbox unos nombres ...cuando hago click en cierto nombre del listbox me aparece una ventana(otro form que cree con el nombre del nombre seleccionado del listbox) pero cuando hago click en otro nombre cambia el texto del nuevo form y yo quisiera que abra una ventana nueva, no quiero meter 30 form por ejemplo si no crearlo por que el numero de items del listbox cambia siempre.
espero que me hayan comprendido
se los agradesco de antemano
adios
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

No hay que se experto

Publicado por Francisco Rossi (Stone Cold) (76 intervenciones) el 16/05/2001 04:22:43
Para crear una ventana nueva, copia este codigo

Dim NFORM As New Form1

NFORM.Show 1

Espero que sea eso lo que querias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

algo mas

Publicado por SouL (38 intervenciones) el 16/05/2001 06:47:37
gracias, ahora si me podrias ayudar. en
como hacer para que cree otra ventana solo si es que la otra esta abierta?
lo que pasa es que la ventana abre segun el nombre del item del listbox osea si hay un item soul que abra un ventana de caption soul y al hacer un click en otro item supongamos Skull cree otra ventana con el caption de skull y asi sucesiva mente ,
espero no incomodarte y gracias por la respuesta anterior bye
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Algun Experto?

Publicado por Christian A. Valeria Celedón (207 intervenciones) el 16/05/2001 07:07:23
Prueba lo siguiente. Debes crearte un proyecto que contenga dos formularios (llamados Form1 y frmList respectivamente). Luego, al formulario llamado Form1 agrégale el siguiente código:

Private Pantallas() As frmList

Private Sub Form_Load()
List1.AddItem "Pantalla N° 1"
List1.AddItem "Pantalla N° 2"
List1.AddItem "Pantalla N° 3"
List1.AddItem "Pantalla N° 4"
List1.AddItem "Pantalla N° 5"
List1.AddItem "Pantalla N° 6"
ReDim Pantallas(0)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim nForms As Integer
For nForms = 0 To UBound(Pantallas)
Unload Pantallas(nForms)
Next nForms
End Sub

Private Sub List1_Click()
Dim Tope As Integer
If Pantallas(0) Is Nothing Then
Tope = 0
Else
Tope = UBound(Pantallas) + 1
ReDim Preserve Pantallas(0 To Tope)
End If
Set Pantallas(Tope) = New frmList
With Pantallas(Tope)
.Caption = List1.List(List1.ListIndex)
.Visible = True
Me.Move .Left + .Width, .Top + .Height, Me.Width, Me.Height
End With
Me.ZOrder
End Sub

Espero que esto sea lo que buscas o bien que te sirva de orientación...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar