05-05-17, 05:20 AM
إقتباس :السلام عليكم ورحمة الله تعالى وبركاتهاريد تنفيذ امر بالظغط على الزر من كتابة اسمه او عنوانه على تكست بوكس
كمثال
عندنا زر اسمه b1
وعندنا تكست بكس
اريد كود لما اكتب في التكست بوكس b1 تتم عملية الظغط على الزر
وشكرا
إقتباس :السلام عليكم ورحمة الله تعالى وبركاتهاريد تنفيذ امر بالظغط على الزر من كتابة اسمه او عنوانه على تكست بوكس
كمثال
عندنا زر اسمه b1
وعندنا تكست بكس
اريد كود لما اكتب في التكست بوكس b1 تتم عملية الظغط على الزر
وشكرا
(05-05-17, 05:46 AM)سعود كتب : [ -> ]لماذا لا تستخدم دوال او اجراءات لتنفيذ الفكرة اليست افضل؟؟
مثلا عند كتابة كلمة welcome يتم تنفيذ اجراء welcome وهكذا

Public Class Form1
Private Function welcome() As String
Return MsgBox("welcome here")
End Function
Private Function hi() As String
Return MsgBox("hi here")
End Function
Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyData = Keys.Enter Then
Select Case TextBox1.Text
Case "welcome"
welcome()
Case "hi"
hi()
End Select
End If
End Sub
End Class
Dim btn As Button = Me.Controls(TextBox1.Text)
If btn IsNot Nothing Then TryCast(btn, Button).PerformClick()
(05-05-17, 09:01 PM)سعود كتب : [ -> ]فكرتي بسيطة جدا مربع نص و.
PHP كود :
Public Class Form1
Private Function welcome() As String
Return MsgBox("welcome here")
End Function
Private Function hi() As String
Return MsgBox("hi here")
End Function
Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyData = Keys.Enter Then
Select Case TextBox1.Text
Case "welcome"
welcome()
Case "hi"
hi()
End Select
End If
End Sub
End Class
(05-05-17, 09:10 PM)mansoor كتب : [ -> ]ممكن يفيدك هذا الكود
PHP كود :
Dim btn As Button = Me.Controls(TextBox1.Text)
If btn IsNot Nothing Then TryCast(btn, Button).PerformClick()

(05-05-17, 11:14 PM)mansoor كتب : [ -> ]لا يوجد خطأ
اكتبها بنفسك بدل النسخ واللصق

Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text = "b1" Then
b1.PerformClick()
End If
End Sub