Discussion :

[stracoma]

bonjour à tous. J'ai besoin de votre aide. J'étale mon problème:
J'ai crée:
1- Projet nommé "Multiplication":


son code:

Code :

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

1
2
3
4
5
6
7
8
9
Public Class Form_Multiplication
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text) Then
            Me.LBL_Resultat.Text = TextBox1.Text * TextBox2.Text
        End If
    End Sub
 
End Class

2- Projet nommé "Division":



son code:

Code :

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

1
2
3
4
5
6
7
8
Public Class Form_Division
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text) Then
            Me.LBL_Resultat.Text = TextBox1.Text / TextBox2.Text
        End If
    End Sub
End Class

3- Projet nommé "Calcul":



son code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Class Form_Mere
 
    Private Sub BT_Multiplication_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Multiplication.Click
        Dim f As New Form_Multiplication
        f.Show()
 
    End Sub
 
    Private Sub BT_Division_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Division.Click
        Dim f As New Form_Division
        f.Show()
    End Sub
End Class

Jusque ici tout va bien. J'ai crée un autre projet nommé "PELE":



son code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Class Form_Pele
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If RB_Allmagne.Checked Then
            Me.Panel1.BackgroundImage = PELE.My.Resources.Ozil
        ElseIf RB_Argentine.Checked Then
            Me.Panel1.BackgroundImage = PELE.My.Resources.messi
        Else
            Me.Panel1.BackgroundImage = PELE.My.Resources.pele
 
        End If
    End Sub
End Class

tout va bien jusqu'ici, exemple:


Le problème c'est quand je veux intégrer le projet "PELE" au projet "Calcul". J'ai ajouté un bouton "BT_PELE" (en plus de "Division et "Multiplication déja intégrés"), ça ne marche pas avec le code suivant:

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
Public Class Form_Mere
 
    Private Sub BT_Multiplication_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Multiplication.Click
        Dim f As New Form_Multiplication
        f.Show()
 
    End Sub
 
    Private Sub BT_Division_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Division.Click
        Dim f As New Form_Division
        f.Show()
    End Sub
 
    Private Sub BT_PELE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_PELE.Click
        Dim f As New Form_Pele
        f.Show()
 
    End Sub
End Class

Voilà le message du compilateur:


Merci à vous

[rv26t]

Bonjour,

il faut ajouter une référence dans le projet "Calcul"
Dans l'explorateur de solution, "afficher tous les fichiers"
Dans le projet "Calcul" clic droit sur "Références" => "Ajouter une référence"
Dans l'onglet "Projets" sélectionner le projet ("PELE") et valider "Ok"

[stracoma]

Merci pour la réponse.
J'ai suivi les instructions, et je crois que le compilateur trouve une erreur plus bas dans le code:



pourtant les photos existent dans les deux projets:





mon explorateur



Merci

[stracoma]

J'ai enfin trouvé la solution. Dans ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Class Form_Pele
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If RB_Allmagne.Checked Then
            Me.Panel1.BackgroundImage = PELE.My.Resources.Ozil
        ElseIf RB_Argentine.Checked Then
            Me.Panel1.BackgroundImage = PELE.My.Resources.messi
        Else
            Me.Panel1.BackgroundImage = PELE.My.Resources.pele
 
        End If
    End Sub
End Class

il fallait changer le chemin des images comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Class Form_Pele
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If RB_Allmagne.Checked Then
            Me.Panel1.BackgroundImage = WindowsApplication1.My.Resources.Resources.Ozil
        ElseIf RB_Argentine.Checked Then
            Me.Panel1.BackgroundImage = WindowsApplication1.My.Resources.Resources.messi
        Else
            Me.Panel1.BackgroundImage = WindowsApplication1.My.Resources.Resources.pele
 
        End If
    End Sub
End Class

Car la racine n'est plus le projet "PELE" mais c'est "WindowsApplication1"
Merci à tous les participants de ce formidable forum