-
کد هایی که به شکل زیر بودند از 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 هست و
برای تکرار عدد یک .
حالا میشه اون خونه هایی رو که مقدار تکراری دارن رو رنگ متنشون رو قرمز کرد و بقیه رو سیاه .
مثلا برای تکرار عدد یک خونه های 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 خونه رو با این روش درست کنم بقیه رو هم درست میکنم.
-
