AJUDA COM X AS NEW FORM

USUARIO.EXCLUIDOS 26/08/2007 23:33:50
#232748
Seguinte, eu tenho o comando
Dim x As New Form1
x.show

ele adiciona um form certo?
mais eu gostaria de manipular so form por form,
expecificando melhor,
to fazendo um chat, nesse chat, eu keria q abrisse um form para cada contato separado
mais se ja tiver o form aberto, ele nao fazer nada.
entendem??
essa eh minha duvida,
como fazer para se o form com o caption FULANO ja estiver aberta, ele nao reabrir.
alguem pode fazer um exemplo ou me ajudar nessa duvida??
se puder me adicionar no msn ou mandar um email, ficarei mt agradescido!

Obrigado!
msn: skpzim@hotmail.com
USUARIO.EXCLUIDOS 27/08/2007 00:19:54
#232749
huahuahu sei lah kra

if formtal.visible = true then
exit sub
else
formtal.show

num sei se dah certo mais

falo
USUARIO.EXCLUIDOS 27/08/2007 07:45:18
#232753
If App.PrevInstance = True Then
msgbox "Chat ja Aberto"
End
else
form.show
endif
USUARIO.EXCLUIDOS 27/08/2007 09:28:37
#232773
Amigo...
Vc pode fazer com o For each


tente assim:
    For Each Form In Forms
        If Form.Caption = "Fulano" Then
            Form.Show
            Exit For
        End If
    Next
USUARIO.EXCLUIDOS 27/08/2007 18:06:47
#232974
ainda nao consegui


ex citado cima


Private Sub Command1_Click()
Dim x As New Form1
    For Each Form1 In Forms
        If x.Caption <> Text1.Text Then
            x.Caption = Text1.Text
            x.Show
            Exit For
        End If
    Next
End Sub



seria isso
Tópico encerrado , respostas não são mais permitidas
Voltar