Mmm Haciendo un analisis de mi Ultima pregunta ...
Voy a juntar todo para ver si queda algo un poco mas claro ..
-------------------------------------------
Yo estoy usando el siguiente codigo que puso Krnl64.. para poder abrir una ventana privada para los usuarios de mi Chat...
Dim x() As Form2
Dim z As Integer ' declaro la variable z como numero entero
If Form1.List1.ListCount <> "-1" Then
z = Form1.List1.ListIndex ' nº de ventanas a crear
ReDim Preserve X(Form1.List1.ListCount)
z = Form1.List1.ListIndex
Set X(z) = New Form2
X(z).Show
X(z).Caption = Form1.List1
End If
Bueno lo que quiero esque solo se pueda abrir un privado por usuario que este en la lista ... (list1)...
Y encontre el siguiente codigo, que es un Public.. pero no se como se usa ...
Public Function IsLoadForm(ByVal FormCaption As String, Optional Active As Variant) As Boolean
Dim rtn As Integer, i As Integer
rtn = False
Name = LCase(FormCaption)
Do Until i > Forms.Count - 1 Or rtn
If LCase(Forms(i).Caption) = FormCaption Then rtn = True
i = i + 1
Loop
If rtn Then
If Not IsMissing(Active) Then
If Active Then
Forms(i - 1).WindowState = vbNormal
End If
End If
End If
IsLoadForm = rtn
End Function
Se supone que es para reconocer si una ventana esta activa osea un Form .. el otro dilema que entro es que cuando se crean las ventanas no son de nombre Form.. sino x(el numero de la lista de usuario) eso es lo que no se si se cambia o que se hace para poder detectar una ventana X
espero que alguien me pueda resolver esta duda .... Gracias...
Una cosa mas ... cuando le inserto al primero de los codigo un If antes del Set me dice que no se puede porque se hace una interferencia con el Set...? Hay alguna manera de hacer ordenes como las del If pero sin usar el If .? .. o reemplazar ese Set por otra cosa... que no me tire problemas ¡?
Mostrar Mensajes
Aque va ese codigo?...