تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مطلوب كود ايجاد موقع مؤشر الكتابة
#11
(17-12-21, 03:26 AM)ابراهيم ايبو كتب : تفصل هذا كود لاحداثيات مؤشر الماوس بالنسبة للفورم عندما يتحرك  عليه
ولو غيرت مكان الفورم  يبق الحساب بالنسبة للفورم نفسه
ان كان هذا ماتريد
كود :
Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles MyBase.MouseMove

       Label1.Text = (e.X & " / " & e.X)  

   End Sub

شكرا لك هذا الكود يثبت ان كلامي السلابق ان الكود الذي لا يتحوي كلمة location لا يعطي location كان خطأ مني
ولكن هذا الكود  يعطي احداثيات مؤشر الماوس وهذا امر اخر لا يعنينا لان الكلام كان عن مؤشر الكتابة

شكرا سعود شكرا لكم جميعا
انا اريد كود ايجاد احداثيات مؤشر الكتابة xy فقط من اجل ان احدد مكان يست بوكس التي سوف تظهر عند الكتابة في عمود معين في داتا جريد فيو
يعني ممكن بدل من ايجاد احداثيات مؤشر الكتابة ان نقوم بايجاد احدثايات الخلية الحالية في داتا جريد فيو والتي نقوم بالكتابة بها
سورس كود برنامج محاسبة ومبيعات احترافي  -  سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام   Abo_anas_kahwaji@
واتساب 00963951283515
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5 , asemshahen5
#12
إقتباس :يعني ممكن بدل من ايجاد احداثيات مؤشر الكتابة ان نقوم بايجاد احدثايات الخلية الحالية في داتا جريد فيو والتي نقوم بالكتابة بها
اخي الكريم ... الوضع يختلف الان!
تحديد موضع خلية له احداثيتان صف و عمود
نقطة تقاطعها تمثل خلية.

شوف كود بسيط جدا و اعتذر[لقد اكثرت من الاعتذارSmile]


الرد }}}
#13
(17-12-21, 11:20 PM)سعود كتب :
إقتباس :يعني ممكن بدل من ايجاد احداثيات مؤشر الكتابة ان نقوم بايجاد احدثايات الخلية الحالية في داتا جريد فيو والتي نقوم بالكتابة بها
اخي الكريم ... الوضع يختلف الان!
تحديد موضع خلية له احداثيتان صف و عمود
نقطة تقاطعها تمثل خلية.

شوف كود بسيط جدا و اعتذر[لقد اكثرت من الاعتذارSmile]



اهلا سعود شكرا جزيلا لك
لكن انت كتبت اخر مشاركتك الجملة التالية /شوف كود بسيط جدا و اعتذر/
لماذا تعتذر انت والزملاء تفيدونني
وكلمة شوف كود بسيط   ... اين الكود ؟؟؟ هناك رمزين لصورتين ولكن الصور لا تظهر  لا اعرف ما المشكلة
لا اعرف اذا كان هناك مشكلة بالمنتدى لاني اليوم حاولت كثيرا ارفاق مثال صغير ولكن يظهرلي رسالة خطأ
على كل حال سأرفق الكود

كود :
   Private Sub DGV_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles DGV.CellEnter
       Dim columnName As String = DGV.Columns(e.ColumnIndex).Name

       If columnName = "ITEME" Then
           Dim RowHeight1 As Integer = DGV.Rows(e.RowIndex).Height
           Dim CellRectangle1 As Rectangle = DGV.GetCellDisplayRectangle(e.ColumnIndex, e.RowIndex, False)

           Dim DisplayPoint1 As Point = PointToScreen(New Point(CellRectangle1.X, CellRectangle1.Y))

           TextBox1.Text = DisplayPoint1.ToString
           ListBox1.Location = New Point(CellRectangle1.X, CellRectangle1.Y)
       End If
   End Sub

ارجو التعديل على الكود بحيث تظهر الليست بوكس في المكان المناسب مثلا تحت الخلية التي يتم الكتابة بها
....
تعديل //نجحت في ارفاق المثال المثال في المرفقات


الملفات المرفقة
.rar   WindowsApplication14.rar (الحجم : 74.79 ك ب / التحميلات : 9)
سورس كود برنامج محاسبة ومبيعات احترافي  -  سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام   Abo_anas_kahwaji@
واتساب 00963951283515
الرد }}}
#14
كود :
Private Sub DGV_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles DGV.CellEnter
        Dim columnName As String = DGV.Columns(e.ColumnIndex).Name

        If columnName = "Image" Then
            Dim CellRectangle1 = DGV.GetCellDisplayRectangle(DGV.CurrentCell.ColumnIndex, DGV.CurrentCell.RowIndex, True)
            If DGV.RightToLeft = Windows.Forms.RightToLeft.Yes Then
                ListBox1.Location = New Point(DGV.Left + CellRectangle1.Left - (ListBox1.Width - CellRectangle1.Width), DGV.Top + CellRectangle1.Bottom)
            Else
                ListBox1.Location = New Point(DGV.Left + CellRectangle1.Left, DGV.Top + CellRectangle1.Bottom)
            End If
        End If
    End Sub
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , ابو انس , asemshahen5
#15
شكرا لك هذا ما اردته
سورس كود برنامج محاسبة ومبيعات احترافي  -  سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام   Abo_anas_kahwaji@
واتساب 00963951283515
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [سؤال] كيف يمكن الغاء السوال عند الكتابة على ملف موجود dell 0 48 19-03-24, 01:23 AM
آخر رد: dell
Photo [كود] مطلوب كود يستخدم الأوامر فقط لتحديث قاعدة بيانات بـ vb.net AhmedEissa 4 638 18-01-24, 11:40 PM
آخر رد: العتيق
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 234 13-01-24, 06:42 PM
آخر رد: melad2002
  مطلوب شرح لتقارير DevExpress بلغة vb.net Adel27213 3 322 03-01-24, 12:23 AM
آخر رد: عبد العزيز البسكري
  اختبار الفاتورة في موقع يطلع خطأ thepast 0 208 21-12-23, 12:06 PM
آخر رد: thepast
  [VB.NET] مطلوب سورس كود مبيعات h2551996 2 352 17-12-23, 08:03 PM
آخر رد: dr.programming
  [VB.NET] مطلوب تصحيح سطر فى هذا الــ Function AhmedEissa 3 498 13-12-23, 12:55 AM
آخر رد: العتيق
  [VB.NET] مطلوب دمج جملتين لتحديث قاعدة بيانات فى جملة واحدة AmeenRashed 1 335 18-11-23, 01:32 AM
آخر رد: sniper2030
  تحديد موقع ملف user.config واعدة توجيهه لموقع آخر Mohammed Nafa 3 439 07-11-23, 10:12 PM
آخر رد: Mohammed Nafa
Rainbow [سؤال] إضافة شريط ضبط الكتابة في أداة RichTextBox أبو خالد الشكري 0 217 29-10-23, 08:19 AM
آخر رد: أبو خالد الشكري

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم