منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

شكرا لك استادي الكريم سعود
ممكن اخي ولو بكود او فكرة على الطريقة المقترحة من حظرتك  وجزاك الله خيرا
وهل تنفع بالظغط على الازرار Smile
فكرتي بسيطة جدا مربع نص و.
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 ObjectAs KeyEventArgsHandles 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 
ممكن يفيدك هذا الكود
PHP كود :
Dim btn As Button Me.Controls(TextBox1.Text)
If 
btn IsNot Nothing Then TryCast(btnButton).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 ObjectAs KeyEventArgsHandles 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(btnButton).PerformClick() 

فيه خطا اخي   في 

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

وجراك الله خيرا Smile
لا يوجد خطأ

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

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

اخي الكريم ليس في الكتابة الخطء عند كتابة الكود وتشغيل البرنامج لا يشتغل
وعندما انزع الكود يشتغل Blush
يمكنك تجربة هذا الكود :
PHP كود :
Private Sub TextBox1_TextChanged(sender As System.ObjectAs System.EventArgsHandles TextBox1.TextChanged
        If TextBox1
.Text "b1" Then
            b1
.PerformClick()
 
       End If
 
   End Sub 
الكود يبحث عن اسم البوتون Name وليس عنوانه الموجود في Text
وهذا يعنيأنك لم تدخل اسم البوتون مثل Button5 أو Button8

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