ايران ويج

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

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

اگر درست متوجه شده باشم ! Amaze

يعني اينكه مثلا كاربر داره با يه آبجكتي كار ميكنه ، وقتي كه روي دكمه كليك ميكنه ، فوكوس از روي آبجكت ميره روي دكمه ، كه تو مي خواي برگرده سره جاي قبليش ! اگر همين باشه منظورت :
بايد تو رويداد 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

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

shamsoft

Iron_Fist

amirjan

shamsoft