اینو چه جوری درست کنم ؟

ما 81 تا تکست باکس روی فرم داریم . به شکل زیر

کد:

---

txt1  txt2  txt3        txt28 txt29 txt30        txt55 txt56 txt57
txt4  txt5  txt6        txt31 txt32 txt33        txt58 txt59 txt60
txt7  txt8  txt9        txt34 txt35 txt36        txt61 txt62 txt63
txt10 txt11 txt12      txt37 txt38 txt39        txt64 txt65 txt66
txt13 txt14 txt15      txt40 txt41 txt42        txt67 txt68 txt69
txt16 txt17 txt18      txt43 txt44 txt45        txt70 txt71 txt72
txt19 txt20 txt21      txt46 txt47 txt48        txt73 txt74 txt75
txt22 txt23 txt24      txt49 txt50 txt51        txt76 txt77 txt78
txt25 txt26 txt27      txt52 txt53 txt54        txt79 txt80 txt81

---

من میخوام وقتی که توی یکی از این تکست باکس ها عددی رو ینویسم (اعداد میتونه از 1 تا 9 باشه ) اونوقت چک کنه که آیا این عدد توی اون سطر یا ستون و یا توی اون بلوک (مثلا تکست باکس های 1 تا 9 یا 37 تا 45 ) هست یا نه . اگه بود رنگ Backcolor اون تکست باکس قرمز بشه و وقتی که اصلاح شد دوباره رنگش به حالت عادی یعنی سفبد برگرده . امید وارم که منظورم رو خوب رسونده باشم.

از یه لیست یا آرایه استفاده کن،
با استفاده از ایندکس ، راحت میتونی کارتو انجام بدی

مثلا چه جوری ؟ یه مثال با کد بگید .

---------- Post added at 07:34 PM ---------- Previous post was at 07:32 PM ----------

مثلا چه جوری ؟ یه مثال با کد بزنید

کد:

---

List<TestBox> lbs = new List<TextBox>();

---

این تعریفش بود.
حالا

کد:

---

lbs.Add(textBox1);
lbs.Add(textBox2);
.
.
.
lbs.Add(textBox81);

---

حالا، با ایندکس مختص به لیست lbs ، میتونی برنامه رو پیاده کنی،
اونم توضیح میخوای یا خودت در موردش فکر کردی؟! :دی

---------- Post added at 07:41 PM ---------- Previous post was at 07:38 PM ----------

برای قسمت دوم، از یه حلقه foreach ، استفاده کن، که this.Controls رو بخونه، بعد چک کنه که آیا از نوع TextBox هست یا نه؟! بعدش به لیست اضافش کن،

نميدونم . يا شما درست سوال من رو متوجه نشديد يا من .
جواب شما اصلا شبيه اون چيزي كه من ميخوام نيست. لطفا يك بار ديگه سوال رو بخونيد

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

ولی یه راه جالب تر برات می ذارم شاید بهتر باشه.

یه کنترلی هست که ارایه ای از کنترل های دیگه مثل همون تکست باکس یا دکمه و ... رو در خودش نگه م یداره و بصورت دستی می تونی کنترل ها را بهش اضافه یا حذف کنی.

رویداد های تمامی این کنترل ها هم بصورت مشترک در رویدهادهای همان کنترل ارایه قایل دسترسی هستند.

مثلا واسه مثالی که خودت زدی , کنترل آرایه رو که بصورت DLL هست رو به پروژه ات اضافه کن تا در تول باکس کنترل جدیدی به نام Control array اضافه شود. حالا کنترل رو بنداز رو فرمت, در سینی کامپوننت های فرم اضافه می شود و با راست کلیک بر روی آن و انتخاب زیر منوی Add or remove controls می تونی کنترل های تکست باکس رو بهش اضافه کنی.

حالا تمامی کنترل های تکست باکس شما رویدادهای مشترکی خواهند داشت که برای گرفتن ایندکس هر کنترل در آرایه می تونی مشابه با زیر عمل کنی. مثلا نام کنترل ارایه شما Controlarray1 هست

