برگرداندن یک مرحله ای Setfpcus

[shamsoft]

چطور میشه فوکوس را یک مرحله به عقب برد.
مثلا من سه تا تکست باکس دارم و یه دکمه.معلوم نیست که فوکوس روی کدوم تکست باکس هست.در همین حال کاربر دکمه را با موس فشار می دهد.حالا من می خوام وقتی دکمه اجرا شد فوکوس به تکست باکسی که قبل از فشار دادن دکمه اونجا بوده برگرده.
فکر کنم خوب توضیح دادم

[Iron_Fist]

من كه نفهميدم
بقيه رو نمي دونم ؟ :?:

[amirjan]

اگر درست متوجه شده باشم !
يعني اينكه مثلا كاربر داره با يه آبجكتي كار ميكنه ، وقتي كه روي دكمه كليك ميكنه ، فوكوس از روي آبجكت ميره روي دكمه ، كه تو مي خواي برگرده سره جاي قبليش ! اگر همين باشه منظورت :
بايد تو رويداد GetFocus هر آبجكت ، مثلا تكست باكس ، يه متغيير كه به صورت پابليك تعريف شده رو مساوي يه چيزي قرار بدي كه بعدا ازش استفاده كني ! مثلا يه نمونش به صورت ساده اين شكلي ميشه :

کد:

Public i

Private Sub Command1_Click()
Select Case i
    Case "text1"
          Text1.SetFocus
    Case "text2"
          Text2.SetFocus
    Case "text3"
          Text3.SetFocus
End Select
End Sub

Private Sub Text1_GotFocus()
i = "text1"
End Sub
Private Sub Text2_GotFocus()
i = "text2"
End Sub
Private Sub Text3_GotFocus()
i = "text3"
End Sub

[shamsoft]

آقای Iron_fist خواستم منظورم رو بهتر برسونم که دیدم آقا امیر حسین جواب رو دادن.
آقا امیر ازتون متشکرم.
:)