commandButton ile system saatini gösterme

[mraltin]

mrb.arkadaslar sayfa1 üzerine denetim araç çubugundan bir Commandbotton ekledim ve koduna CommandButton1.caption =Time
yazdim.system saatini gösterdi fakat istedigim bu saat kendi kendine sürekli işlesin ben click yada başka bir olay yapmadan
tesekkurler

 

[Haluk]

Sayfa modulune;

[vb:1:4ce570b1b3]Private Sub Worksheet_Activate()
Do
DoEvents
CommandButton1.Caption = Time
Loop
End Sub
[/vb:1:4ce570b1b3]

 

[xxrt]

Merhaba Hocam,
Ben birde buna ek olarak şunu merak ettim.
UserFormdaki StatusBara Saat Ekleme şekline bir örnek verebilrimisiniz..StatusBarın Caption özelliği yok..(Mic.StatusBar 6,0)

 

[Haluk]

UserFormdaki StatusBara Saat Ekleme şekline bir örnek verebilrimisiniz

Caption özelliği yerine Panel'lerin Text özelliklerini kullanacaksanız. Bir panel daha ilave edip orada da bu kez tarihi gösterebilirsiniz.
[vb:1:1dd3f6bb77]Private Sub UserForm_Activate()
Do
DoEvents
StatusBar1.Panels(1).Text = Time
Loop
End Sub
'
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
End Sub

[/vb:1:1dd3f6bb77]

 

[xxrt]

Teşekkürler Hocam,
Hem benlik Hemde Ã?rneksellik Oldu..

 

[mraltin]

arkadaslar ben bunu nereye yapistiricam ben yapamadim

 

[Haluk]

Rica ederim...

Ekli örnek dosyada ise, kod kullanmadan direkt olarak özellikler penceresinden manuel olarak yapılmış şekli var.

Sistem tarihi ve saati ile birlikte klavyedeki Num, Caps tuşlarını interaktif olarak da gösterir.

 

[mraltin]

SN.RAİDER ben ilk soruyu hala yapamadim command button1 captionunun zamani göstermesi

 

[mraltin]

AYRİCA STATUSBARI NASIL EKLIYCEM BENIM ARACLARDA YOK

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin butona basınca çalışmaya başlar.

[vb:1:539b43142f]Private Sub CommandButton1_Click()
Do
DoEvents
CommandButton1.Caption = Time
Loop
End Sub[/vb:1:539b43142f]

 

[mraltin]

tesekkur ederim sn.leventm yine hizir gibi yetisdiniz.Sn.raiderin ekteki gonderdigi dosyadaki calismada cok guzel ama ben status bar nesnesini bulamadim Xp kullanıyorum ondan olabilir mi?

 

[Levent Menteşoğlu]

Bunu vbe den yeniden yüklemeniz gerekir, bunun için;

Userforma statusbar eklemek için toolbox kutucuğu açıkken, Tools-additional controls-microsoft statusbar control versiyon 6.0 (sizdeki versiyon en yüksek kaçsa onu işaretleyin) seçeneğini işaretleyerek tamam butonuna basın, statusbar toolbox üzerinde görünecektir.

Birde yukarıdaki kodda butona basarak saati çalıştırdığınızda bu haliyle durduramazsınız.

 

[xxrt]

mraltin,

arkadaslar ben bunu nereye yapistiricam ben yapamadim

Sayfaya Eklediğiniz CommandButton1'in Bulunduğu Sayfayı açın..
*Sayfa1 yazısı Üzerinde sağ Tuşa Tıklayın>Kod Görüntüleyi Seçin..
*Sayın Raider'in CommandButton1 Üzerinde Saat Göstermek İçin Verdiği Kodu Aynen Yapıştırın.
*Sayfaya Eklediğiniz CommandButton1'i Tasarım Modundan Çıkartın.
Sayfa1'e Her geçisinizde CommandButton1 üzerindeki Saat Çalışmaya başlar..

***/

AYRİCA STATUSBARI NASIL EKLIYCEM BENIM ARACLARDA YOK

StatusBar UserForm üzerine eklenir.Sizin Araç Çubuklarındaki nesneler sayfa Üzerine eklenmesi için hazır bulunmaktadır.
Fakat Araç Çubuğunu Ã?zelleştirme ile StatusBarı Araç Çubuğuna ekliyebilirsiniz..
Bunu İçin Araç Çubuğu Üzerinde sağ tuşa basarak Ã?zelleştiri Seçin.
Buradan Denetim Araç Çubuğunu Seçerek Karşısındaki Diğer Denetimler adlı Komutu Araç Çubuğu Üzerine sürükleyin..
Daha sonra Bu komutu tıkladığınızda açılan pencerede
Microsoft StatusBar Control 6,0 veya 5,0 olanlardan birini deneyerek sayfaya ekleyin..
Böylece Sayfanıza StatusBar nesnesi eklenecektir..

Sayın Raider'in StatusBar Hakkında Ã?rneğini incelerseniz,UserForm Üzerinde ekleme için daha detaylı fikriniz Olur..

Birde Burya Tıklayarak Sayfaya Nesne Ekleme Hakkında Fikir Edinebilirsiniz.
Kolay Gelsin.