if arraycontrol1.controls.indexof(sender)=2 then
control array1.controls(2).backcolor=Color.Blue
end if


اگه سوالی بود مطرح کن

لینک دانلود کنترل

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اصلا مشکل من آرایه نیست . سوال من اینه که :

من میخوام وقتی که توی یکی از این تکست باکس ها عددی رو ینویسم (اعداد میتونه از 1 تا 9 باشه ) اونوقت چک کنه که آیا این عدد توی اون سطر یا ستون و یا توی اون بلوک (مثلا تکست باکس های 1 تا 9 یا 37 تا 45 ) هست یا نه . اگه بود رنگ Backcolor اون تکست باکس قرمز بشه و وقتی که اصلاح شد دوباره رنگش به حالت عادی یعنی سفبد برگرده .

در ضمن آدرسی رو که گذاشتید ف + ی + ل + ت + ر هست .

خوب دقیقا منظور بنده هم همین بود.

شما ایندکس تکست باکس رو می گیری مثلا 10 حالا با توجه به قواعد خودت متن این کنترل یعنی کنترل با ایندکس 10 رو یا متن مجموعه ای از ایندکس سایر دکمه ها مقایسه کن اگر شرایط برقرار بود رنگش رو قرمز کن کن

یه مثال ساده برات می ذارم

فرض کن 9عدد کنترل تکست باکس داریم با ایندکس های 0 تا 8 که در یک کنترل ارایه به نام controlarray1 قرار دارند.

حالا در رویداد Textchange کنترل ارایه می تونیم شرایط رو چک کنیم

اول ایندکس کنترل تکست باکس فعلی رو می گیریم

Dim a as integer=controlarray1.controls.indexof(sender)

حالا ایندکس کنترلی رو که کاربر در حال تایپ هست داریم.

الان باید چک کنیم که ایا عدد این تکست باکس با عدد موجود در کنترل های پنجم و هشتم یکسان است یا نه؟

If ControlArray1.Controls(a).Text = ControlArray1.Controls(5).Text then

ControlArray1.Controls(a).BackColor = Color.Red

else

..........................................

ببینید کد شما مشکلی نداره ولی این کد برای زمانی که تعداد کنترل ها کم باشه همون طور که خودتون گفتید و میشه همه کنترل ها رو یکی
یکی چک کرد ولی اگه خوب به سوال من دقت کرده باشید 81 کنترل تکست باکس هست اینجا دیگه نمیشه از کد شما استفاده کرد . اول باید
بفهمید که کاربر توی کدوم تکست باکس مقدار وارد کرده که این مشکلی نیست مثلا فرض کنید باتوجه به چینش تکس باکس هایی که من توی
سوال گفتم توی تکست باکس 41 یک مقدار قرار داده بشه . حالا ما باید چک کنیم که در تکست باکس های 29،32،35،38،44،47،50،53
مقداری رو که توی تکست 41 نوشتیم وجود داره یا نه اگه داشت که رنگ تکس 41 قرمز میشه واگه نه که سفید . الآن ما فقط ستون مورد نظر رو
چک کردیم در حالی که باید سطر مورد نظر و همچنین بلوک مورد نظر رو هم چک کنیم . اگه توی تکس باکس 41 مقداری وارد شده باشه سطر و
ستون و بلوک هایی که باید چک بشه مثل زیر میشه :
سطر : 13،14،15،40،42،67،68،69
ستون : 29،32،35،38،44،47،50،53
بلوک : 37 ، 38 ، 39 ، 40 ، 42 ، 43 ، 44 ، 45
فکر کنم که دیگه خوب توضیح داده باشم و فهمیده باشید که چی میخوام

من خیلی شفاف توضیح دادم!
معلومه اشراف درستی بر دستورات c# ندارین، توصیه میکنم کتابی رو در این زمینه مطالعه کنین

اگر اشتباه نکنم شما می خواهید برنامه جدول سودوکو بنویسید.
درسته.

بله . تقریبا کامل هست و مونده همین قسمتش .

