Discussion :

[rocketter]

Bonjour à tous,

je développe actuellement un programme permettant de tracer l'administration de stupéfiant dans un service de soins (je travaille dans un CH). Dans mon programme l'utilisateur a la possibilité d'ajouter plusieurs lignes via le bouton "+" ; les lignes s'ajoutent les unes en dessous des autres selon un intervalle régulier, sauf ... lorsque l'on touche au scroll vertical :



Les 5 premières lignes sont ok, sauf les deux dernières, où j'ai touché au scroll vertical.

Par contre lorsque la propriété AutoScroll est à false, je n'ai pas ce souci, tout s'ajoute de façon correct mais cela ne me convient pas, il n'y a qu'avec un scroll que j'ai la garantie que l'utilisateur pourra consulter toutes ses données, indépendamment de la taille de son écran.

Savez-vous comment je pourrais résoudre ce problème ?

Merci d'avance de vos réponses.

[wallace1]

Bonsoir,

Difficile de cibler le problème alors qu'on ne sait pas comment tu gères cet ajout de lignes........

Visiblement il y a un Timer qui tourne derrière tout ça ....... et les valeurs de positionnement de tes contrôles (.Location) ne sont pas correctement mises à jour lorsque tu Scroll.....

Brefff ... on veut du code .... du code .... du code ..... pour comprendre et t'aider

[Phil Rob]

Bonsoir Wallace,

