تقسيم صفحه بصورت دايناميك (واقعا سخته)

[siamak-s]

سلام دوستان

من كدي رو مي خوام كه وقتي بهش يك عددي رو ميدي صفحه رو به تعداد اون عدد به مربع هاي مساوي تقسيم كنه ، براي اينكه بهتر متوجه بشين كد زير رو نوشتم .
فقط اين كد مشكل داره كه تويه يه سري از عدد ها مربع ها از كادر ميزنه بيرون و اينكه تويه يه سري اعداد مربع ها خيلي كوچيك و فضاي خالي صفحه خيلي زياد ميشه دوستان شما چي پيشنهاد مي كنيد ؟

كد زير رو تويه فرم لود اضافه كنيد و يك ليبل به نام Label هم اضافه كنيد و ايندكسشو صفر بديد . متغير lngCount رو تغيير بديد و نتيجه رو ببينيد .

lngCount = 387
lngTotal = 716352
isCon = True
stepper = 0
Do Until isCon = False
lngDivide = lngCount + stepper
If lngTotal Mod lngDivide = 0 Then
lngMasahat = lngTotal / lngDivide
isCon = False
Exit Do
End If
stepper = stepper + 1
Loop
lngWi = Sqr(lngMasahat) * 15
lngLeft = 300
lngTop = 300
For i = 1 To lngCount
Load Label(i)
Label(i).Width = lngWi
Label(i).Height = lngWi
Label(i).Left = lngLeft
Label(i).Top = lngTop
Label(i).Visible = True
lngLeft = lngLeft + lngWi
If lngLeft > 984 * 15 Then
lngLeft = 300
lngTop = lngTop + lngWi
End If
Next

واقعا ممنون ميشم اگر سريعا جواب بديد خيلي فوريه
ببخشيد تگ كدو پيدا نكردم !
ممنون

[ajlajlajl]

میتونم بپرسم منظورت از این تقسیم کردن چیه؟
یا صفحه ای که داری مربع ها رو توش تقسیم میکنی چه اندازه ایه؟
یه هاشیش چقدره؟

[siamak-s]

صفحه مونيتور رو مي خوام تقسيم كنم متغير lngTotal مساحت كل فضاي مفيدي هست كه برنامه مي تونه در اونجا مربع ها رو رسم كنه ،
اندازه مربع ها رو بايد خود برنامه به صورت اتوماتيك محاسبه كنه !
تويه كد بالا عدد هاي 105 ، 118 ، 205 و ... رو به متغير lngCount كه همون تعداد مربع هاي درخواستي كاربر هست بديد تا مشكل كد رو ببينيد
فرمتون رو هم فول اسكرين كنيد تا همه صفحه استفاده شه !
ممنون

[Darg]

ولی من هنوز یه چیزی رو نفهمیدم...!
چطور می خوای برنامه برات مثلا یک صفحه مستطیل شکل رو به 5 تا مربع یه اندازه تقسیم کنه...!!!
خوب معلومه که یه مقداری از بعضی از مربع ها می زنه بیرون!!!

[siamak-s]

مهم نيست كه حالا سطر آخر جاي چند تا مربع خالي باشه ، مهم اينه كه مربع بتونن عرض و طول صفحه رو بپوشونن حالا اگر جاي چند تا مربع هم خالي بود اشكالي نداري ، اصلا شما كدو اجرا كني متوجه ميشي !

[avini]

مگه نمیخای برنامت درست کار کنه ؟
اگر یک تیکش بزنه بیرون که دیگه فایده نداره خوب ؟

[smart_processor]

اگه بخوای خیلی دقیق کار کنی باید قید یه سری از اعداد رو بزنی ، کاریش نمیشه کرد ، مثلا کلا قید اعداد اول رو باید بزنی !
همچنین اگه یه نگاهی به اندازه صفحه بندازی ، میبینی همیشه نسبت طول صفحه به عرض صفحه یه مقدار ثابت ( 3/4 = 768 / 1024 ، 3/4 = 600 / 800 ، ... ) ، یعنی همون 3/4 که حدودا میشه 1.3 ، یعنی فقط با اعدادی مثل 108 که از حاصل ضرب 12 در 9 بدست میاد ( 3/4 = 9 /12 ) میتوی کل صفحه رو با مربع بپوشونی . حالا اگه نمی خوای خیلی دقیق کار کنی بجای 1.3 ، میتونی یه بازه تعریف کنی مثلا بین 1.2 تا 1.5 ...