Başlıksız ve kendiliğinden kapanan userform

[CILEKESH]

Arkadaşlar Başlıksız ve kendiliğinden kapanan userform ile ilgili başlıkların çoğu silinmiş malesef. Örnek verebilecek varmı?

 

[İhsan Tank]

Arkadaşlar Başlıksız ve kendiliğinden kapanan userform ile ilgili başlıkların çoğu silinmiş malesef. Örnek verebilecek varmı?

Merhaba
Userform'un kod bölümüne kopyalayın ve deneyin.

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" ( _
ByVal hwnd As Long) As Long
Private Const WS_BORDER = &H800000
Private Const GWL_STYLE = (-16)
Private Sub UserForm_Activate()
Dim lngFormHwnd As Long, lngFormStyle As Long
Me.BorderStyle = fmBorderStyleNone
If Application.Version < 9 Then
lngFormHwnd = FindWindow("THUNDERXFRAME", Me.Caption)
Else
lngFormHwnd = FindWindow("THUNDERDFRAME", Me.Caption)
End If
lngFormStyle = GetWindowLong(lngFormHwnd, GWL_STYLE)
lngFormStyle = lngFormStyle And Not WS_BORDER
SetWindowLong lngFormHwnd, GWL_STYLE, lngFormStyle
DrawMenuBar lngFormHwnd
End Sub
Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Unload Me
End Sub

Çift tıkladığınızda otomatik kapanır

 

[CILEKESH]

Açılışta aktif olan userform başlıksız olacak 5 sn kadar ekranda kalıp bir başka userform açılacak. Çift tıklama ile değil.

Verdiğiniz kodları denedim Başlıksız olarak göründü saniye ile kapanmasına çözüm varmı?

 

[CILEKESH]

Bu kod
Private Sub UserForm_Activate()
Application.OnTime Now + TimeSerial(0, 0, 5), "Kapat"


ve Modüle eklediğim bu kod

Sub Kapat()
Unload UserForm5
Sheets("Gelirler").Select
UserForm1.Show
End Sub

ve sizin yazdığınız kodlarla süper oldu.

Size ve Zeki Gürsoy'a Teşekkür Ederim.

 

[İhsan Tank]

Bu kod
Private Sub UserForm_Activate()
Application.OnTime Now + TimeSerial(0, 0, 5), "Kapat"


ve Modüle eklediğim bu kod

Sub Kapat()
Unload UserForm5
Sheets("Gelirler").Select
UserForm1.Show
End Sub

ve sizin yazdığınız kodlarla süper oldu.

Size ve Zeki Gürsoy'a Teşekkür Ederim.

Rica ederim
:keyif: