Discussion :

[Miska59]

Bonjour,

j'ai un petit souci quand le clique scollbars pour descendre les buttons reste fixe.
voici en image :


le code :

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
Dim Itcontrol As New List(Of Control)
 
Private Function ListView_Buttons(lvl As ListView, count As Integer, index As Integer) As Button
        Dim btn As New Button
        btn.Text = "Telecharger " & count
        btn.Tag = count
        btn.FlatStyle = FlatStyle.Flat
        btn.ForeColor = Color.Blue
        AddHandler btn.Click, AddressOf Downloader
        btn.Parent = lvl
        Dim ps2 As ListViewItem.ListViewSubItem
        ps2 = lvl.Items(count).SubItems(index)
        Dim rt2 As New Rectangle
        rt2 = ps2.Bounds
        btn.SetBounds(rt2.X, rt2.Y + 32, rt2.Width, rt2.Height - 65)
        Return btn
    End Function
 
Itcontrol.Add(ListView_Buttons(ListView1, i, 3))

je voudrais savoir si c'est possible avec scollbars en descendant on voir le numéro du bouton 0 à 19? merci d'avance