[VB.net 2005] Form Selecionada

[overcloked]

Boas,

Alguem sabe se é possivel saber que form se encontra seleccionada pelo uitilizador?

No meu caso tenho uma Parent Form com a possibilidade de ter varias Child Forms abertas. Precisava de saber qual das Child Forms está selecionada!

Tks  🙂

[NuGuN]

Boas!

Eu de .Net não percebo nada mas sei umpouco de VB6 e em VB6 conheço varias maneiras de o fazer. Uma delas é criares uma variavel Publica e depois em cada ChildForm, podes trabalhar com os eventos GotFocus e LostFocus, dando valores á variavel Publica. O chato deste metodo é que se tiveres muitas forms vais ter de andar a meter o mesmo código em todas  :bored:

Vê este post pode ser que te dê alguma ideia(penso que issu nao funciona para forms dentro de uma MDIForm)

cumps

[overcloked]

Pois dessa maneira funciona, só tem a parte chata como mencionas-te de er de andar a meter o mesmo código em todas 🙂

Mas por exemplo NuGuN sabes aquele menu Window que custuma existir nos programas onde ai tens a lista das forms abertas e podes inclusive selecciona-las por ai, pera deixa tirar um screeshot...

Aqui está: http://img143.imageshack.us/img143/4813/sczi0.jpg

Alguma ideia de como fazer algo deste tipo ?

[NuGuN]

No VB6 existe um utilitário que serve para adicionar esses menus, mas no .NET não sei como se fazem 🙂

cumps

[overcloked]

NuGuN mas tb adiciona logo o codigo para ver que forms estão abertas?

[NuGuN]

Não, faz apenas os menus. Tem é uns wizard que fazem issu tudo automático.

[Asgorath]

Eu uso uma collection com o nome de cada form aberto.

No form_load vou ver ja existe na lista ou nao adicionou o nome do form e no form_unload retiro o nome da lista.

Jorge

[SoulOnFire]

Boas!! 😁

Se o teu objectivo é apenas sabes qual das MDIChilds esta selecionada, não precisas de fazer mais nada a não ser usar a propriedade "ActiveMdiChild" da form MDIParent

A ActiveMdiChild devolve-te uma Form onde consegues aceder a todos os metodos e propriedades da mesma.

:smoke:

[overcloked]

Asgorath se poderes deixa ai um exemplo do codigo de como criar essa colection acho que nunca fiz isso! tks in advance 🙂

SoulOnFire tks também vou precisar disso, desconhecia essa "função". tks

[Asgorath]

Public ListaForms As New Collection         ' lista de todos os forms abertos

Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim f As Form
        Dim encontrei As Boolean

        encontrei = False
        For Each f In ListaForms
            If f.Name = Me.Name Then
                encontrei = True
                Exit For
            End If
        Next
        If Not encontrei Then ListaForms.Add(Me, Me.Name)


End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        '' fecha form
        
        Dim f As Form

        '' retira o form da lista de form
        For Each f In ListaForms
            If f.Name = Me.Name Then
                ListaForms.Remove(Me.Name)
            End If
        Next

        Me.Close()

End Sub

Jorge