Userform

[osmanfenerli1907]

merhaba
ben userform1 in herzaman bilgisayarda diğer programların üzerinde olmasını nasıl yaparım? Yani herzaman visible olacak.

 

[N.Ziya Hiçdurmaz]

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

 

[osmanfenerli1907]

SY hocam birde ben userform1 de iken bile bilgisayarda çalışan diğer program aktif olsun örneğin wordte

 

[osmanfenerli1907]

hocam biraz acele oluyor özür dilerim ama yardımlarınızı bekliyorum
araştırma yaptım ama bu konu ile ilgili birşey bulamadım

 

[N.Ziya Hiçdurmaz]

Dediğinizi tam anlayamadım.Zaten forum worde veya başka programda açıksa onun üzerinde duruyor.Ve o programda çalışılabiliniyor.