PDA

View Full Version : کنترل قابل جابجایی



mianaji
سه شنبه 28 تیر 1384, 08:28 صبح
با سلام من از این کد برای جابجایی فرم استفاده می کردم و با یه کم دستکاری در مورد picbox استفاده می کنم ولی برنامه یه کمی اشکال داره دوستان اگه بتونن کمک کنن ممنون می شم مرسی
Dim newPoint As New System.Drawing.Point
Dim a As Integer
Dim b As Integer

If e.Button = MouseButtons.Left Then
newPoint = Me.MousePosition
newPoint.X = newPoint.X - (a)
newPoint.Y = newPoint.Y - (b)
Me.Location = newPoint
End If

(سیدشریفی)
سه شنبه 28 تیر 1384, 09:06 صبح
قبلا این کد رو یکی از دوستان تو سایت قرار داده بود که اسمشون یادم نیست (شاید آقا کامران باشد)

احتمالا بدرد شما بخورد .

mianaji
چهارشنبه 29 تیر 1384, 08:19 صبح
با سلام و مرسی از لطفتون کد خوبی بود در ضمن یه کد هم از اینجا می شه دانلود کرد
http://pscode.com/vb/scripts/ShowCode.asp?txtCodeId=3469&lngWId=10