+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] ضغط الزر بواسطة enter (/showthread.php?tid=15499)
ضغط الزر بواسطة enter - Mido-9 - 16-04-16
السلام عليكم ورحمة الله وبركاتة اخواني الافاضل انا الان اريد انه عندما اضغط enter يتم الضغط على buttion 1
ولفعل هذا كنت اجعل من الفورم accept button = button 1
وكل شئ تمام
ولكن الان انا استخدمت ستايل جديد اسمه italk theme
http://pastebin.com/Xdj2gex2
واستخدمت الفورم الخاص بالإستايل بالإضافة إلى الازرار الخاصه به
ولكن لم استطع عمل accept button للشكل الجديد
برجاء المساعده وبارك الله فيكم
RE: ضغط الزر بواسطة enter - derham - 16-04-16
لأن ITalk_Button الخاص بالاستايل ITalk معرف على انه Control وليس Button
عشان كذا الفورم لم يظهره في AcceptButton
فما لك الا طريق حدث KeyPress للفورم مثل
PHP كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.KeyPreview = True
End Sub
Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
If e.KeyChar = Chr(Keys.Enter) Then ITalk_Button_11_Click(ITalk_Button_11, Nothing)
End Sub
Private Sub ITalk_Button_11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ITalk_Button_11.Click
MsgBox("ITalk_Button_11_Click")
End Sub