ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[Tarkan VURAL]

UserForm altına StaturBar eklemek ister misiniz ?

Referans tablosundan Microsoft Windows Common Controls satırını işaretleyip aktif edin.
StatusBar nesnemizi UserForm üzerine ekleyip aşağıdaki kodları yazın.

Test Et

Kod: Tümünü seç

Private Sub UserForm_Initialize()
    Dim x As Integer
    For x = 1 To 5
        StatusBar1.Panels.Add
    Next x
    With StatusBar1.Panels
        .Item(1).Style = sbrNum
        .Item(2).Style = sbrCaps
        .Item(3).Style = sbrDate
        .Item(4).Style = sbrTime
        .Item(5).Style = sbrIns
        .Item(6).Style = sbrScrl
    End With
End Sub

StatusBar üzerinde görünmesini istediğiniz özellikler için StatusBar Item.Style ile oynamalar yapabilirsiniz.

[hsayar]

[klan]

Selam,
Doğru yerde aradığımı sanıyorum ama Status Bar nesnesini bulamıyorum. Referance altında aktif edebileceğim Microsoft Windows Common Controls seçeneği yok. Controls 1.0 Tye Library aktif ederek denedim olmadı. Neler yapmalıyım.

[Tamer Kılıçaslan]

Selam,
Doğru yerde aradığımı sanıyorum ama Status Bar nesnesini bulamıyorum. Referance altında aktif edebileceğim Microsoft Windows Common Controls seçeneği yok. Controls 1.0 Tye Library aktif ederek denedim olmadı. Neler yapmalıyım.

Merhaba

Tools | Additional Controls menüsünde bulunan liste içerisinde Microsoft StatusBar Control 6.0 seçeneğini arayınız. Bulunca, kenarındaki onay kutucuğunu işaretleyiniz.

[klan]

Vakit ayırdınız cevapladınız, teşekkür ederim.

[Tarkan VURAL]

UserForm üzerinde yapılmış bir örnek ekleyeyim. Bu kısma dosya örneği eklememişiz.

[Erkan Akayay]

Selam,
Doğru yerde aradığımı sanıyorum ama Status Bar nesnesini bulamıyorum. Referance altında aktif edebileceğim Microsoft Windows Common Controls seçeneği yok. Controls 1.0 Tye Library aktif ederek denedim olmadı. Neler yapmalıyım.

Merhaba

Tools | Additional Controls menüsünde bulunan liste içerisinde Microsoft StatusBar Control 6.0 seçeneğini arayınız. Bulunca, kenarındaki onay kutucuğunu işaretleyiniz.

Bu işlemi yaptınız mı ?

[Tarkan VURAL]

Merhaba,
Ekte sunduğum dosyadaki status bar'a aşağıdaki kodu monte edemiyorum.

Merhaba,
Çalışmanızdaki Statusbarın adı Statusbar2 olduğu için olabilir mi ?

[Tarkan VURAL]

Eklediğiniz Statusbarda sanırım sorun var. Ben silip ekledim , aynı kodlarla sorun yapmadan gösterdi. İnceleyiniz.

[Emine Şahin]

Elinize sağlık Tarkan Bey. Güzel bir uygulama. Ben de çalışmama ekledim.