PDA

View Full Version : ماتریس



atenaa
دوشنبه 06 آبان 1387, 11:17 صبح
سلام ببخشید یه سوال داشتم
من 9 تا label به شکل ماتریس دارم که می خوام رنگهاشو به صورت رندوم سیاه یا سفید کنم
باید چیکار کنم؟
خودم یه حلقه for از یک تا 9 گذاشتم
For i = 1 To 9
s = "Label" + LTrim(Str(i))
تو متغیر s که از نوع رشته است اسم هر 9 تا لیبل رو میسازم حالا چه طور می تونم به خصوصیت backcolor اون
دسترسی پیدا کنم؟؟؟
یکی کمک کنه :(

f.nabavi
دوشنبه 06 آبان 1387, 11:42 صبح
سلام. من این برنامه رو نوشتم شاید کمک کنه البته منطق نام گذاری شما رو نفهمیدم و لیبل ها رو به طور معمول و با کمک آرایه ای از کنترل ها نام گذاری کردم .

atenaa
دوشنبه 06 آبان 1387, 13:12 عصر
ممنون برنامتون کمکم کرد حالا می خوام برنامه رو جوری کامل کنم که در ابتدا تمام لیبل ها invisible باشن
و دو تا تکست باکس داشته باشم که تعداد سطر و ستون ماتریس و از ورودی می گیره و به نسبت اون لیبل ها رو
visible می کنه من می خوام بدونم اینکارو باید با select case انجام بدم؟
برای ویزیبل کردن لیبلها باید از for استفاده کنم؟
راهنماییم می کنید؟البته ماتریس من حد اکثر می تونه 12*12 باشه روی همین 3*3 اگه کمکم کنید ممنون میشم

f.nabavi
دوشنبه 06 آبان 1387, 14:10 عصر
به مقداری که در tag هر کدوم از لیبل ها نوشتم دقت کن. اون نشان دهنده سطر و ستون لیبل در ماتریس هست

atenaa
سه شنبه 07 آبان 1387, 09:52 صبح
یک دنیا ممنون از برنامتون و کمکتون و اینکه من و با خاصیت tag آشنا کردید مشکل من همینجا بود
که نمی دونستم چه طوری سطر و ستون و پیدا کنم
مرسی
اینم برنامه ای که می خواستم بنویسم که حداکثر 12*12 است
بازم ممنون

atenaa
دوشنبه 13 آبان 1387, 12:43 عصر
یک سوال در برنامه بالا اگه من tag یک label رو که درون آرایه ای از لیبلهاست رو داشته باشم
چه طور می تونم به اندیس اون لیبل دسترسی پیدا کنم
ممنون

hamed aj
دوشنبه 13 آبان 1387, 23:48 عصر
با سلام





int i=new int();

For i = 0 To max_index_number
If (Form1.Label1(i).Tag = "strTag") Then
MsgBox i
End If
Next i




strTag = تگ مورد نظر
max_index_number = ایندکس آخرین label


فکر کنم برای Maze Solving باشه اینطور نیست؟