userformdaki saat userform kapanınca çalışma sayfasını çok etkiliyor?

[Selçuk1]

iyi geceler değerli üstadlarım,

yaptığım userform üzerine bir adet label koydum ve aşağıdaki kodlar ile tarih saat grubunun görünmesin sağladım;

Private Sub UserForm_Activate()
Do
DoEvents
Label14 = Format(Now(), "dd mmmm yyyy") & " " & Format(Now(), "dddd") & " " & Format(Time, "hh:mm:ss")
Loop
End Sub

ancak userform x dan kapatıldığında yada "unload me" dendiğinde çalışma sayfasına dönülünce imleç hareketlerinden zorlanıyor. butona basıldığında buton aşağı doğru kayıyor.

sn. leventm'in başka bir soruda verdiği cevabı kullandım:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
End Sub

ancak bu kodda sorunum çözmedi.

ne yapabilirim?? değerli fikirlerinizi bekliyorum..

saygılar...

 

[Seyit Tiken]

Örnek dosyadaki saat uygulamasını deneyiniz. Saniye gösterimi yok. Windows saatiyle eşzamanlı çalışıyor. Hiç bir işlemi aksatmaz.

 

[Tankut SAZLI]

Sayın cellchuq;
Bazı durumlarda form üzerinde kullanılmak üzere LCD Saat Uygulaması hazırlamıştım.İsterseniz bir göz atın.

LCD SAAT UYGULAMASI


__________________
DİĞER ÇALIŞMALAR

ACCESS GÖRSEL EĞİTİM
ÖĞRENCİ TAKİP PROGRAMI(Excel ile Access VeriTabanı Uygulamas&#305
USERFORM GÖRÜNÜMLERİ
POPUP TAKVİM UYGULAMASI
LCD SAAT UYGULAMASI
XCelMedia v1.0
KİMLİK SORGULAMA(web üzerinden)
LİSTVİEW UYGULAMASI
BİLDİRİM ALANINA MİNİMİZE(VB6)

 

[Selçuk1]

Sn. Seyit Bey ve Sn. Tankut Bey,

ilginize ve önerilerinize teşekkürler. ayrıntılarını incelemedim ama, Seyit Beyin örneği aslında işime yarayacak gibi tarih formatını eklersek.


Tankut Bey;

sizin örneğinizde ise rakamları göremedim bende. acaba doğru olarak çalıştıramadım mı?

değerli hocalarım tekrar teşekkür ediyor, saygılar sunuyorum...

 

[Tankut SAZLI]

Sayın cellchuq;
Rakamları nasıl göremediğinizi anlayamadım.Ben yanlış yükleme olasılığına karşı dosyayı tekrar indirip inceledim ve çalışıyor.
Eğer sıkıştırılmış dosya içerisinden exceli açmayı deniyorsanız göremeyeceksiniz.Bu yüzden sıkıştırılmış dosyayı çıkarmanız gerekiyor.

 

[Selçuk1]

haklısınız sn. Tankut Sazlı... :mrgreen::mrgreen::mrgreen:

ben sıkıştırılmış klasörden bakmayı denemiştim. çok güzel bir çalışma, elinize sağlık.

merak ettim de, peki analog saat koyma şansımız var mı userform üzerine? böyle bir örnek mevcut mudur?

 

[Tankut SAZLI]

Bu kodla

Private Sub UserForm_Activate()
Do
DoEvents
Label1 = Format(Now(), "dd mmmm yyyy") & " " & Format(Now(), "dddd") & " " & Format(Time, "hh:mm:ss")
Loop
End Sub

rakamsal saat yapabiliyorsunuz zaten bunu vermişsiniz.
Ama elimde daha önceden bir siteden aldığım analog saat uygulaması var fakat userform için uyarlamamıştım.İşinize yararsa buyrun:

 

[Haluk]

Sayfa üzerinde analog saat için başka bir alternatif:

 

[Selçuk1]

Sn. Haluk ve Sn. Tankut Sazlı,

ikiside harika çalışmalar, ancak bu çalışmaları userforma nasıl ithal edebiliriz? yani bu analog saatleri userform üzerinde nasıl çalıştırabiliriz? bu konuda da yardımlarınızı rica etsem..:roll::roll::roll: ayrıca userform üzerinde çalıştıklarında sorumun asıl konusu olan husus bu saatte de sorun çıkarır mı sizce??

saygılar..

 

[Tankut SAZLI]

Sayın cellchuq;
Aslında LCD saatin sorun çıkaracağını sanmıyorum çünkü ben kullanıyorum.Fakat başka bir alternatif var VB6 da hazırladığım bir screensaver tarzı analog saat uygulaması var.Onu excele uyarlayabilirim.Sorun şu ki VB6 hazırladığım uygulamada akrep,yelkovan ve saniye çubukları için Shape nesnesi kullandım(x,y pozisyonlarını ayarlamak kolay olduğundan),fakat bu nesneyi excele nasıl reference edeceğimi bilmiyorum.Bu konuda yardımcı olan olursa saati sizin için hazırlayabilirim.

Yada kodları verim siz bir inceleyin belki birşeyler yapabilirsiniz.;

Const PI = 3.141592654
Private Sub Timer1_Timer()
  Dim Tim As Long
  Tim = Int(Timer)
  For i = 0 To 1
    'Akrep
    Line1(i).X1 = 188
    Line1(i).Y1 = 188
    Line1(i).X2 = 188 + Cos((Tim Mod 43200) * 2 * PI / 43200 - (0.5 * PI)) * 60
    Line1(i).Y2 = 188 + Sin((Tim Mod 43200) * 2 * PI / 43200 - (0.5 * PI)) * 60
    'Yelkovan
    Line2(i).X1 = 188
    Line2(i).Y1 = 188
    Line2(i).X2 = 188 + Cos((Tim \ 60 Mod 60) * 2 * PI / 60 - (0.5 * PI)) * 90
    Line2(i).Y2 = 188 + Sin((Tim \ 60 Mod 60) * 2 * PI / 60 - (0.5 * PI)) * 90
    'Saniye
    Line3(i).X1 = 188 - Cos((Tim Mod 60) * 2 * PI / 60 - (0.5 * PI)) * 15
    Line3(i).Y1 = 188 - Sin((Tim Mod 60) * 2 * PI / 60 - (0.5 * PI)) * 15
    Line3(i).X2 = 188 + Cos((Tim Mod 60) * 2 * PI / 60 - (0.5 * PI)) * 90
    Line3(i).Y2 = 188 + Sin((Tim Mod 60) * 2 * PI / 60 - (0.5 * PI)) * 90
  Next i
End Sub

Burada dikkat ederseniz ör: Line1(i) diye belirttiğimiz shape nesnesinden indexi 0 ve 1 olan iki tane var Line1(0),Line1(1)