و اینکه و دارم توی vb.net می نویسم نه توی C# .

شما سوال رو درست بخونید و جواب کامل رو بگید و حاشیه نرید.

دوست من ، سی شارپ و ویبی هیچ فرقی ندارن، جوابتون با دوستان، من همون حاشیمو میرم

نقل قول:

---

نوشته شده توسط pishi0014 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

دوست من ، سی شارپ و ویبی هیچ فرقی ندارن، جوابتون با دوستان، من همون حاشیمو میرم

---

دوست من چرا ناراحت میشید .قصد بدی نداشتم.
مثلا همین پست یکی مونده به آخر رو که توضیح دادم کدشو بزارید .که برفرض تکست باکس 41 رو گفتم.
و حالا که سی شارپ و ویبی فرقی ندارن پس ویبی

سلام دوست عزیز.
شما باید از روش آرایه های دو بعدی استفاده کنید.
هرچند اصلاً حاضر نیستم 81 کادر متن رو فرمم ببینم ولی میگم براتون.

یک لیست از نوع لیست ایجاد میکنید که مشخص کننده سطرها و ستون های کادر متن ها باشه:

کد:

---

List<List<TextBox>> TextColumn = new List<List<TextBox>>();

---

حالا کادر متن هارو به صورت لیست در سطر ها میریزیم:

کد:

---

            TextColumn.Add(new List<TextBox>() { textBox1, textBox2, textBox3, textBox4, textBox5, textBox6, textBox7, textBox8, textBox9 });
            TextColumn.Add(new List<TextBox>() { textBox10, textBox11, textBox12, textBox13, textBox14, textBox15, textBox16, textBox17, textBox18 });
            TextColumn.Add(new List<TextBox>() { textBox19, textBox20, textBox21, textBox22, textBox23, textBox24, textBox25, textBox26, textBox27 });
            TextColumn.Add(new List<TextBox>() { textBox28, textBox29, textBox30, textBox31, textBox32, textBox33, textBox34, textBox35, textBox36 });
            TextColumn.Add(new List<TextBox>() { textBox37, textBox38, textBox39, textBox40, textBox41, textBox42, textBox43, textBox44, textBox45 });
            TextColumn.Add(new List<TextBox>() { textBox46, textBox47, textBox48, textBox49, textBox50, textBox51, textBox52, textBox53, textBox54 });
            TextColumn.Add(new List<TextBox>() { textBox55, textBox56, textBox57, textBox58, textBox59, textBox60, textBox61, textBox62, textBox63 });
            TextColumn.Add(new List<TextBox>() { textBox64, textBox65, textBox66, textBox67, textBox68, textBox69, textBox70, textBox71, textBox72 });
            TextColumn.Add(new List<TextBox>() { textBox73, textBox74, textBox75, textBox76, textBox77, textBox78, textBox79, textBox80, textBox81 });

---

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

کد:

---

        private void setColor(TextBox textBox, Color backColor)
        {
            textBox.BackColor = Color.White;
            int x = -1, y = -1;
            for (int i = 0; i < TextColumn.Count; i++)
            {
                y = TextColumn[i].IndexOf(textBox);
                if (y != -1)
                {
                    x = i;
                    break;
                }
            }
            if (x != -1 && y != -1)
            {
                for (int i = 0; i < TextColumn.Count; i++)
                {
                    if ((TextColumn[x][i].Text == textBox.Text && TextColumn[x][i] != textBox) || (TextColumn[i][y].Text == textBox.Text && TextColumn[i][y] != textBox))
                    {
                        textBox.BackColor = backColor;
                    }
                }
            }
        }

---

استفاده:

کد:

---

setColor(textBox1, Color.Red);

---

موفق باشید.

