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,

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éé ?

[wallace1]

Bonjour,

...... UserComponents est une classe qui s'est définit de façon auto ou c'est toi qui l'a créé ?

C'est moi qui l'ai créée en la faisant hériter de la classe UserControl. Tu as 2 possibilités pour créer un UserControl :

- Soit tu ajoutes un nouvel élément et tu sélectionnes "Contrôle Utilisateur" :





- soit tu ajoutes un nouvel élément et tu sélectionnes "Classe" et tu remplies le code ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
 
Public Class UserComponents
    Inherits UserControl
 
    Public Sub New
        InitlializeComponent()
    End Sub
 
End Class

---> Ensuite tu ouvres cette classe (UserComponents) en mode Design et tu positionnes tes contrôles (TextBox, NumerciUpDown, Button, ...etc...) dessus :



En revanche, un UserControl est un contrôle que tu personnalises toi-même, il est réutilisable et il permet ainsi d'éviter de multiplier les mêmes bouts de code dans ton projet.
Le FlowLayoutControl est un simple contrôle de type Container grâce auquel tu vas pouvoir ajouter n'importe quel autre contrôle ou composant dedans. Ainsi tu vas pouvoir retrouver aisément tes composants et surtout les agencer comme bon te semble.

++

[rocketter]

Merci de l'info c'est un peu plus clair, va falloir que j'expérimente maintenant

[rocketter]

Est-il possible que le FlowLayoutPanel reste visible malgré un scroll vertical sur ma form, parent du FlowLayoutPanel ?

[wallace1]

Est-il possible que le FlowLayoutPanel reste visible malgré un scroll vertical sur ma form, parent du FlowLayoutPanel ?

Envoi un exemple de projet que je puisse comprendre l'agencement de tes controles.... parce que là j'ai du mal à visualiser

++

[rocketter]

Malheureusement je n'ai pas trop le temps de bricoler un exemple pour le moment, mais avec des captures d'écran tu devrais comprendre :

En fait j'aimerais que la partie entourée de rouge ci dessous :


continue de rester visible, même lorsque mon scroll vertical atteint le bas de la form, ce qui n'est pas le cas actuellement :


Je vois qu'il y a bien la solution du splicontainer, mais la majorité de mes contrôles sont créés dynamiquement, cela m'obligerait donc à réécrire une bonne partie de mon code, et je ne souhaite pas cela.
Donc voilà je ne sais pas s'il y a une solution à mon problème.

Merci à toi en tout cas de continuer de suivre mon topic :-)

[wallace1]

Bonjour,

Il faut que tu utilises un contrôle "SplitContainer". Tu le paramètres de manière à avoir 2 Panel (Panel1 et Panel2) avec une division sur l'axe horizontal.

Tu places ton TableLayoutPanel sur le Panel2 et les autres contrôles de saisie sur le Panel1.

Voilà le scroll est dédié uniquement à ton TLP.

++

[rocketter]

Oui mais comme j'ai dit, le splitcontainer ne me convient pas car mes contrôles sont créées dynamiquement, en gros pour un textbox actuellement dans mon programme, accessible ainsi :

Code :

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

Me.controls("txt_patient")

si ce textbox est contenu dans un splitcontainer, laissé le code ci-dessus entrainera une erreur, pour l'atteindre il faudra écrire à la place qqch du genre :

Code :

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

1
2
3
4
5
 
foreach ( Control c in sc.Panel1.Controls ) 
{
   //   ...
}

Cela oblige donc à réécrire une bonne partie de mon code.

Je pensais qu'il y avait peut-être une solution sans splitcontainer mais cela n'est peut-être pas possible.

[wallace1]

Mais Le controle TxbPatient est disponible directement depuis ton Form pourtant ???
Depuis quel endroit de ton projet souhaites-tu accéder à ces controles de ton Form exactement ?
(si c'est depuis une autre classe il faut passer ton Form en argument dans le constructeur de ta classe pour pouvoir y accéder)

[rocketter]

Mais Le controle TxbPatient est disponible directement depuis ton Form pourtant ???

Oui

Depuis quel endroit de ton projet souhaites-tu accéder à ces controles de ton Form exactement ?
(si c'est depuis une autre classe il faut passer ton Form en argument dans le constructeur de ta classe pour pouvoir y accéder)

Non je reste bien dans la même classe.

Après je n'utilise pas de UserControl, en gros j'ai ma form et dedans j'y place directement mes textbox, listbox, etc ...

[wallace1]

Après je n'utilise pas de UserControl, en gros j'ai ma form et dedans j'y place directement mes textbox, listbox, etc ...

OK tanpis ......

[rocketter]

Sans UserControl c'est mort alors ?

[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 ...