سؤال در مورد فوکوس

[Hassan2500]

سلام
من این کد رو میخوام که وقتی دکمه ضربدر فرم2 رو زدم بعد فوکوس توی تکست1 در فرم1 بپره

[m.4.r.m]

Private Sub Form_Unload(Cancel As
Integer)
Form1.Show
Form1.Text1.SetFocus
Form1.Text1.BackColor =
vbYellow
End Sub

[star_star]

در فرم دوم این کد رو قرار بده :

Private Sub Form_Unload(Cancel As Integer)
Form1.Text1.SetFocus

End Sub


تشکر یادت نره !

[m.4.r.m]

در فرم دوم این کد رو قرار بده :

Private Sub Form_Unload(Cancel As Integer)
Form1.Text1.SetFocus

End Sub


تشکر یادت نره !



شما چه جوری قبلا از نمایش فرم اول فوکوس می کنی به تکست 1 ؟ اول خودت تست کن بعد جواب بده مرسی .
عاشق اسپم هم که هستی .

[star_star]

مهندس شما گفتی :
من این کد رو میخوام که وقتی دکمه ضربدر فرم2 رو زدم بعد فوکوس توی تکست1 در فرم1 بپره !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
یه فرم یک بساز بعد توی اون یک تکست باکس قرار بده و کد زیر رو داخل فرم یک بزار :
Private Sub Form_Load()
Form2.Show

End Sub


بعد کد بالا رو توی فرم 2 قرار بده !!!
با اجرا کردن برنامه فرم دو و فرم یک نمایش داده میشه ! اگه دکمه close فرم 2 رو بزنی میبینی که روی تکست فرم 1 فوکوس میشه !!!!!!

[Hassan2500]

حالا اگه سه تا تکست1و2و3 روی فرم1 داشتیم و بعد فرم2 رو باز کردیم و بعد ضربدر فرم2 رو زدیم من میخوام فوکوس توی اون تکستی در فرم1 قرار بگیره که قبل باز کردن فرم2 تو اون تکست بوده کد این چی میشه؟

در ضمن چه کدی بنویسم که هنگام چپ کلیک روی تکست1 فوکوس داخلش قرار نگیره؟

[just4froum]

کد فرم اول :

Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Text1_GotFocus()
Set obj = Text1
End Sub

Private Sub Text2_GotFocus()
Set obj = Text2
End Sub

Private Sub Text3_GotFocus()
Set obj = Text3
End Sub

کد فرم دوم :

Private Sub Form_Unload(Cancel As Integer)
Call SetTxtFocus
End Sub


کد module
Public obj As TextBox
Public Sub SetTxtFocus()
obj.SetFocus
End Sub



موفق باشید.

[MohammadGh2011]

سلام

در ضمن چه کدی بنویسم که هنگام چپ کلیک روی تکست1 فوکوس داخلش قرار نگیره؟
با کد زير اگه چپ کليک کنيد روي تکست يک Focus ميره روي تکست 2
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
If Button = vbLeftButton Then Text2.SetFocus
End Sub



موفق باشيد