حالا کادر متن هارو به صورت لیست در سطر ها میریزیم:
کد:
TextColumn.Add(new List<TextBox>() { textBox1, textBox2, textBox3, textBox4, textBox5, textBox6, textBox7, textBox8, textBox9 });
TextColumn.Add(new List<TextBox>() { textBox10, textBox11, textBox12, textBox13, textBox14, textBox15, textBox16, textBox17, textBox18 });
TextColumn.Add(new List<TextBox>() { textBox19, textBox20, textBox21, textBox22, textBox23, textBox24, textBox25, textBox26, textBox27 });
TextColumn.Add(new List<TextBox>() { textBox28, textBox29, textBox30, textBox31, textBox32, textBox33, textBox34, textBox35, textBox36 });
TextColumn.Add(new List<TextBox>() { textBox37, textBox38, textBox39, textBox40, textBox41, textBox42, textBox43, textBox44, textBox45 });
TextColumn.Add(new List<TextBox>() { textBox46, textBox47, textBox48, textBox49, textBox50, textBox51, textBox52, textBox53, textBox54 });
TextColumn.Add(new List<TextBox>() { textBox55, textBox56, textBox57, textBox58, textBox59, textBox60, textBox61, textBox62, textBox63 });
TextColumn.Add(new List<TextBox>() { textBox64, textBox65, textBox66, textBox67, textBox68, textBox69, textBox70, textBox71, textBox72 });
TextColumn.Add(new List<TextBox>() { textBox73, textBox74, textBox75, textBox76, textBox77, textBox78, textBox79, textBo


من این رو پیشنهاد میکنم، البته به نظرم، دو بعدی نیازی نیست:31:
ولی بدون دو بعدی بکم سخت تر میشه، پس بیخیلش:31:

این روش پیشنهاد میشه :

کد:

---


List<List<TextBox>> TextColumn = new List<List<TextBox>>();
            List<TextBox> unc = new List<TextBox>();
            int i = 0;
            foreach(Control c in this.Controls)
                if (c.GetType() == typeof(TextBox))
                {
                    unc.Add((TextBox)c);
                    i++;
                    if (i == 9)
                    {
                        i = 0;
                        TextColumn.Add(unc);
                        unc = new List<TextBox>();
                    }
                }

---

نقل قول:

---

من این رو پیشنهاد میکنم، البته به نظرم، دو بعدی نیازی نیست [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
ولی بدون دو بعدی بکم سخت تر میشه، پس بیخیلش [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

این روش پیشنهاد میشه :

---

منم با حلقه اینکارو کردم:31: ولی برای اینکه خوانا تر بشه از اون حالت در آوردم.
یعنی اونهمه کد رو که میبینی ویژوال استادیو برام نوشته:31:.

نقل قول:

---

نوشته شده توسط hamishebahar [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

منم با حلقه اینکارو کردم:31: ولی برای اینکه خوانا تر بشه از اون حالت در آوردم.
یعنی اونهمه کد رو که میبینی ویژوال استادیو برام نوشته:31:.

---

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

---------- Post added at 02:04 PM ---------- Previous post was at 02:03 PM ----------

یادمه، این روش رو از خودت یاد گرفتم، شایدم از مدیر تالار :دی

کد شما c بود ومن تبدیل به ویبی کردمش شد این :

کد:

---

Dim TextColumn = New List(Of TextBox)
    Private Sub setColor(ByVal TextBox As TextBox, ByVal BackColor As Color)
        TextBox.BackColor = Color.White
        Dim x As Integer = -1
        Dim Y As Integer = -1
        Dim i As Integer = 0
        While (i < TextColumn.Count)
            Y = TextColumn(i).IndexOf(TextBox)
            If Y <> -1 Then
                x = i
            End If
            i = i + 1
        End While
        If x <> -1 And Y <> -1 Then
            While (i < TextColumn.Count)
                If ((TextColumn(x)(i).Text = TextBox.Text And TextColumn(x)(i) <> TextBox.Text) Or (TextColumn(i)(Y).Text = TextBox.Text And TextColumn(i)(Y) <> TextBox.Text)) Then
                    TextBox.BackColor = BackColor
                End If
            End While
        End If
    End Sub

        TextColumn.Add(TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, TextBox7, TextBox8, TextBox9)
        TextColumn.Add(TextBox10, TextBox11, TextBox12, TextBox13, TextBox14, TextBox15, TextBox16, TextBox17, TextBox18)
        TextColumn.Add(TextBox19, TextBox20, TextBox21, TextBox22, TextBox23, TextBox24, TextBox25, TextBox26, TextBox27)
        TextColumn.Add(TextBox28, TextBox29, TextBox30, TextBox31, TextBox32, TextBox33, TextBox34, TextBox35, TextBox36)
        TextColumn.Add(TextBox37, TextBox38, TextBox39, TextBox40, TextBox41, TextBox42, TextBox43, TextBox44, TextBox45)
        TextColumn.Add(TextBox46, TextBox47, TextBox48, TextBox49, TextBox50, TextBox51, TextBox52, TextBox53, TextBox54)
        TextColumn.Add(TextBox55, TextBox56, TextBox57, TextBox58, TextBox59, TextBox60, TextBox61, TextBox62, TextBox63)
        TextColumn.Add(TextBox64, TextBox65, TextBox66, TextBox67, TextBox68, TextBox69, TextBox70, TextBox71, TextBox72)
        TextColumn.Add(TextBox73, TextBox74, TextBox75, TextBox76, TextBox77, TextBox78, TextBox79, TextBox80, TextBox81)

---

ولی خطای زیر رو میده :

کد:

---

Overload resolution failed because no accessible 'Add' accepts this number of arguments.

---

اگه مشکل حل شد که شد وگر نه خودم یه راه دیگه پیدا کردم و همونو استفاده میکنم

خوب شما نباید تبدیل میکردی :دی [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اشتباه تبدیل شده :دی [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

---------- Post added at 04:59 PM ---------- Previous post was at 04:56 PM ----------

چرا روشی که گفتمو تبدیل نمیکنی؟!

کد:

---

TextColumn.Add(New List(Of TextBox)() From { _
        textBox1, _
        textBox2, _
        textBox3, _
        textBox4, _
        textBox5, _
        textBox6, _
        textBox7, _
        textBox8, _
        textBox9 _
})
TextColumn.Add(New List(Of TextBox)() From { _
        textBox10, _
        textBox11, _
        textBox12, _
        textBox13, _
        textBox14, _
        textBox15, _
        textBox16, _
        textBox17, _
        textBox18 _
})
TextColumn.Add(New List(Of TextBox)() From { _
        textBox19, _
        textBox20, _
        textBox21, _
        textBox22, _
        textBox23, _
        textBox24, _
        textBox25, _
        textBox26, _
        textBox27 _
})
TextColumn.Add(New List(Of TextBox)() From { _
        textBox28, _
        textBox29, _
        textBox30, _
        textBox31, _
        textBox32, _
        textBox33, _
        textBox34, _
        textBox35, _
        textBox36 _
})
TextColumn.Add(New List(Of TextBox)() From { _
        textBox37, _
        textBox38, _
        textBox39, _
        textBox40, _
        textBox41, _
        textBox42, _
        textBox43, _
        textBox44, _
        textBox45 _
})
TextColumn.Add(New List(Of TextBox)() From { _
        textBox46, _
        textBox47, _
        textBox48, _
        textBox49, _
        textBox50, _
        textBox51, _
        textBox52, _
        textBox53, _
        textBox54 _
})
TextColumn.Add(New List(Of TextBox)() From { _
        textBox55, _
        textBox56, _
        textBox57, _
        textBox58, _
        textBox59, _
        textBox60, _
        textBox61, _
        textBox62, _
        textBox63 _
})
TextColumn.Add(New List(Of TextBox)() From { _
        textBox64, _
        textBox65, _
        textBox66, _
        textBox67, _
        textBox68, _
        textBox69, _
        textBox70, _
        textBox71, _
        textBox72 _
})
TextColumn.Add(New List(Of TextBox)() From { _
        textBox73, _
        textBox74, _
        textBox75, _
        textBox76, _
        textBox77, _
        textBox78, _
        textBox79, _
        textBox80, _
        textBox81 _
})

---

---------- Post added at 05:00 PM ---------- Previous post was at 04:59 PM ----------

این تبدیل شده ی روش دوم :

کد:

---


Dim TextColumn As New List(Of List(Of TextBox))()
Dim unc As New List(Of TextBox)()
Dim i As Integer = 0
For Each c As Control In Me.Controls
        If c.[GetType]() = GetType(TextBox) Then
                unc.Add(DirectCast(c, TextBox))
                i += 1
                If i = 9 Then
                        i = 0
                        TextColumn.Add(unc)
                        unc = New List(Of TextBox)()
                End If
        End If
Next

---

کد هایی که به شکل زیر بودند از Form به بعدش زیرش خط کشیده شده بود :

کد:

---

TextColumn.Add(New List(Of TextBox)() From { _
 textBox1, _
 textBox2, _
 textBox3, _
 textBox4, _
 textBox5, _
 textBox6, _
 textBox7, _
 textBox8, _
 textBox9 _
})

---

که وقتی تبدیل به زیرش کردم فقط زیر Form خط می کشه .:

کد:

---

TextColumn.Add(New List(Of TextBox)() (form {TextBox1,textBox2, textBox3, textBox4, textBox5, textBox6, textBox7, textBox8, textBox9 }))

---

توی کد دوم هم که در خط زیر خطا وجود داره :

کد:

---

If c.[GetType]() = GetType(TextBox) Then

---

البته من قصد داشتم که به جای GetType دومی از TypeOf استفاده کنم ولی نشد .
یه سوال پیش اومده برام . شما این کد ها رو توی ویبی 2008 امتحان کردید ؟

نه ، من کلا با ویبی مشکل دارم :دی

ما یه آرایه به صورت زیر داریم :

کد:

---

Dim Inx(9),Value(9) As Integer

---

که توی هر قسمتش یه مقدار عددی وجود داره مثلا مثل زیر :

کد:

---

                    Value(1) = "1"
                    Value(2) = "2"
                    Value(3) = "5"
                    Value(4) = "7"
                    Value(5) = "6"
                    Value(6) = "2"
                    Value(7) = "9"
                    Value(8) = "2"
                    Value(9) = "1"

---

و توی این بخش ایندکس ها قرار میگیره :

کد:

---

                    Inx(1) = 1
                    Inx(2) = 2
                    Inx(3) = 3
                    Inx(4) = 28
                    Inx(5) = 29
                    Inx(6) = 30
                    Inx(7) = 31
                    Inx(8) = 32
                    Inx(9) = 33

---

حالا می خواهیم بفهمیم که کدوم خونه ها مقدار تکراری مثل هم دارن و به ما جواب رو بده . مثلا با توجه به مثال بالا دو جواب میده :

کد:

---

2,6,8

---

که برای تکرار عدد 2 هست و

کد:

---

1,9

---

برای تکرار عدد یک .
حالا میشه اون خونه هایی رو که مقدار تکراری دارن رو رنگ متنشون رو قرمز کرد و بقیه رو سیاه .
مثلا برای تکرار عدد یک خونه های 1 و 9 رو به ما داده و ما از توی متغیر Inx میزیم و ایندکس تکست باکس ها رو در میاریم و رنگ متنشون رو تغییر میدیم . مثلا مثل زیر :

کد:

---

Me.Controls("TextBox" & Inx(9)).ForeColor = Color.Red
                    Me.Controls("TextBox" & Inx(1)).ForeColor = Color.Red

---

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

سلام.
این که 18 تا بیشتر خونه نداره!!!
چطوری میخواین جواب بگیرین؟
شما باید یک آرایه دوبعدی تعریف کنید که 9 خونه داشته باشه.9 * 9 = 81.
آخر اون کد رو تبدیل کردین به VB؟

تبدیل شده ش رو گذاشتم . گفتم که ارروز میده.

بله فعلا 9 تا خونه هست نه 18 تا . اگه بشه این 9 خونه رو با این روش درست کنم بقیه رو هم درست میکنم.

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