nexpay

کنترل قابل جابجایی

شروع موضوع توسط ooje_asman ‏19 جولای 2005 در انجمن Visual Basic 6

  1. ooje_asman

    ooje_asman کاربر تازه وارد

    تاریخ عضویت:
    ‏13 مارس 2005
    نوشته ها:
    85
    تشکر شده:
    0
    با سلام من از این کد برای جابجایی فرم استفاده می کردم و با یه کم دستکاری در مورد 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
     
  2. ooje_asman

    ooje_asman کاربر تازه وارد

    تاریخ عضویت:
    ‏13 مارس 2005
    نوشته ها:
    85
    تشکر شده:
    0
zarpopخرید بک لینک عسل طبیعی و گرده گل ایرانیfootbal