[DUVIDA] ABRIR VARIAS FORMS

FROSTYNHO 18/05/2011 05:25:32
#374230
Primeira vez que estou tentando abrir varias forms em meu projeto, e é um seguinte...

Estou criando um Editor de Script para um programa específico, e pro cara poder editar varios scripts de uma vez, fiz um Form chamado: EditorForm que é onde fica um RichTextBox.
Aí que vem minha duvida, toda hora que o cara abre um Script ele abre um novo EditorForm assim:
        Dim Scripter As New EditorForm
        Scripter.MdiParent = Me
        Scripter.Show()

Como podem ver, estou usando um FormMDI.

A duvida vem agora... Como identificar os forms abertos?
não tenho a minima ideia de como fazer pra identificar os forms pra mim fazer a rotina pra salvar os scripts editados
alguem pode me ajudar?
PEGUDO 18/05/2011 08:05:47
#374233 Resposta escolhida
Este é o código que identifica os forms abertos, acho q a prtir daí você vai conseguir fazer sua rotina.

[txt-color=#0000f0]For Each [/txt-color]Form [txt-color=#0000f0]As[/txt-color] Form In My.Application.OpenForms
MsgBox(Form.Name)
[txt-color=#0000f0]Next[/txt-color]
FROSTYNHO 18/05/2011 09:31:35
#374241
da uma olhada nesse exemplo que eu fiz... ele abre as janelas e coloca o nome delas na listbox, e quando vc seleciona ele traz a janela pra frente, mais oque eu nao consigo eh identificar qual fechou pra remover do listbox, e tbm qual ta com o focus pra mim selecionar na listbox
PEGUDO 18/05/2011 11:44:39
#374252
Cara, depois de bater cabeça acho que consegui.
Baixa ae e dê uma olhada pra ver se te serve.

1º Coloquei um Timer pra verificar os Forms
2º No Clique do botão eu coloquei o Timer.Enabled:

    Dim NovoForm As New Form2
    NovoForm.MdiParent = Me
    NovoForm.Name = [Ô]Form[Ô] & Numero
    NovoForm.Text = [Ô]Form[Ô] & Numero
    NovoForm.Show()
    Timer1.Enabled = False
    ListBox1.Items.Add(NovoForm.Name)
    Numero += 1
    Timer1.Enabled = True
FROSTYNHO 18/05/2011 13:26:26
#374270
cara é isso mesmo!!!
deixa eu te perguntar mais uma coisa...
tipo no meu caso, as form que eu abro dentro do mdi sao os editores de texto, e como consigo pegar os texto de cada uma ja que nao posso fazer ex: Form4.RichTextBox1............
ou o esquema eh fazer uma public function sei la e chamar pra salvar?
PEGUDO 19/05/2011 09:36:42
#374366
Cara, taí o código que você queria.
é só baixa e testar esta nova versão.

Lembre-se que eu fiz o programa ler uma linha só.
Crie um For...Next aí e faça-o ler mais linhas se existirem

Espero ter ajudado.
FROSTYNHO 19/05/2011 13:52:06
#374406
é esse Me.ActiveMdiChild que tava faltando ^^ PEGUDOOOO vlw mesmo cara não sei como agradecer... vlw mesmo!!!
Tópico encerrado , respostas não são mais permitidas
Voltar