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

[Hassan2500]

سلام

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

کد دو تا رو جداگانه میخوام

[arenaw]

سلام
این کد واسه چپ کلیک ماوس که فوکوس داخل تکست قرار نگیره. واسه راست کلیک به جای button = 1 بنویس 2

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Text1.Enabled = False: Text1.Enabled = True
End Sub

[Hassan2500]

یه مشکل داره اینه وقتی چپ کلیک میکنی تو تکست1 فوکوس به تکست2 میپره من میخوام این کار نشه بعدش وقتی هم button = 2 مینویسی کار نمیکنه اگه میشه درستش کنید

[arenaw]

یه مشکل داره اینه وقتی چپ کلیک میکنی تو تکست1 فوکوس به تکست2 میپره من میخوام این کار نشه بعدش وقتی هم button = 2 مینویسی کار نمیکنه اگه میشه درستش کنید
درسته ، میتونی کد رو اینطوری بنویسی (البته جای command1 میتونی چیز دیگه ای بذاری)

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Command1.SetFocus
End Sub


ولی اینکه میگی با راست کلیک کار نمیکنه، من الان تست کردم مشکلی نداشت

[محسن واژدی]

سلام

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

کد دو تا رو جداگانه میخوام
سلام علیکم
در ساده ترین روش میتوانید شی ای مانند CommanButton را در خارج از محدوده فرم قرار دهید (مثلا X=-1000, Y=-1000) و فوکوس را همزمان با کلید راست و چپ با این شی منتقل کنید،
نمونه زیر را بررسی کنید

موفق باشید