Commandbutton yüksekliği değiştirme

[seddur]

Merhabalar.Ekran alıntısında görüldüğü üzere userformda bir adet listview2 ve yanında bir adet commandbutton var.Yapmak istediğim listview2 de herhangi bir satırı seçiğimde yanındaki commandbuttonun yüksekliğide seçili satırın yanına gelsin yani buton ve seçili satır birlikte hareket edecekler.Aşağıdaki kodu yazdım ama çalışmadı.Yardımcı olabilirseniz sevinirim.
Private Sub ListView2_Click()
userform4.commandbutton45.top =userform4.listview2.selecteditems.index.top
end sub

 

[ÖmerFaruk]

Bunu deneme yanılma ile ve lsitview formatıyla beraber düşünerek yapabilirsiniz.
Hızlı ilerlemek adına ListView içeren dosyanızı paylaşabilir msiniiz?

 

[seddur]

Dosya ektedir.

 

[ÖmerFaruk]

Yaklaşık olarak aşağıdaki gibi olabilir.
Command Buton yüksekliğini 16, Font Size değerinide 6 yaparsanız listview satırlarına daha iyi oturur.

Private Sub ListView1_Click()
    Me.CommandButton1.Top = Me.ListView1.Top + 18 + (Me.ListView1.SelectedItem.Index - 1) * 13.8
End Sub