Oui mais ce n'est pas un UserControl qu'on dépose sur le Form depuis le projet ce sont des UserControl instanciés dynamiquement (dans le programme en cours d'exécution) dès qu'on appuie sur le bouton (Ajouter Ligne).

Oui et c'est bien ainsi que je vois les choses ..., mais cela fait sans doute beaucoup de "nouveautés" à mettre en œuvre en même temps pour notre ami Rocketter ...

Bonne soirée Wallace,

[wallace1]

Bonsoir Wallace,
Oui et c'est bien ainsi que je vois les choses ...,

Désolé je croyais qu'on était pas sur la même longueur d'onde...

mais cela fait sans doute beaucoup de "nouveautés" à mettre en œuvre en même temps pour notre ami Rocketter ...

Effectivement, avec un peu de recul je comprends.


Bonne continuation Rocketter.

[MABROUKI]

bonjour

le seul moyen de résoudre ce problème c'est :
1/ mettre tes controls de saisie dans un Panel que tu ajoutera à ton Form

2/ de rajouter ce code à ton Form :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 Public Sub New()
 
        ' Cet appel est requis par le concepteur.
        InitializeComponent()
 
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        Me.Panel2.AutoSize = True
        Me.Panel2.AutoScroll = False
        Me.AutoScroll = True
    End Sub

ton Form aura alors pour fonction de "scroller" ...

bon code.....

[rocketter]

Mon pb à l'origine de ce topic est résolu en fait, j'ai suivi la solution de Phil Rob qui correspond tout à fait à ma problématique. Utiliser un UserControl m'aurait fait économiser des lignes de code ... à condition de connaitre cet outil, ce qui n'était pas mon cas jusqu'alors.
Par contre j'étais reparti sur une autre question, ici : https://www.developpez.net/forums/d1.../#post10923204

Mais bon j'aurais têt du créer un autre topic dédié. Je vais mettre celui-ci en résolu, et merci de votre aide en tout cas.

[Phil Rob]

Bonsoir,

Une piste ...

Avec un Form, ou un Panel, les ajouts conservent leur régularité si AutoScroll est désactivé juste avant l'ajout et réactivé juste après.

Exemple :

Code :

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

1
2
3
4
5
6
        Me.AutoScroll = False  ' désactiver
        ' les codes d'ajouts d'objets 
        ' ...
        ' Me.Controls.Add(LeNouvelObjet)
        ' ...
        Me.AutoScroll = True  ' réactiver

Bonne nuit

[rocketter]

Voici un exemple de code pour un des contrôle figurant sur une ligne, non il n'y a pas de timer sinon.

La première ligne s'affiche au lancement du programme, le user saisit ses données, il clique sur +, une nouvelle ligne apparait à la coordonnée y 173, ensuite à chaque clic sur "+", les lignes apparaissent à y + 43 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
y = 173
 
  'Création du contrôle TextBox qui contiendra le stock restant du médicament
            TxtStock = New System.Windows.Forms.TextBox
            Me.Controls.Add(TxtStock)
            With TxtStock
                .Location = New System.Drawing.Point(1036, y)
                .Size = New Size(83, 20)
                .Name = "Txt_Stock" & (indice)
            End With
 
y = y + 43

Pas bête ton idée Phil Rob, je vais tester ça et vous dirais.

[wallace1]

Bonjour,

Bon effectivement je croyais que ceci correspondait à un Timer :

Code :

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

1
2
 
selon un intervalle régulier

Breff maintenant que je comprends ton projet tu dois bien te faire chi** à calculer le positionnement de tes contrôles ....... et tout le tutti.... pourquoi n'as-tu pas créer un UserControl et un contrôle de type FlowLayoutPanel la gestion en serait d'autant plus simple. Regardes un exemple en pj :

ChProject.zip

PS : exemple à optimiser bien entendu .....

A+ et bon codage

[rocketter]

j'avoue oui, je me suis mal exprimé

pourquoi n'as-tu pas créer un UserControl et un contrôle de type FlowLayoutPanel

tout simplement parce que je ne connais pas mais merci de l'info je vais regarder ça

[wallace1]

Bonjour,

Voici l'exemple du projet chProject agrémenté pour que tu puisses aborder les notions de l’événementiel :



ChProject2.zip

Enjoy....

[rocketter]

Salut Wallace,

j'ai pris le code de Phil pour solutionner mon pb, mais ton approche est intéressante. Par contre tu fais appel à des notions que je découvre complètement, ça à l'air plus puissant et moins artisanal que ce que j'utilise, il faut que je creuse le sujet et me documente sur le FlowLayoutPanel.
Dans ton code la classe UserComponents est une classe qui s'est définit de façon auto ou c'est toi qui l'a créé ?

[Phil Rob]

Bonjour à tous,

Après avoir suggéré une solution au début de cette discussion, je ne l'ai plus vraiment suive ...
J'ai juste vu la proposition d'utiliser un UserControl.
C'est une bonne idée pour simplifier le calcul des positions des composants : cela permet de ne calculer qu'une position, celle du UserForm. Les composants qu'il contient suivent automatiquement.
Mais le UserControl n'ôtera pas le problème initial (irrégularité dans la dispositions des composants sur le Form une fois le Scroll actif). Je ne crois pas non plus au TableLayoutPanel pour résoudre ce problème, quand le Scroll va s'activer, il y aura aussi des irrégularités.

Franchement, ça vaut la peine de créer un UserControl, ce n'est finalement qu'un "Form" qui est instancié à la demande, autant de fois que souhaité, et placé là où on veut.
Dans ton cas, il suffit probablement de lui désigner sa position Top, c'est-à-dire le Top dans le ClientSize du Form, auquel est ajouté la valeur Height du UserForm, multipliés par le nombre de UserForm déjà instanciés (cela donne 0 * Height pour le 1er, 1 * Height pour le 2ème, ...).

Et bien sûr, désactiver l'AutoScroll avant l’instanciation et le réactiver ensuite.

J'espère vous avoir apporté matière à réflexion ...

[wallace1]

Bonsoir Phil,

Mais le UserControl n'ôtera pas le problème initial (irrégularité dans la dispositions des composants sur le Form une fois le Scroll actif). Je ne crois pas non plus au TableLayoutPanel pour résoudre ce problème, quand le Scroll va s'activer, il y aura aussi des irrégularités.

Il n'y a aucun problème lorsqu'on navigue avec la scrollbar du TableLayoutPanel..... les userControl sont instanciés puis placés à la collection de contrôles dans le TableLayoutPanel ainsi on ne se soucis pas de leur positionnement et surtout ils ne perdent absolument pas leur propriétés .Location. (regardes le projet exemple que j'ai proposé tu comprendras mieux )
Mais de toute façon OP n'a pas opté pour la ré-utilisabilité du UserControl et de fait il a certainement mis en place ta solution visant à désactiver ponctuellement le scroll, pour ça que je disais tanpis. Et aussi parce que dans ce cas précis la création d'un UserControl prends tout son sens..... car ça évite de devoir s'encombrer de valeurs de positionnement de contrôles et surtout ça évite de devoir mettre en place des routines de recherche de contrôles comme ce qu'à énoncé OP qq messages plus haut....

Franchement, ça vaut la peine de créer un UserControl, ce n'est finalement qu'un "Form" qui est instancié à la demande, autant de fois que souhaité, et placé là où on veut.

Oui mais ce n'est pas un UserControl qu'on dépose sur le Form depuis le projet ce sont des UserControl instanciés dynamiquement (dans le programme en cours d'exécution) dès qu'on appuie sur le bouton (Ajouter Ligne).

Cdlt ami Phil.