Focus

[sehm67]

سلام

چطور می تونم دستوری بنویسم که Focus در هر تکست باکسی بود آن مقدار در آن قرار بگیرد؟

به عنوان مثال:

دو فرم داریم
فرم اول دارای چند تکست باکس می باشد و فرم دوم یک کامند دارای مقدار به طور مثال "A"
چطور این مقدار "A" را که Focus به هر تکست باکسی منتقل می شود مقدار "A" در آن تکست باکس وارد شود؟

در ضمن Focus در هر فرم و هر تکست باکسی قرار گرفته این مقدار وارد بشه.

با تشکر.

[محسن واژدی]

سلام
یک Text1 برو Command1 بر روی فرم قرار دهید سپس از Text1 چند کنترل آرایه کپی کنید

در پایان کدهای زیر را در فرم کپی و بررسی کنید

Option Explicit

Dim iTB_Index%

 

Private Sub Command1_Click()

    Text1(iTB_Index%) = "A"

End Sub



Private Sub Text1_GotFocus(Index As Integer)

    iTB_Index% = Index

End Sub

موفق باشید

[sehm67]

آقای محسن واژدی تشکر از جوابتون .

دوباره سوالم رو مطرح میکنم منظورم این بود که به فرض مقدار "A" در Command1 در فرم دیگه ای وارد بشه باید از چه دستوری استفاده بکنیم این کدی که شما زدید مقدار موجود در همان فرمی که قرار داریم جواب می ده اما برای فرم دیگه با تکست باکس دیگه چطور ؟

یعنی هم زمان دو فرم یا چند فرم در حال اجرا باشند و اون مقدار "A" زمانی که Focus در آن تکست باکس ها قرار گرفت آن مقدار مساوی تکست باکس بشه.

[ali shabani fard]

با سلام میتونی یه ماژول درست کنی و تو اون ماژول یه متغیر تعریف کنی بعد مقداری رو که میخوای (حالا تو هر فرم) به این متغیر اختصاص بدی ، بعد تو اون کامند اطلاعات موجود در متغیر (همون که تو ماژول تعریف کردی) رو به هر تکست باکس تو هر فرم اختصاص بدی امیدوارم متوجه شده باشی و مفید واقع بشه
با تشکر

[sehm67]

دوستان مننون ولی شما هنوز منظور منو متوجه نشدید.

به طور مثال :
form1 دارای command
form2 دارای 3 تا textbox و یک command
form3 دارای 3 تا textbox و یک command

در command << form1 دارای مقدار به فرض مثال "A"
در form2 >> کد command این مقدار form1.show 1
در form3 >> کد command این مقدار form1.show 1
حالا من میخوام focus در هر تکست باکسی قرار گرفت مقدار "A" وارد همان تکست باکس شود.
و ...

چطور موقعیت focus رو تشخیص بدیم یعنی focus تو کدوم تکست باکس قرار داره.

[IamOverlord]

از رویداد GotFocus می تونی استفاده کنی برای این کار.