Bonsoir,
Pour faire simple, car le pb se trouve dans un gros prgm, imaginons que dans une form MDI, je veuille etre en mesure d'afficher n forms identiques de 150 x 150 pix et que cet affichage se réorganiseautomatiquement si je redimentionne la feuille MDI.
Ca donne ceci :
etc
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29 Imports System.Windows.Forms Public Class TestMDI Dim afficheur(100) As Afficheur ' Tableau d'afficheurs Private Sub TestMDI_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load AfficheCollection() End Sub Private Sub TestMDI_ResizeEnd(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ResizeEnd Dim I, Colones As Integer Colones = Int(Me.Width / 150) For I = 0 To 10 - 1 afficheur(I).Left = (150 * (I Mod Colones)) afficheur(I).Top = (150 * (Int(I / Colones))) Next End Sub Public Sub AfficheCollection() ' Affichage de la collection d'afficheurs Dim I, Colones As Integer Colones = Int(Me.Width / 150) For I = 0 To 10 - 1 afficheur(I) = New Afficheur afficheur(I).MdiParent = Me afficheur(I).Left = (150 * (I Mod Colones)) afficheur(I).Top = (150 * (Int(I / Colones))) afficheur(I).Visible = True Next End Sub.....
Tout est ok si je defini l'afficheur dans une dimension de 150 x 150 avec Text et ControlBox
Mais je ne veux ni Text ni ControlBox
Commencons par mettre a false la ControlBox:
Redimensionnons l'afficheur dont les côtes se sont curieusement modifiées suite a l'action précédente;
Le premier afficheur est ok, mais voila que les suivants sont diminués de 4 pixels en largeur et 24 pixels en hauteur ???
Effacons le Text:
Et là, alors que le 1er afficheur est tj de 150 x150, les suivants sont diminués de 4 pixels en largeur ET en hauteur.
Vous y comprenez qcq chose, vous ?
;-)
Partager