UserForm her zaman üstte kalsın

[mana97]

Merhaba

Arkadaşımın ricası üzerine oyunlarda kullanılmak üzere aşağıda paylaşmış olduğu Userforum oluşturdum ancak oyuna girince arkada kalıyor alt tab yapmak zorunda kalıyor sürekli üstte kalacak şekilde bir ayarı var mı

İndir Oyun

Dosyayı indir Oyun

dosya.co

 

[Levent Menteşoğlu]

Userformun showmodal özelliğini true yapın.

 

[mana97]

Userformun showmodal özelliğini true yapın.

Hocam bu sadece excelin üstünde gösteriyor mu excel dışında bir uygulamadan bahsediyorum

 

[halit3]

Bu kodu userformun en üstüne yapıştır.

'Option Explicit
#If VBA7 Then
Private Declare PtrSafe Function 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) As Long
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#Else
Private Declare Function 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) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If
Private Const HWND_TOPMOST = -1
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40

Private Sub UserForm_Initialize()
Dim hndForm As Long
hndForm = FindWindow(vbNullString, Me.Caption)
Call SetWindowPos(hndForm, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE)
End Sub