Her 5 sn de bir userform refresh?

[mith]

Merhabalar arkadaşlar,
Forumda araştırdım ama bulamadım, gerçi bu konu nasıl araştırılır oda ayrı bir konu. Arkadaşlar, userformda pekçok txtbox var, ve her 5 sn de bir userformun textbox1'i setfocus yapmasını istiyorum. Bu kontrolu initialize demi yapmam gerekiyor bilemiyorum. Ayrıca siz formda herhangi bir oynama yapmadığınız zamana setfocus yapmasını istiyorum, yani herhangi bir change, exit vb eventlar ile yapamıyorum.
Yardımlarınızı bekliyorum..
Kolay gelsin..

 

[mith]

:S Arkadaşlar kimsenin konu hakkında bilgisi yokmu.. Acaba yapılabilirliğimi yok..
Neyse biraz daha bekleyelim..

 

[Haluk]

Userform1 kodları :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Call StopTimer
    Call StartTimer
End Sub
'
Private Sub UserForm_Initialize()
    Call SetFocusTextBox
End Sub
'
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Call StopTimer
End Sub

Yeni bir standart modül ilave edin, aşağıdakileri de buraya yerleştirin:

Dim RunWhen As Double
Const RunWhat = "SetFocusTextBox"
'
Sub StartTimer()
    RunWhen = Now + TimeSerial(0, 0, 5)
    Application.OnTime Earliesttime:=RunWhen, Procedure:=RunWhat, Schedule:=True
End Sub
'
Sub StopTimer()
    On Error Resume Next
    Application.OnTime Earliesttime:=RunWhen, Procedure:=RunWhat, Schedule:=False
End Sub
'
Sub SetFocusTextBox()
    UserForm1.TextBox1.SetFocus
    Call StartTimer
End Sub

 

[Seyit Tiken]

Text2 veya Text3 tıkladıktan 5 saniye sonra Text1'e Setfocus(geçi&#351 olacağı görülecektir.

Sub bessnbir()
UserForm1.TextBox1.SetFocus
auto_open
End Sub

Sub auto_open()
Application.OnTime Now + TimeValue("00:00:05"), "bessnbir"
End Sub

 

[mith]

İlginiz için çok teşekkür ederim, kodlar güzel çalışıyor. Gözümsünüz..
Kolay gelsin...