تقسيم Picture به چند بخش مانند جدول
سلام دوستان من يه تصوير دارم که ميخوام با کليک بر روي اون ، تصوير رو به 15 قسمت تقسيم کنم و هر قسمت رو هم به حالت انخاب در بيارم و از هر قسمت هم يک عدد برام برگردونه
براي درک بهتر از منظورم ابتدا به اين عکس نگاه کنيد
http://s16.picofile.com/file/8412033600/1.bmp
حالا با اين کد تونستم در محور Y تصوير رو به درستي به 5 قسممت تقسيم کنم
Dim BrushNumber As Integer
Private Sub PicBrash_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
BrushNumber = Int(Y / (PicBrash.ScaleHeight / 5))
PicBrash.Cls
PicBrash.Line (0, BrushNumber * (PicBrash.ScaleHeight / 5))-(PicBrash.ScaleWidth / 3, (BrushNumber + 1) * (PicBrash.ScaleHeight / 5)), vbRed, BF
End If
End Sub
توجه داشته باشيد PicBrash نامم PictureBox منه و متغير BrushNumber همم عدد هايي که ميخوام رو دريافت ميکنه
به اين دوتا تصوير همم نگاهيي بندازيد که هنگام کليک بر روي تصوير اين اتفاق افتاده و به درستي کار ميکنه
اما در محور X هر کاري کردم جور در نياومد تا اينجا فکر کنم منظورمو کامل متوجه شده باشيد اگه ممکنه کمک کنيد تا با کليک بر روي تصوير به 15 قسمت تقسيم بشه و هر قسمت هم مانند تصاويري که نشون دادم به حالت انتخاب در بياد و متغير BrushNumber شمارنه اون تقسيمات بشه
پاسخ با نقل قول