الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

[ تمت الإجابة ]كيف أستخدم InputBox ؟

بدأه petrov في 9 نوفمبر 2008 · 3 رد · 3,060 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

انا لسه بادئ بتعلم الفيجوال بيزك 6 عن طريق المنتدي الجميل بتاعنا اللي شجعني علي اني اتعلم فيجوال 

بس دلوقتي فيه مشكلة اعتقد انها بسيطة قدام خبرات الناس التي توؤل للاحتراف ما شاء الله 

فيه برنامج بنفذه محتاج فيه input box

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

يا ريت حد يساعدني ويقوللي مكانها فين 

او ازاي اقدر اعمل input box

يعني هل بنرسمه عادي علي الفورم ولا هو له تول خاصة زي الكومبو

وهل لو هرسمه عادي ازاي بقدر اعرفه علي انه انبوت بوكس

واسف لو سؤالي بدائي 

شكرا 

تم تعديل هذه المشاركة بواسطة petrov في 9 نوفمبر 2008 في 15:12

#2

السلام عليكم...

كلنا هنا لنتعلم.

الـ InputBox ليست أداة من الأدوات، بل هي دالة تستعمل للحصول على إدخال من المستخدم حيث تقوم تلقائياً بعرض نافذة جاهزة في Visual Basic.

تستعمل للدالة InputBox كالتالي:

  1. Dim X As String
  2.  
  3. X = InputBox("الرجاء إدخال اسم الطالب")
  4. If Trim(X) <> "" Then
  5.     Text1.Text = X
  6. End If
  7.  

حيث نعرف متغير من النوع String لأن الدالة تعيد قيمة من النوع String.
ثم نستدعي الدالة InputBox التي سوف تعرض نافذة إدخال. إذا ضغط المستخدم على الزر OK (في نافذة الإدخال) فإن الدالة ستعيد النص المكتوب في الخانة المخصصة للكتابة (في نافذة الإدخال). و إذا ضغط المستخدم على الزر Cancel فإن الدالة تعيد نصاً فارغاً (Empty String "").
نرجو الاستفادة و السلام.

      
      

      
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم

    

  

    
    

      
#3
        
        

      
najy_zl كتب:
السلام عليكم...
كلنا هنا لنتعلم.
الـ InputBox ليست أداة من الأدوات، بل هي دالة تستعمل للحصول على إدخال من المستخدم حيث تقوم تلقائياً بعرض نافذة جاهزة في Visual Basic.
تستعمل للدالة InputBox كالتالي:
  1. Dim X As String   X = InputBox("الرجاء إدخال اسم الطالب") If Trim(X) <> "" Then     Text1.Text 
    = X End If  
  2.  

حيث نعرف متغير من النوع String لأن الدالة تعيد قيمة من النوع String.
ثم نستدعي الدالة InputBox التي سوف تعرض نافذة إدخال. إذا ضغط المستخدم على الزر OK (في نافذة الإدخال) فإن الدالة ستعيد النص المكتوب في الخانة المخصصة للكتابة (في نافذة الإدخال). و إذا ضغط المستخدم على الزر Cancel فإن الدالة تعيد نصاً فارغاً (Empty String "").
نرجو الاستفادة و السلام.
يعجز اللسان عن الشكر 
جزاك الله خيرا

      
      

      
    

  

    
    

      
#4
        
        

      
بسم الله الرحمن الرحيم
تمت الإجابة على الموضوع 
إدارة الفريق العربي للبرمجة

      
      

      
سبحان الله وبحمده ... سبحان الله العظيم

    

  

    
    
    
 مواضيع مشابهة