لمن يعلم كيفية تعطيل الازرار الافتراضية

17 قراءة ولم يجب احد

ربما لم اوضح

صنعت نموذج ووضعت عليه اربع ازرار

وضت شيفرة تحريك لزر

حيث اذا كان التركيز عليه وضغطت سهم الاسفل يجب ان يتحرك الزر الى الاسفل

لايحصل ذلك بل ينتقل التركيز الى الزر التالي كأني ضغطت زر TAB

MovingButtons.rar

على ما أعتفد يتم ذلك من خلال تسجبل الزر المضغو فى Variable عند الضغط من الKeyPress Event و بعد ذلك يحدث ان يفوم الزر المحد اساسا بتحديد نفسه وذلك بعد معرفة ما هو أخر زر محدد

السلام عليكم

فقط في الحدث LostFocus أعد التركيز على نفس الزر

 Private Sub Button1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyUp
        If e.KeyCode = Keys.Down Then
            Me.Button1.Top += 10
        End If
        If e.KeyCode = Keys.Up Then
            Me.Button1.Top -= 10
        End If
    End Sub

   
    Private Sub Button1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.LostFocus
        Me.Button1.Focus()
    End Sub

والله أعلم

الأخوة

محمد مأمون

الغملاسي

شكرا جزيلا لكم جعلها الله في ميزان حسنانكم إن شاء الله

الاخ العزيز الشهاب الخارق

للاسف الكود الذي كتبته لم ينفع معي

انا اوجه نفس المشكله

واريد ان اعطل حدث معين للانتقال بين اثنين بوتم او تغيره الى الشكل الصحيح

لانو عندما استخدم الاسهم (يمين ويسار ) بين 2 بوتم مع مراعاه قوانين اللغه العربيه من اليمين الى اليسار فان التحكم والانتقال يكون حظاء

فهل استطيع ايقاف تلك الاحداث او على الاقل تغيرها لتتلائم مع قواعد اللغه

يوجد مثال مرفق فيه فريم يحتوي على 2 بوتم عند الكبس على الزر الايسر

(عندما اكون فوق البوتم ) فانه للاسف لا ينتقل الى المكان الصحيح

WindowsApplication2.rar

السلام عليكم

رغم أنني لم أعرف بالضبط المطلوب و الحكمة من الطلب, فهل هذا الكود يساعد أو بعد التعديل قد يساعد على ذلك.

 Protected Overrides Function ProcessCmdKey _
  (ByRef msg As System.Windows.Forms.Message, _
  ByVal keyData As Keys) As Boolean
		Try
			If msg.WParam.ToInt32() = CInt(Keys.Right) OrElse _
			   msg.WParam.ToInt32() = CInt(Keys.Left) OrElse _
			   msg.WParam.ToInt32() = CInt(Keys.Up) OrElse _
			   msg.WParam.ToInt32() = CInt(Keys.Down) Then
				Return True
			End If
			Return MyBase.ProcessCmdKey(msg, keyData)
		Catch ex As Exception
			MsgBox(ex.Message)
		End Try
	End Function

شكرا اخي الكريم

وان كنت اعتقد ان الحكمه من هذا لم تصل لك ولهذا لم تفهم ما هو المطلوب

عندي سوال بسيط

هل استطيع ربط الفنشن هذا باداء معينه فقط وليكن البوتم مثلا

لانو بهدا اكود تم تعطيل جميع الادوات

للأزرار أحداث كما هي لجميع العناصر, ومن تلك الاحداث نخصص ما نقوم به, فمثلاً

Private Sub Button1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyUp
		If e.KeyCode = Keys.Down Then
			Me.Button1.Top += 10
		End If
		If e.KeyCode = Keys.Up Then
			Me.Button1.Top -= 10
		End If

	End Sub

نحرك الزر عند الضغط على زر الاسفل و زر الاعلى. بالتوفيق إن شاء الله.

السلام عليكم و رحمة الله و بركاته

اخي العزيز ... لم اطلع على الكود او المشكلة بحق و لكن كتلميح لما لا تستخدم الخاصية TabStop الموجودة في معظم الادوات لتحديد ما اذا كنت تريدها ان تستجيب للزر Tab ام لا ... بكلمات اخرى اي اداه تكون هذه الخاصية فيها مساوية لـ TRUE فانها لن تستجيب للزر Tab او للاسهم

السلام عليكم و رحمة الله و بركاته