A L'AIDE !!! Scrollbar et textbox

Question

Slt tlm,

Sur une form, j'ai plusieurs textbox dont quelques unes forment une sorte de tableau. En fait, je voudrai pouvoir déplacer les textbox formant ce tableau, sans déplacer les autres. Mon code, ci-dessous, déplace toutes les texbox.

Private Sub VScroll1_Change()
Dim ctrl As Control
Static posit As Integer
For Each ctrl In Controls
If TypeOf ctrl Is TextBox Then
If posit < VScroll1.Value Then
ctrl.Top = ctrl.Top - VScroll1.Value
Else
ctrl.Top = ctrl.Top + VScroll1.Value
End If
End If
Next
posit = VScroll1.Value
End Sub

J'ai également déplacer les textbox dans une picturebox et dasn mon code, à la place de "If TypeOf ctrl Is TextBox Then", j'ai mis "If TypeOf ctrl Is PictureBox Then".Mais, cela ne me convient pas. 

Auriez-vous une autre solution ou du moins une piste pour mes recherches.

Merci d'avance.

VicoLaChips2 · Answer

Bonjour -;)
Tu pourrais utiliser la propriété .tag de tes objets textbox...?

If TypeOf ctrl Is TextBox Then
    If ctrl.tag = "Scroll" then
    End If
End If
Tiens moi au courant, @+, VIC

cs_pecosse · Answer

EXCELLENT, ça fonctionne.

Merci Vic
@+
Pascal

A L'AIDE !!! Scrollbar et textbox

2 réponses

Discussions similaires