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