الرئيسية | مركز الدعم | نبذة عنا | اتصل بنا | تابعنا على فيسبوك | English
YAZSYS.COM, Pos, Pop, Point Of Sale
منذ عام 2012 - 2019 عدد العملاء حتى الأن: 2766
تحميل نظام المبيعات  
 
تحريك الفورم عن طريق السحب والإفلات من أي مكان
يقوم هذا الكود وبطريقة مميزة وإنسيابية بإعطاء المستخدم القدرة علي سحب النموذج وتحريكه ليس من شريط العنوان فقط (كما هو الحال الطبيعي) بل بالسحب من أي مكان علي الفورم حتي لو كانت خاصية 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 
 
 
 

 
تحميل نظام المبيعات  
 
الصفحة الرئيسية
اتصل بنا
نبذة عن هذا الموقع
خارطة الموقع
مشاريع برمجة متنوعة مفتوحة المصدر
مواضيع ودروس تعليمية
 
 
نظام YAZ الجيل الثالث
مركز الدعم
تابعنا على فيسبوك
برنامج مبيعات ونقاط البيع وجرد المستودعات ومحاسبة خارطة الموقع
 
 
 
تحميل نظام المبيعات