پرسش یکی کردن کدها

[میثم مقدم نیا]

سلام
آیا امکانش هست کدهای زیر را یکی کرد

Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    TextBox1.BackColor = vbRed
End Sub

Private Sub TextBox2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    TextBox2.BackColor = vbBlue
End Sub

Private Sub TextBox3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    TextBox3.BackColor = vbOrange
End Sub 

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

مثلا مثل کد زیر

Private Sub USERFORM_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    TextBox1.BackColor = BackColor
    TextBox2.BackColor = BackColor
    TextBox3.BackColor = BackColor
End Sub 

امید وارم منظورم را رسونده باشم

[میثم مقدم نیا]

دوستان کسی نیست که کمکم کنه؟

[میثم مقدم نیا]

جواب نبود؟؟؟؟؟؟؟؟؟

[میثم مقدم نیا]

سلام
آیا امکانش هست کدهای زیر را یکی کرد

Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    TextBox1.BackColor = vbRed
End Sub

Private Sub TextBox2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    TextBox2.BackColor = vbBlue
End Sub

Private Sub TextBox3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    TextBox3.BackColor = vbOrange
End Sub 

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

مثلا مثل کد زیر

Private Sub USERFORM_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    TextBox1.BackColor = BackColor
    TextBox2.BackColor = BackColor
    TextBox3.BackColor = BackColor
End Sub 

امید وارم منظورم را رسونده باشم

دوستان کسی راهکاری برای تایپ نکردن کد تکرای نداره حداقل یه جوابی بدید بدونم راهی هست یا نه دنبالش بگردم یا نه؟

[majid_mx4]

سلام

دوست عزیز اگر منظورتان رنگی شدن textbox ها بصورت همزمان است که با تغییر اندکی در کد خودتان اینکار انجام میشود مانند کد زیر

Private Sub USERFORM_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    TextBox1.BackColor = vbRed
    TextBox2.BackColor = vbBlue
    TextBox3.BackColor = vbOrange
End Sub

اگر منظورتان چیز دیگری است نیاز به توضیح بشتر داره که میخواهید این کد ها به چه شکل یکی بشن

موفق باشید میر

[میثم مقدم نیا]

سلام

دوست عزیز اگر منظورتان رنگی شدن textbox ها بصورت همزمان است که با تغییر اندکی در کد خودتان اینکار انجام میشود مانند کد زیر

Private Sub USERFORM_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    TextBox1.BackColor = vbRed
    TextBox2.BackColor = vbBlue
    TextBox3.BackColor = vbOrange
End Sub

اگر منظورتان چیز دیگری است نیاز به توضیح بشتر داره که میخواهید این کد ها به چه شکل یکی بشن

موفق باشید میر

با سلام خدمت استاد بزرگوارم

این دوتا کد بالا و پایینی من باهم مرتبط هستند اولی برای رنگ کردن هنگامی که ماوس روی TextBox میره و بخش دوم کد که شما هم از همون استفاده کردید برای برگرداندن رنگ به حالت قبل است

بزارید یه مثال دیگه ای عنوان کنم
الان من کدی دارم که کاربر مجبور به تایپ فقط حروف فارسی در TextBox میکنه حال من 30 تا TextBox دارم، اگه بخوام برای هریک این کد را جدا گانه تعریف کنم صفحه کد من خیلی شلوغ و سنگین میشه چطور میتونم از یک کد برای 30 تا TextBox دیگه استفاده کنم تا صفحه کدم شلوغ نشود به نوعی خلاصه نویسی کنم
در UserForm تایپ فارسی فایل پیوست در TexBox1 از کد زیر استفاده کردم

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 If KeyAscii >= 97 And KeyAscii <= 122 Then SendKeys Chr(8)
End Sub

Private Sub TextBox1_Change()
SwitchKeyboardLang (LANG_persian)
If Right(TextBox1, 1) = ChrW(32) Or IsNumeric(Right(TextBox1, 1)) Then
TextBox1.Value = Left(TextBox1, Len(TextBox1) - 1)
End If
End Sub 

این دو مثال را در یک فایل پیوست میکنم لطفا ببنید و راهنمایم کنید