Discussion :

[IL-MAFIOSO]

Bonjour à tous,

Je crée ce nouveau Topic pour avoir de l'assistance. Ce n'est pas un problème, un bug mais de l'aide pour un code.

J'ai crée un Monthcalendar dans un Form qui s'appelle Formcalendrier. J'ai ajouté deux bouton : "valider" et "aucune date".

Sur le Form2, j'ai mis une image (choixdate) qui active le Formcalendrier. Une fois la date choisie, cela alimente un Textbox "date2.text".

Sur le Form3, idem avec date3.text
Sur le Form4, idem avec date4.text

Seulement je ne veux pas créer un Formcalendrier pour chaque Form (1,2,3) mais pouvoir utiliser le même mais que mon Formcalendrier puisse retourner la date dans la bonne textbox du form qui l'a appelé.

Si vous auriez un bout de code qui permettrait de faire cela, ce serait génial.
Merci pour votre future aide.

[rv26t]

Bonjour,

Voici un exemple avec un TextBox, tu pourras utiliser le même principe avec ton MonthCalendar

La fenêtre contenant le texte à récupérer (2 boutons , un textbox)
Dans le code on définit une propriété en public. Elle recevra le résultat du choix de l'utilisateur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Class frmTexte
 
    Private mTexte As String
 
    Public Property Texte() As String
        Get
            Return mTexte
        End Get
        Private Set(ByVal Value As String)
            mTexte = Value
        End Set
    End Property
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        mTexte = txtTexte.Text
        Close()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        mTexte = Nothing
        Close()
    End Sub
 
End Class

l'utilisation pour récupérer le texte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
        Dim TexteResult As String
        Dim fenTexte As New frmTexte
        fenTexte.ShowDialog()
        TexteResult = fenTexte.Texte
        MsgBox(TexteResult)

Voila le principe.

A+, Hervé.