pb winform

Question

Salut, comment puis je gerer plusieurs winform 
Je m'explique, j'ai une winform principale et qd je clique sur un bouton, j'ouvre une winform ou je dois ecrire des données.
Le probleme est que quand j'ouvre la 2ème, je revient direct dans la première et si je met une boucle infini, je ne peux plus rien fiare .
help me !!!
voici mon code:

form 1:
  Private Function afficher_interface_modifier()
        Dim form_id As form_identifiant = New form_identifiant

        form_id.Show()
        form_id.Activate()

        Dim tmp As String
        tmp = form_id.retourne_id()
        System.Windows.Forms.MessageBox.Show(tmp)

    End Function

Form 2:celle ou j'ecrit des donnees
  Private Sub btn_entre_id_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_entre_id_ok.Click
        Dispose()
        test_fin = -1
    End Sub

    Private Sub btn_entre_id_annuler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_entre_id_annuler.Click
        Dispose()
        test_fin = -1
    End Sub

    Public Function fin_id()
        Return (test_fin)
    End Function

    Public Function retourne_id()
        Return txtb_id_entre.Text
    End Function
   

    Private Sub form_identifiant_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

cs_RedDog · Answer

Bonjour,

Je me suis dévelloppé une fonction que j'ai nommé _FindForm (similaire à la méthode FindForm() >> Extrait le formulaire sur le lequel se trouve le contrôle.) qui me permet de savoir quelle est la dernière fenêtre du type voulu qui a été ouverte dans un environnement MDI, j'ai trois type de fenêtre différentes qui interagissent entre elles, bref.

Je sais pas si ça résoudra ton problème, mais sinon tu pourras peut être t'en inspiré:

Code en VB.Net

Public Function _FindForm(ByVal Rech As String) As Integer
Dim strRech As String = Rech
Dim frm As Form
Dim int, int1 As Integer
int1 = 0
' On cherche à trouver s'il y a un Formulaire enfant et prendre le dernier ouvert
For Each frm In MdiChildren
        If frm.Name = strRech Then
                 int = int1
        End If
        int1 = int1 + 1
        'Console.WriteLine("MdiChildren: " & frm.Name)
Next
Return int
End Function


Que j'appelle comme ça:


Dim X As FormY = CType(MdiChildren.GetValue(_FindForm("FormY")), FormY)


Regarde aussi la méthode du .Net Framework FindForm() >> Extrait le formulaire sur le lequel se trouve le contrôle, elle est très intéressante.

Renfield · Answer

Juste une remarque au niveau de ton code :


Public Function _FindForm(ByVal Rech As String) As Integer
Dim strRech As String = Rech
Dim frm As Form
Dim int, int1 As Integer
int1 = 0
' On cherche à trouver s'il y a un Formulaire enfant et prendre le dernier ouvert
For Each frm In MdiChildren
    If frm.Name = strRech Then
       Return int1    '"# Pas besoin de lister les forms suivantes !
    End If
int1 = int1 + 1
'Console.WriteLine("MdiChildren: " & frm.Name)
Next
Return -1
End Function

cs_papy27 · Answer

Merci mais mon probleme est surtout de prendre la main et de la garder sur la forme qui s'ouvre.
En effet, j'arrive à l'ouvrir, l'afficher, ,la fermer mais pas à garder la mian dessus pour pouvoir ecrire, cliquer...
merci encore pour l'aide que vous apportez à tous les debutants et aux aurtes.

Pb winform

3 réponses

Discussions similaires