[ابو انس]

(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 فقط من اجل ان احدد مكان يست بوكس التي سوف تظهر عند الكتابة في عمود معين في داتا جريد فيو
يعني ممكن بدل من ايجاد احداثيات مؤشر الكتابة ان نقوم بايجاد احدثايات الخلية الحالية في داتا جريد فيو والتي نقوم بالكتابة بها

[سعود]

إقتباس :يعني ممكن بدل من ايجاد احداثيات مؤشر الكتابة ان نقوم بايجاد احدثايات الخلية الحالية في داتا جريد فيو والتي نقوم بالكتابة بها

اخي الكريم ... الوضع يختلف الان!
تحديد موضع خلية له احداثيتان صف و عمود
نقطة تقاطعها تمثل خلية.

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

[ابو انس]

(17-12-21, 11:20 PM)سعود كتب :

إقتباس :يعني ممكن بدل من ايجاد احداثيات مؤشر الكتابة ان نقوم بايجاد احدثايات الخلية الحالية في داتا جريد فيو والتي نقوم بالكتابة بها

اخي الكريم ... الوضع يختلف الان!
تحديد موضع خلية له احداثيتان صف و عمود
نقطة تقاطعها تمثل خلية.

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

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

كود :

   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

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

[E100]

كود :

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

[ابو انس]

شكرا لك هذا ما اردته