mmbguide
دوشنبه 14 مهر 1393, 19:44 عصر
سلام به همه
من روی فرم یک PictureBox قرار دادم که قرار یک عکس رو نمایش بده. هم چنین دو ScrollBar عمودی و افقی نیز قرار دادم که مقدار Max و Min اون ها با توجه به ابعاد تصویر تغییر میکنه. حالا من قصد دارم هر زمان که ScrollBarها را جاجا می کنم یک خط افقی و عمودی در مختصات مشخصی از تصویر نمایش داده بشه.
124285
برای این کار من از کد زیر استفاده کردم. اما یک مقدار که ScrollBar ها رو جابجا میکنم با پیغام Out of memeory مواجه میشم و برنامه بسته میشه.
[VB]Me.PictureBox1.Image = Nothing
Dim b As New Bitmap("C:\Users\Public\Pictures\Sample Pictures\Penguins.JPG")
Dim G As Graphics = Graphics.FromImage(b)
G.DrawLine(Pens.White, Me.HScrollBar1.Value, 0, Me.HScrollBar1.Value, b.Width)
G.DrawLine(Pens.White, 0, Me.VScrollBar1.Value, b.Width, Me.VScrollBar1.Value)
G.DrawRectangle(Pens.White, Me.HScrollBar1.Value - 10, Me.VScrollBar1.Value - 10, 20, 20)
Me.PictureBox1.Image = b
Me.PictureBox1.Update()
من روی فرم یک PictureBox قرار دادم که قرار یک عکس رو نمایش بده. هم چنین دو ScrollBar عمودی و افقی نیز قرار دادم که مقدار Max و Min اون ها با توجه به ابعاد تصویر تغییر میکنه. حالا من قصد دارم هر زمان که ScrollBarها را جاجا می کنم یک خط افقی و عمودی در مختصات مشخصی از تصویر نمایش داده بشه.
124285
برای این کار من از کد زیر استفاده کردم. اما یک مقدار که ScrollBar ها رو جابجا میکنم با پیغام Out of memeory مواجه میشم و برنامه بسته میشه.
[VB]Me.PictureBox1.Image = Nothing
Dim b As New Bitmap("C:\Users\Public\Pictures\Sample Pictures\Penguins.JPG")
Dim G As Graphics = Graphics.FromImage(b)
G.DrawLine(Pens.White, Me.HScrollBar1.Value, 0, Me.HScrollBar1.Value, b.Width)
G.DrawLine(Pens.White, 0, Me.VScrollBar1.Value, b.Width, Me.VScrollBar1.Value)
G.DrawRectangle(Pens.White, Me.HScrollBar1.Value - 10, Me.VScrollBar1.Value - 10, 20, 20)
Me.PictureBox1.Image = b
Me.PictureBox1.Update()