خاصیت Border Style

[vb8334]

با سلام به تمامی دوستان

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


ممنون

[parselearn]

جستجو...
https://barnamenevis.org/showth...ove#post785314

[Saman_12]

سلام.
اول دو متغییر زیر رو به صورت عمومی تعریف کن :

  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