Problème pour créer un InputBox perso (problème illustré)Résolu

Question

Je débute dans l'Overload, le WithEvents, le Handler.

La fenêtre:


Le problème:
La fonction Show ne veut pas attendre l'évènement FormClosed avant de renvoyer ma Property ReturnValue !?

Le test grâce à l'overload de Show:
Dim ibUser As String =  Nothing
ibUser = InputBox10.Show("Login", "Entrez votre nom d'utilisateur ci-dessous:").ToUpper

 Ma question: 
Je ne voie pas comment charger ma page avec Show et attendre un retour ?

Le code:

Public Class InputBox10
    Property ReturnValue As String  = ""

    Overloads Shared Function Show(ByVal TitleEx As String, ByVal MessageEx As String, Optional ByVal DefaultValueEx As String = "") As String
        With InputBox10
            .txtValeur.Text = DefaultValueEx
            .labMessage.Text = MessageEx
            .Text = TitleEx
        End With
        AddHandler Form.ActiveForm.FormClosed, AddressOf FormClosed
        Return InputBox10.ReturnValue
    End Function

    Shared Shadows Sub FormClosed()
        InputBox10.Close()
    End Sub

    Private Sub InputBox10_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Application.DoEvents()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If txtValeur.TextLength = 0 Then
            Me.ReturnValue = Nothing
        Else
            Me.ReturnValue = txtValeur.Text
        End If
        OnFormClosed(e)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.ReturnValue = Nothing
        OnFormClosed(e)
    End Sub
End Class

PCPT · Accepted Answer

salut,

normal ta form n'est pas MODAL

voir showdialog

ps : pourquoi ne pas passer par le formclosed natif?

++
[hr]

Duke49 · Answer

Je prépare une source pour partager une base Inputbox VB10 et je post le lien ici.

Merci pour l'indice "ShowDialog" PCPT ^^

Duke49 · Answer

Source téléchargeable:

http://www.vbfrance.com/codes/VB10-INPUTBOX-PERSONNALISABLE-VOS-PROJETS_52733.aspx

Problème pour créer un InputBox perso (problème illustré)

3 réponses

Votre réponse

Discussions similaires