یک کد میخوام که از وارد چیزای تکراری در برنامه جلوگیری کنه

[Veteran]

سلام دوستان ببخشین که باز مزاحم شدم :لبخند:
من دارم ی برنامه مینوسیم در حد مبتدی
چندتا textbox دارم
یک کدی میخواستم که مثلا اگه توی textbox1 یک چیزی وارد کردن مثلا عدد 2 رو وارد کردن دیگه نتونن دوباره 2 رو توی
textbox2 بزنن
من توی برنامم از 9 تا textbox استفاده کردم
میخوام کاربر نتونه چیزای تکراری بزنه
میشه راهنمایی کنین
ممنون

[M.T.P]

می تونی برای همه تکس باکس ها از این کد نمونه برداری و اسم Text1 رو با اسم Textbox مقصد عوض کنی و یا اینکه یک روال ازش بسازی که بسیار راحت تر هست.

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Chrr As String
Dim Ctl As Control

Chrr = Chr(KeyAscii)
For Each Ctl In Me.Controls
If TypeOf Ctl Is TextBox And Ctl.Name <> Text1.Name Then
If Not InStr(1, Ctl.Text, Chrr) = 0 Then KeyAscii = 0
End If
Next Ctl
End Sub

[Veteran]

داداش با این کد فقط چیزی که توی text1 قرار میگیره دیگه نمیشه وارد کرد مثلا اگه توی text3 بزنی 4 میشه توی text4 هم بزنی 4
اینجوزی نمیخواستم
میخوام کلا نشه چیزایی که توی دیگر تکست باکس ها وارد شده
دیگه وارد کرد

[Restlesa]

می تونی یه آرایه ی 9 بعدی تعریف کنی و در رویداد Keyascii تکست باکس 1 اعدادی رو که وارد کردی رو تفکیک کنی و هر کدوم را داخل یه بعد آرایه بریزی و در رویداد Keyascii تکست باکس 2 اعداد وارد شده رو چک کنی که آیا با مقادیر آرایه هات یکی هست یا نه

[M.T.P]

داداش با این کد فقط چیزی که توی text1 قرار میگیره دیگه نمیشه وارد کرد مثلا اگه توی text3 بزنی 4 میشه توی text4 هم بزنی 4
اینجوزی نمیخواستم
میخوام کلا نشه چیزایی که توی دیگر تکست باکس ها وارد شده
دیگه وارد کرد

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