Probleme sur Panel [ VB.NET ] !!Résolu

Question

Bonjour, 

Voila je suis d&#233;butant en VB NET j'ai pratiqu&#233; le VB 6.0 et j'ai un petit probl&#232;me avec mon panel que j'ai cr&#233;e dans mon Form1, dans ce panel j'ai mis 4 picturebox. J'ai voulu grouper mes pictures j'ai donc utilis&#233; le panel.
- Donc dans mon Form1 j'ai (au chargement) :
       Dim i
        i = 1
        For Each Module1.Picture In Panel1.Controls
            Module1.Picture.Tag = i
            Module1.PictureSelected(i) = 0                          
            i = i + 1

- "Picture" et "PictureSelected" sont bien d&#233;finies dans mon module1 de la fa&#231;on suivante :

  Public Picture As PictureBox
  Public PictureSelected(4) As Integer
 
- Sur un clique je veux qu'il me remplisse le "PictureSelected(sender.Tag)" de la PictureBox sur laquel j'ai cliqu&#233; (c'est une selection) : 

Private Sub PictureClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _

    PictureBox1.Click, PictureBox2.Click, PictureBox3.Click, PictureBox4.Click

        Module1.PictureSelected(sender.Tag) = 1

    End Sub

- Je voudrai pouvoir utiliser mon panel dans mon form2, donc j'ai d&#233;finie form1 dans mon mudule1 :
Public Form1 As New Form1

- Puis dans mon Form2 je v&#233;rifie toute les PictureBox et je regarde si "PictureSelected(Module1.Picture.Tag)" vaux 1 alors je remplis avec l'image "herbe.jpg" :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      For Each Module1.Picture In module1.Form1.Panel1.Controls
            If (Module1.PictureSelected(Module1.Picture.Tag) = 1) Then
                Module1.Picture.Image = Image.FromFile(Application.StartupPath.ToString & "/images/herbe.jpg")
            End If
      Next
 End Sub

> Je comprend pas ma condition est jamais r&#233;alis&#233; pourtant je selectionne bien une picture de mon form1 ! Pourriez vous m'aider ? Je pensais &#224; un probleme de panel ?
Si je met le code du form2 dans mon form1 &#231;a marche bien ! La je comprend plus ! Help me please!

Merci  

N-BISS

Utilisateur anonyme · Accepted Answer

Bonjour,



Voil&#224;, ton code corriger.

Le probl&#232;me &#233;tait que dans ton module, tu initialisait une nouvelle form1 alors qu'il fallait lui attribuer la form1 en cours.





Option Explicit On

Option Strict On



Public Module Module1

  Public Picture As PictureBox

  Public PictureSelected(4) As Integer

  Public Form1 As Form1

End Module



Public Class Form1



  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Form2.Show()

    Module1.Form1 = Me

    Dim i As Integer = 1

    For Each Module1.Picture In Panel1.Controls

      Module1.Picture.Tag = i

      Module1.PictureSelected(i) = 0

      i += 1

    Next

  End Sub



  Private Sub PictureClick(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles PictureBox1.Click, PictureBox2.Click,
PictureBox3.Click, PictureBox4.Click

    Module1.PictureSelected(CInt(CType(sender, System.Windows.Forms.PictureBox).Tag)) = 1

  End Sub



End Class







Public Class Form2



  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    For Each Module1.Picture In Module1.Form1.Panel1.Controls

      If (Module1.PictureSelected(Module1.Picture.Tag) = 1) Then

        Module1.Picture.Image =
Image.FromFile(Application.StartupPath.ToString & "/images/herbe.jpg")

      End If

    Next

 End Sub



End Class







Mainteant, juste comme ca, j'ai obtimis&#233;. Ca te seras peut-&#234;tre inutile suivant la suite de ton code.



Option Explicit On

Option Strict On



Public Module Module1

  Public SelectPicture As System.Windows.Forms.PictureBox

End Module



Public Class Form1

  Private Sub PictureClick(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles PictureBox1.Click, PictureBox2.Click,
PictureBox3.Click, PictureBox4.Click

    SelectPicture = CType(sender, System.Windows.Forms.PictureBox)

  End Sub

End Class







Public Class Form2

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    If Not SelectPicture Is Nothing Then

      SelectPicture.Image = Image.FromFile(Application.StartupPath.ToString & "/images/herbe.jpg")

    End If

  End Sub

End Class





Kenji
<hr size="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

Nbiss · Answer

Merci beaucoup ! 
Ta modification marche nikel, ainsi que la petite optimisation 

Merci d'avoir prit un peu de ton temps pour moi  c'est sympa!

N-BISS

Probleme sur Panel [ VB.NET ] !!

2 réponses

Discussions similaires