PDA

View Full Version : سوال: خاصیت Border Style



vb8334
شنبه 20 شهریور 1389, 18:11 عصر
با سلام به تمامی دوستان


من border style فرمم رو برابر none کردم و خودم با فتوشاپ یه اسکین برا برنامم
درست کردم با توجه به اینکه زمانی که ما بردر استایل داشتیم می تونستیم
فرم رو حرکت بدیم اما حالا که border style برابر none چطوری می تونم فرم به حرکت در بیارم


ممنون

parselearn
شنبه 20 شهریور 1389, 18:22 عصر
جستجو...
http://barnamenevis.org/forum/showthread.php?p=785314&highlight=move#post785314

Saman_12
شنبه 20 شهریور 1389, 18:38 عصر
سلام.
اول دو متغییر زیر رو به صورت عمومی تعریف کن :


Private IsMouseDown As Boolean
Private MouseProX, MouseProY As Integer

بعد هم کد های زیر رو به ترتیب توی رویداد های MouseDown و MouseUp و MouseMove کنترلی که باید با کلیک روی اون فرم حرکت کنه بنویس :


If Button = 1 Then
MouseProX = X
MouseProY = Y
IsMouseDown = True
End If




IsMouseDown = False




If IsMouseDown = True Then
Me.Left = Me.Left + X - MouseProX
Me.Top = Me.Top + Y - MouseProY
End If