none
Rectangle RRS feed

  • Question

  • bonsoir a tous et merci pour votre aide

    je travail sur visual studio 20115 en Basic avec Windows 10 Pro

    j’ai placer plusieurs rectangles sur panel1 (RectangleShape1 RectangleShape2 etc..)

    sur un clic sur bouton1 j'aimerais agir sur ses rectangles librement

    cela doit être simple pour vous pas pour moi

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim Xrectangle As Integer
            Xrectangle = 3
            'réagire sur le rectangle N° 3
            'RectangleShape(3).visible =false s'est la ou sa ne marche pas
    
        End Sub

    merci d'avance

      

    mercredi 15 janvier 2020 17:56

Réponses

  • Bonsoir a tous

    je joint se que j'ai fait pour me sortir de ma galère

    Ce n’est pas très bien mai sa me va pour l’instant et croie-moi que cela m’a été difficile de trouver une solution

    Si vous avez mieux faite le moi savoir

    Je vous explique le pour quoi de ma demande

    J’ai chercher des solution mai rien, après des essai je me suis aperçu

    Ajout d’objet rectangle, ligne, ou ellipse,  placé par code (ajout control Add)

    Les rectangles ou autre quand on les déplace avec la souris l’objet gomme les objets précédent

    Et sa ne le fait pas si je les place sur le panel par placement des objets conventionnel (rectangle ligne ou ellipse)

    Voila

    Et sa marche tés bien comme cela

    Si une personne veut le code complet des déplacements d’objets rectangle ou autre je  le poserait avec plaisir sur le cite

    Entre autre je n’ai eu aucune  réponse de personne misères !

    j'ai déclarer mes objets dans un sub

    Public Nb_Ligne As Integer = -1    Public Ligne(50) As Microsoft.VisualBasic.PowerPacks.LineShape    '----------- rectangle -------------    Public Nb_Rect As Integer = -1    Public Rectangle(25) As Microsoft.VisualBasic.PowerPacks.RectangleShape   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.LoadLigne(0) = Ligne0Ligne(1) = Ligne1Rectangle(0) = Rectangle0Rectangle(1) = Rectangle1 End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click'sur un clic voulu        Rectangle(0).Visible=true    End Sub

    mardi 21 janvier 2020 22:00

Toutes les réponses

  • Bonjour Orleandeux,

    J'ai remarqué que vous avez posé votre question dans un autre forum et que vous avez obtenu une réponse pertinente.
    Mersi de partager avec la communauté MSDN si la solution proposée a résolu votre problème.

    Je vous remercie par avance pour votre retour.

    Cordialement,
    Nedeltcho


    Votez! Appel à la contribution TechNet Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.


    jeudi 16 janvier 2020 10:57
    Modérateur
  • Bonsoir a tous

    je joint se que j'ai fait pour me sortir de ma galère

    Ce n’est pas très bien mai sa me va pour l’instant et croie-moi que cela m’a été difficile de trouver une solution

    Si vous avez mieux faite le moi savoir

    Je vous explique le pour quoi de ma demande

    J’ai chercher des solution mai rien, après des essai je me suis aperçu

    Ajout d’objet rectangle, ligne, ou ellipse,  placé par code (ajout control Add)

    Les rectangles ou autre quand on les déplace avec la souris l’objet gomme les objets précédent

    Et sa ne le fait pas si je les place sur le panel par placement des objets conventionnel (rectangle ligne ou ellipse)

    Voila

    Et sa marche tés bien comme cela

    Si une personne veut le code complet des déplacements d’objets rectangle ou autre je  le poserait avec plaisir sur le cite

    Entre autre je n’ai eu aucune  réponse de personne misères !

    j'ai déclarer mes objets dans un sub

    Public Nb_Ligne As Integer = -1    Public Ligne(50) As Microsoft.VisualBasic.PowerPacks.LineShape    '----------- rectangle -------------    Public Nb_Rect As Integer = -1    Public Rectangle(25) As Microsoft.VisualBasic.PowerPacks.RectangleShape   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.LoadLigne(0) = Ligne0Ligne(1) = Ligne1Rectangle(0) = Rectangle0Rectangle(1) = Rectangle1 End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click'sur un clic voulu        Rectangle(0).Visible=true    End Sub

    mardi 21 janvier 2020 22:00