Label dikey hareketi

[tezsen]

Merhaba,

Aşağıdaki kodu kullanarak 1 label a dikey hareketlendirme yapabilmekteyim. Ancak listbox taki kutucuklara tıkladığımda yeni oluşturulan label lara dikey hareket uygulayamamaktayım. Acaba tüm label lara bunu uygulatabileceğim bir kod var mı yoksa nasıl bir yol izlemeliyim. Sayın üstadlarım yardımlarınızı bekliyorum. Saygılarımla.

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer _
, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then
    Label1.Top = Label1.Top + Y
End If
End Sub

Yeni oluşturduğum label ları aşağıdaki kod ile oluşturmakta.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim X As Integer
Dim Y As Single
Set s1 = Sheets("final")
X = s1.Range("c2:c65536").Cells.Find(What:=ListBox1, LookIn:=xlValues).Select
Dim NewLabel As Control
    Set NewLabel = Controls.Add("Forms.label.1")
    With NewLabel
        .Name = ActiveCell
        .Width = ActiveCell.Offset(0, 9).Value
        .Caption = ActiveCell.Offset(0, 6).Value
        .Height = 18
        .Left = ActiveCell.Offset(0, 8).Value
        .Top = 50
        .Tag = ""
        .BackColor = &HFF0000
        .SpecialEffect = 1
        .MousePointer = 15
        .AutoSize = False
        .Visible = True
    End With
End Sub

 

[Levent Menteşoğlu]

Bunun için class modül kullanmanız gerekir. Yani yeni eklenen label nesnelerini class modüle bağlamalısınız. Bir örnek dosya eklerseniz yardımcı olmaya çalışırım.

 

[tezsen]

Sayın Menteşoğlu,

Öncelikle yardımlarınız için teşekkür ederim. Dosyayı ekliyorum. Ayrıca listboxta dblclick yaptıktan sonra tıklanan verininin de listboxta görünmemesi konusunda yardımcı olursanız sevinirim.

Saygılarımla,

 

[Levent Menteşoğlu]

Dosyanız ektedir.

 

[tezsen]

Levent Bey,

Öncelikle teşekkür ederim. Ancak şöyle bir sıkıntı var. Yeni label oluşturunca diğer label ların hareketi iptal oluyor. Buna bir çözüm olabilir mi? Ekli dosyada örnek bir class modul ayarladım ancak aradaki commandbuttonlar sabit.

 

[Levent Menteşoğlu]

4 nolu mesajımdaki dosyayı yeniledim. Tekrar inceleyebilirsiniz.

 

[tezsen]

Levent Bey,

Emeğinize sağlık. yardımlarınız için çok teşekkürlerimi sunmaktayım.