userform her türlü ekranda gözüksün

[rdeniro]

Sevgili Arkadaşlar!

Benim ek'te gonderdıgım örneğimde, excel dosyasında start düğmesine basıldığında 1 dakika sonra userform calısıyor ve dakikayı gösteriyor ve excel dosyası kaybolarak userform her dakikada bir ortaya çıkıyor, dakikayı gösteriyor ve 15 sn sonra kayboluyor.

Esas problem ise her dakikada bir ortaya çıkan userform yalnızca masaüstü açıksa gözüküyor. Ancak explorer veya folder açıksa userform gözükmüyor. Benim istediğim her ne program, explorer, folder açık olursa olsun userform mutlaka her dakikada bir ekranda gözüküp 15 sn sonra kaybolsun.

Yardımcı olacak arkadaşara şimdiden teşekkür ederim.

Saygılarımla,

 

[nziya]

http://www.excel.web.tr/viewtopic.php?p=77531#77531

 

[rdeniro]

Sayın nziya!

Vermiş olduğunuz bilgiyi, benim örneğime uygulayabilir misiniz? Ben denedim ama başarılı olamadım.

Saygılarımla,

 

[nziya]

form üstte

ÖRNEK

 

[rdeniro]

Sayın nziya!

maalesef üstte vermiş olduğunuz örnekte her dakikada bir ortaya çıkan userform yalnızca masaüstü açıksa gözüküyor. explorer veya klasör açıksa ekrana gelmiyor. şayet explorer veya folder'ı simge durumuna getirip, masaüstü gözükürse userformu görebiliyoruz. Benim istediğim her ne program, explorer, klasör açık olursa olsun userform bu program, explorer, klasörün üstünde gözüksün.

Yardımcı olabilirseniz çok sevinirim.

 

[rdeniro]

Bu konuda bana yardımcı olabilecek arkadaş yok mu?

 

[nziya]

yanıt

 

[rdeniro]

Sayın nziya, harikasınız. sorunu çözdünüz.

çok teşekkür ederim.

saygılarımla,

 

[rdeniro]

Sayın nziya!

userformu, sol üst köşesinde değilde ekranın farklı noktalarında gösterebilmem için ne yapabilirim?

saygılarımla,

 

[rdeniro]

Sayın nziya!

yukarıda yapmış olduğunuz örneği, kendi örneğime uyguladım ama bir türlü başarılı olamadım. Benim örneğimde userform çıkıyor ama değil 10 sn sonra hiç gitmiyor ancak control+alt+delete ile excel'i kapatmak istiyorum.

Zahmet olmasa yukarıdaki örneği çözmenizi sağlayan aşağıdaki kodların ne anlama geldiğini açıklar mısınız?

'USERFORMUN HERZAMAN ÜSTE KALMASINI SAĞLAR
Option Explicit
Dim hWnd As Long
Private Declare Function FindWindowA Lib "User32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Const HerZamanÜstte = -1

Private Sub UserForm_Initialize()
hWnd = FindWindowA(vbNullString, Me.Caption)
SetWindowPos hWnd, HerZamanÜstte, 0, 0, 0, 0, &H10 Or &H40 Or &H2 Or &H1
Application.Visible = False
Application.OnTime Now + TimeValue("00:0:10"), "kapat"
End Sub

saygılarımla,

 

[rdeniro]

Sevgili Arkadaşlar!

Yukarıdaki 10 sn sonra otomatik olarak UserForm'un kapanması örneğini EK'te sunduğum kendi örneğime uyguladım. Ancak benim örneğimde UserForm 10 sn sonra otomatik olarak kapanmıyor.

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

Saygılarımla,

 

[Levent Menteşoğlu]

Aşağıdaki kodları userformun kod sayfasına kopyalarsanız, userformunuz kapanacaktır.

[vb:1:eee0fcd14c]Option Explicit
Dim hWnd As Long
Private Declare Function FindWindowA Lib "User32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Const HerZamanÜstte = -1

Private Sub UserForm_Activate()
hWnd = FindWindowA(vbNullString, Me.Caption)
SetWindowPos hWnd, HerZamanÜstte, 0, 0, 0, 0, &H10 Or &H40 Or &H2 Or &H1
Application.Visible = False
Application.OnTime Now + TimeValue("00:00:10"), "kapat"
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Visible = True
End Sub
[/vb:1:eee0fcd14c]

 

[rdeniro]

Sayın leventm!

İlginize çok teşekkür ederim.

Yalnız ben birşey yaparken bu sefer de diğer yapmak istediğim özellik bozuluyor. Sizin vermiş olduğunuz kodlar sayesinde örnekteki UserForm 10 sn içinde kapanıyor.

Yalnız ben bir de EK'te ki dosyada göründüğü gibi Click makrosunu çalıştırdığımız zaman UserForm'un açılıp 10 sn içinde kapanmasını ama bu UserForm'un her dakikada bir açılmasını, ancak userform yanlız excel üzerinde değil, o an explorer açıksa explorer üzerinde o an bir klasör açıksa klasör üzerinde Userformun açılıp 10 sn sonra kapanmasını istiyorum.

Yukarıdaki "form üstte" excel dosyasında bu özellik oluyordu. o örnekte sayın nziya, sizin "Private Sub UserForm_Activate()" komutunuz yerine "Private Sub UserForm_Initialize()" kullanmıştı. Ancak bu örneği ben kendi örneğime uygulayamamıştım.

Umarım fazla karıştırmamışımdır.

Bu konuda bana yardımcı olursanız çok ama çok mutlu olurum.

Saygılarımla,

 

[rdeniro]

Sayın nziya ve Sayın leventm!

yardımlarınızı bekliyorum.

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[rdeniro]

Ellerinize sağlık Sayın leventm!

sorunumu sizin sayesinizde tamamen hallettim.

Çok teşekkür ederim.

Saygılarımla,