none
Comment lier le déplacement des fiches lors du déplacement de la fiche propriétaire ? RRS feed

  • Discussion générale

  •  

    Bonjour à tous, j'ai un soucis novicéral:

     

    Dans une application SDI :

    Certaines fiches ont leur propriété Owner pointée sur la fiche principale.

    La propriété Location dépend de la position d'un ToolStripButton situé sur la fiche principale.

     

    Le déplacement de la fiche principale implique simultanément celui des fiches concernées.

     

    J'aimerai rattacher la procédure liée au message de chaque fiche, à celle de la fiche principale depuis le gestionnaire d'événement Load de chaque fiche par le biais d'une propriété rajouté référençant le ToolStripButton.

     

    Lors de l'affichage d'une fiche (non modale) l'accès à la fiche principale ne doit pas cacher les fiches concernées

     

    Code commun aux fiches dépendantes:

    Imports System

    Imports System.Globalization

    Public Class FormHelloWorld

    Public ToolStripButtonRunner As ToolStripButton ' ... depuis le gestionnaire du button rattaché à Owner

    Private Sub FormHelloWorld_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Try

    'associe cette fiche à la fiche appelante contenant le ToolStripButton qui utilise cette fiche

    Me.Owner = ToolStripButtonRunner.Owner.FindForm()

    'défini l'ancrage de la fiche par rapport à ToolStripButtonRunner

    Me.Location = Me.Owner.PointToScreen(New Point(ToolStripButtonRunner.Bounds.Left, ToolStripButtonRunner.Bounds.Bottom))

    Me.Owner.FindForm()

    'rattachement du gestionnaire de message lié au repositionnement de cette fiche lors du déplacement de la fiche propriétaire

    '???

    Catch

    MsgBox("le membre ""ToolStripButtonRunner"" doit référencer un ToolStreepButton de la fiche appelante", MsgBoxStyle.Exclamation, "Réf attendue pour " & Me.Name)

    Close()

    End Try

    End Sub

    End Class

     

    Code lié au click d'un ToolStripButton de la fiche principale

    Public Class Form1

    Private Sub ToolStripButton_Bienvenue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton_Bienvenue.Click

    FormHelloWorld.ToolStripButtonRunner = ToolStripButton_Bienvenue

    FormHelloWorld.Show()

    End Sub

    End Class

     

    Merci

    lundi 4 février 2008 09:14