[bidaya]

إقتباس :

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

اريد تنفيذ امر بالظغط على الزر من كتابة اسمه او عنوانه على تكست بوكس
كمثال
عندنا زر اسمه b1
وعندنا تكست بكس
اريد كود لما اكتب في التكست بوكس b1 تتم عملية الظغط على الزر
وشكرا
 

[سعود]

لماذا لا تستخدم دوال او اجراءات لتنفيذ الفكرة اليست افضل؟؟
مثلا  عند كتابة كلمة welcome يتم تنفيذ اجراء welcome وهكذا

[bidaya]

(05-05-17, 05:46 AM)سعود كتب : لماذا لا تستخدم دوال او اجراءات لتنفيذ الفكرة اليست افضل؟؟
مثلا  عند كتابة كلمة welcome يتم تنفيذ اجراء welcome وهكذا

شكرا لك استادي الكريم سعود
ممكن اخي ولو بكود او فكرة على الطريقة المقترحة من حظرتك  وجزاك الله خيرا
وهل تنفع بالظغط على الازرار

[سعود]

فكرتي بسيطة جدا مربع نص و.

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 


[mansoor]

ممكن يفيدك هذا الكود

PHP كود :

Dim btn As Button = Me.Controls(TextBox1.Text)
If btn IsNot Nothing Then TryCast(btn, Button).PerformClick() 


[bidaya]

(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() 


فيه خطا اخي   في 

if
ارجو التصحيح

وجراك الله خيرا

[mansoor]

لا يوجد خطأ

اكتبها بنفسك بدل النسخ واللصق

[bidaya]

(05-05-17, 11:14 PM)mansoor كتب : لا يوجد خطأ

اكتبها بنفسك بدل النسخ واللصق

اخي الكريم ليس في الكتابة الخطء عند كتابة الكود وتشغيل البرنامج لا يشتغل
وعندما انزع الكود يشتغل

[أسامة السالمي]

يمكنك تجربة هذا الكود :

PHP كود :

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 


[mansoor]

الكود يبحث عن اسم البوتون Name وليس عنوانه الموجود في Text
وهذا يعنيأنك لم تدخل اسم البوتون مثل Button5 أو Button8

وردي على الجزء من قولك (اريد تنفيذ امر بالظغط على الزر من كتابة اسمه)