Userform ekrana Powerpoint Slaytı gibi kayarak çıkabilir mi?

[rdeniro]

İyi akşamlar!

Userfom ekrana Powerpoint Slaytı gibi soldan, sağdan, alttan veya üstten kayarak ekrana çıkabilir mi?

Bu konuda yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

Saygılarımla,

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?t=7813

 

[Levent Menteşoğlu]

Bende konuyla ilgili bir örnek hazırladım bunuda inceleyebilirsiniz.

 

[rdeniro]

Sayın leventm!

Öncelikle özür dilerim mesajınıza geç cevap verdiğim için. Özel sebeplerden dolayı ancak şimdi cevap verebiliyorum.

Ek'te gönderdiğiniz Userform tam benim yapmak istediğim olaydı. Ancak nedendir bilinmez bazen Userform tutukluk yapıyor ve önce duraksıyor ve sonra hareket ediyor. Bazen de muntazaman ortaya doğru hareket ediyor.

Sayın leventm! Userform her zaman ekranın ortasına mı çıkar? Ekranın altına yaslı olarak nasıl çıkarabilirim? Bu konuda da bana yardımcı olursanız çok sevinirim.

Saygılarımla,

 

[Levent Menteşoğlu]

Ancak nedendir bilinmez bazen Userform tutukluk yapıyor ve önce duraksıyor ve sonra hareket ediyor. Bazen de muntazaman ortaya doğru hareket ediyor.

Her ne kadar donanım hakkında çok fazla bilgi sahibi değilsemde şu yorumu yapabilirim. Bu muhtemelen o anda bilgisayarınızda ne kadar aktif program olduğu ile alakalı bir durum. Aktif olan program sayınız ne kadar az ise dosya o kadar hızlı çalışacaktır. (Bu durumu kod içindeki timer oluşturuyor.)

Userform her zaman ekranın ortasına mı çıkar? Ekranın altına yaslı olarak nasıl çıkarabilirim?

Bu elbette ayarlanabilir bir durumdur, bunun için kod içindeki UserForm1.Top = 100 satırndaki değeri değiştirmeniz yeterlidir. Bu değeri örneğin 200 yaparak deneyin. Birde ekrana geliş hızını değiştirmek isterseniz; c = c + 0.01 satırındaki sabiti değiştirebilirsiniz. Örneğin c = c + 0.1 şeklinde deneyin.

 

[rdeniro]

Sağolun Sayın Leventm!

UserForm'u ekranın altından yukarı doğru kaydırarak çıkarmak mümkün? Aşağıdaki kodda nasıl bir değişiklik yapmam gerekir?

Saygılarımla,

Private Sub UserForm_Activate()
UserForm1.StartUpPosition = 0
UserForm1.Top = 550
Start = Timer
Do
DoEvents
finish = Timer
deg = Format(finish - Start, "0")
c = c + 0.5
UserForm1.Left = -300 + c
If UserForm1.Left = 10 Then Exit Sub
Loop While finish - Start <= 1000
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

[vb:1:3ec07cb75f]Private Sub UserForm_Activate()
UserForm1.StartUpPosition = 0
UserForm1.Left = 200
Start = Timer
Do
DoEvents
finish = Timer
deg = Format(finish - Start, "0")
c = c + 0.01
UserForm1.Top = 300 - c
If UserForm1.Top = 100 Then Exit Sub
Loop While finish - Start <= 1000
End Sub
[/vb:1:3ec07cb75f]

 

[rdeniro]

ellerinize sağlık, sayın leventm.

saygılarımla,

 

[rdeniro]

Sayın leventm!

Yukarıdaki kodu, müstakil olarak değil de başka bir timer kodunun olduğu makronun olduğu bir excel dosyasının içinde çalıştırmak istediğimde yukarıdaki start kodunda hata veriyor.

Acaba bir çakışma olması sebebiyle mi hata veriyor. Yukarıdaki Start ve Timer yerine başka bir kod yazabilir miyiz?

Saygılarımla,

 

[Levent Menteşoğlu]

Yukarıdaki Start ve Timer yerine başka bir kod yazabilir miyiz?

Elbette istediğiniz şekilde değişken tanımlayabilirsiniz.

 

[rdeniro]

galiba sorun başka yerde sayın leventm!

sorunu halletmeye çalışıyorum.

 

[Ali]

Sn rdeniro, Bırak rahat rahat çıksın userform kaydırıyorsun kodlarda kayıyor.
Şaka bir yana Sn rdeniro, sizin sorunuzla birlikte Levent Hocam'dan, yeni birşey daha öğrendim. :hey:

İkinizede Teşekkür ederim

 

[rdeniro]

Ben de teşekkür ederim Sayın fructose.

Daha Levent Hocom'dan öğreneceğimiz çok şey olduğunu tahmin ediyorum.

 

[orcunerkek54]

kayan formdan sonra labelde kayan yazı kodu çalıştırmak istiyorum ama birbirlerini engelliyorlar ne yapmalıyım.ilk önce kayan formu çalıştırıyorum amaform hareketi durduktan sonra kayan yazı çalışmıyor iki kod arasına birşeymi yazmalıyım?

 

[xxrt]

sonra labelde kayan yazı kodu çalıştırmak istiyorum ama birbirlerini engelliyorlar ne yapmalıyım

Eğer label'de kayan yazı kodlarını Sayın Haluk'un verdiği örnek'ten aldıysan,
Levent'in kodlarını Haluk'un örneğinde bulunan UserForm'un Activate kısmına yazacaksın..

Aşağıdaki örnek Sayın Haluk'un
Label'de kayan yazı Linkindeki örneği ile

Sayın Leventm'nin yukarıdaki kodları birleştirilerek hazırlandı.