listwiew ile textboxı anı anda hareket ettirmek

[acar6783]

Bir listwiewnesnesinin dışına frame koydum listwiewin altına da textboxlar.

Fakat form açıldığında listwiew alt scroolbarı görünmese de de onun yerine framein scroolbarı hareket etse ve bununla birlikte textboxlar da aynı şekilde hareket etse.
Bir dosyada görmüştüm fakat yapamadım.


Bu şekilde textboxların yerlerini ayarlamıştım..

For i2 = 1 To 14
        Controls("TextBox" & i2).Left = .ColumnHeaders.Item(i2).Left
        Controls("TextBox" & i2).Width = .ColumnHeaders.Item(i2).Width
        Next i2

 

[acar6783]

Çözümümü buldum.
hayırlı akşamlar.

 

[erdem_emre]

Bulduğunuz çözümü paylaşırmısınız.

 

[acar6783]

s = 0
        For i2 = 1 To 18
             s = s + 1
        Controls("TextBox" & i2).Left = .ColumnHeaders.Item(i2).Left + 1
      
        Controls("TextBox" & i2).Width = .ColumnHeaders.Item(i2).Width + 2
        
         stn = stn + .ColumnHeaders.Item(s).Width
    
        Next i2
        
        Frame1.ScrollBars = fmScrollBarsHorizontal
        raporlist.Width = stn + 16
         Frame1.ScrollWidth = stn + 16
         Frame1.ScrollLeft = 0

Bu şekilde