خارطة الموقع برنامج مبيعات ونقاط البيع وجرد المستودعات ومحاسبة الرئيسية من نحن اتصل بنا English
Yazsys.com
منذ عام 2012 - 2018
Skip Navigation Links
نظام إدارة المبيعات
|
تعليم & شروحاتExpand تعليم & شروحات
 
تحريك الفورم عن طريق السحب والإفلات من أي مكان
بواسطة مشرف ومهندس برمجيات
2015-07-28
يقوم هذا الكود وبطريقة مميزة وإنسيابية بإعطاء المستخدم القدرة علي سحب النموذج وتحريكه ليس من شريط العنوان فقط (كما هو الحال الطبيعي) بل بالسحب من أي مكان علي الفورم حتي لو كانت خاصية FormBorderStyle على None
 
Private MouseOffset As Point
Private IsLeftButtonDown As Boolean False

Private Sub Form1_MouseDown(ByVal sender As ObjectByVal e As MouseEventArgsHandles Form1.MouseDown
    Dim xOffset 
As Integer
    Dim yOffset 
As Integer
    
If e.Button MouseButtons.Left Then
        xOffset 
= -e.SystemInformation.FrameBorderSize.Width
        yOffset 
= -e.SystemInformation.CaptionHeight SystemInformation.FrameBorderSize.Height
        MouseOffset 
= New Point(xOffsetyOffset)
        
IsLeftButtonDown True
    End 
If
End Sub

Private Sub Form1_MouseMove(ByVal sender As ObjectByVal e As MouseEventArgsHandles Form1.MouseMove
    
If IsLeftButtonDown Then
        Dim MousePosition 
As Point Control.MousePosition
        MousePosition
.Offset(MouseOffset.XMouseOffset.Y)
        
Location MousePosition
    End 
If
End Sub

Private Sub Form1_MouseUp(ByVal sender As ObjectByVal e As MouseEventArgsHandles Form1.MouseUp
    
If e.Button MouseButtons.Left Then
        IsLeftButtonDown 
False
    End 
If
End Sub 
 
 
 
إعلان ... لأصحاب المتجار فقط - برنامج تنفيذي وليس سورس كود
تحميل برنامج مبيعات وجرد المستودعات

 
 
الصفحة الرئيسية
اتصل بنا
نبذة عن هذا الموقع
خارطة الموقع
مشاريع برمجة متنوعة مفتوحة المصدر
مواضيع ودروس تعليمية
 
 
نظام YAZSYS لإدارة المبيعات