ایجاد صفحات شطرنجی در ویژوال بیسیک

[MahmoodGH]

سلام دوستان
من یه سوال در مورد صفحات شطرنجی در ویژوال بیسیک دارم.
منظورم از صفحات شطرنجی اینه که ما چطور می تونیم یه Picture Box رو به N قسمت تقسیم کنیم. یعنی مثل صفحه ی شطرنج اونو قطعه قطعه کنیم.

[MBG73]

این از طرف آقای xxxxx-xxxxx هست :


سلام،
تصویر باید در هر دو جهت به 6 قسمت تقسیم بشه. برای این کار از دو حلقه تو در تو استفاده کنید. نقطه شروع (0,0) هست و پایان( Picture1.ScaleWidth / 6, Picture1.ScaleHeight / 6) درون بدنه حلقه پیکسلهای تصویر رو با تابع GetPixel و یا متد Point دریافت کنید و در یک Picture دیگه اون رو set کنید.
ScaleMode تصویر رو روی Pixel قرار بدید

http://barnamenevis.org/forum/showthread.php?t=191403

[MahmoodGH]

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

[program2vb]

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


Private Sub Form_Click()
For i = 0 To Me.Height Step 255
Me.Line (0, i)-(Me.Width, i)
Next
For j = 0 To Me.Width Step 255
Me.Line (j, 0)-(j, Me.Height)
Next
End Sub



اینم یه کد دیگه است خطهای قرمز میلیمتر و خط سیاه سانتیمتر رو نشون میده
برای اینکه بهتر بتونین ازش استفاده کنین در قسمت Resize فرمتون ببویسید .


Me.ScaleMode = 6
Me.ForeColor = vbRed
For i = 0 To Me.Height Step 1
Me.Line (0, i)-(Me.Width, i)
Next
For j = 0 To Me.Width Step 1
Me.Line (j, 0)-(j, Me.Height)
Next
Me.ScaleMode = 7
Me.ForeColor = vbBlack
For i = 0 To Me.Height Step 1
Me.Line (0, i)-(Me.Width, i)
Next
For j = 0 To Me.Width Step 1
Me.Line (j, 0)-(j, Me.Height)
Next


یا علی