اريد عمل برنامج يحتوي على زر وعند الضغط على الزر يطلب من المستخدم ان يحدد عدد textbox الذي يريده.
مثال: اذا ضغطت على الزر وادخلت الرقم 5 تظهر في الفورم خمسة textbox.
ساعدوني في هذه المشكلة في VB (اريد ان اضيف كائنات
مغلق
السلام عليكم
الفكرة دي جت قدامي قبل كده بس للاسف هي فكرة غير منطقية والسبب هو..
ان حضرتك متعرفش المستخدم هيدخل رقم كام وبالتالي متعرفش تحدد عدد التكستات اللي هتظهر (ده لو فرضنا انك ممكن تنفذ الكلام ده)
وفي النهاية مش هينفع تتعامل مع هذه التكستات لأنك لا تعرف أسماءها
ولذلك أنصحك تشيل الفكرة دي من دماغك لأنها غير منطقية وغير موجودة في الفيجوال بيزك
أذا كنت حضرتك سألت لمجرد المعرفة فأنا قلت لك على حسب معرفتي
أما لو كنت بتسأل علشان تنفذ شئ مطلوب في برنامج معين فممكن تقول على المطلوب ونساعدك في تنفيذه
تمنياتي بالتوفيق
ســـــــلام
JusT LeT YouR MinD WorK
بسم الله الرحمن الرحيم
أكيد يمكن عمل ذلك ، ابحث في المنتدى ستجد الشيفرة
أما عن مدى الفائدة من ذلك فيرجع للفكرة التي تريدها
لما تريد هذا الكود فقد يدلوك الشباب على طريقة أفضل. أو مدى فائدة ذلك
بالتوفيق
والسلام عليكم ورحمة الله وبركاته
********************* ******************** *********************
(( أشــهد أن لا اله الا الله ..... وأشهد أن محمد رسول الله ))
********************* ******************** *********************
لا تقـل من أيـن أبدأ
طـاعـة الله الـبدايـة
***
لا تقـل أين طـريـقي
شــرع الله الهـدايـة
***
لا تـقـل أيـن نعـيمي
جـنـة الله كـفـايـــــة
***
لا تقـل في الغـد أبدأ
ربمـــا تأتـي النهـايـــة
**************** **************** ****************
ممكن تحكيلي اخي البريشي على ماذا ابحث في المنتدى . او ماذا اكتب في البحث ولك جزيل الشكر
بسم الله الرحمن الرحيم
لم أجد البرنامج في المنتدى رغم أنني متأكد من أنه قد سبق أن طرح الموضوع هنا .
لكني وجدت في موقع http://pscode.com ما يفيدك
توجه الى هذه الصفحة Ci Article - Dynamic Controls or how to load controls during runtime
علما لأنه عليك أن تضع TextBox وتحدد خاصية Index=0 ثم بعد تشغيل البرنامج قم بالضغط عليه بكبسة Inter
بالتوفيق
والسلام عليكم ورحمة الله وبركاته
********************* ******************** *********************
(( أشــهد أن لا اله الا الله ..... وأشهد أن محمد رسول الله ))
********************* ******************** *********************
لا تقـل من أيـن أبدأ
طـاعـة الله الـبدايـة
***
لا تقـل أين طـريـقي
شــرع الله الهـدايـة
***
لا تـقـل أيـن نعـيمي
جـنـة الله كـفـايـــــة
***
لا تقـل في الغـد أبدأ
ربمـــا تأتـي النهـايـــة
**************** **************** ****************
السلام عليكم
الاخ abc_amjad
تحية طيبة وبعد
لقد قمت بعمل برنامج خصوصي لك يوجد به ما تريد بالضبط (h)
مع تحيات اشـــ نت ـــرف
Ashrafnet4u@hotmail.com
سيدي الامر بسيط ،، ضع اداة من نوع صندوق نص Text1 علي الفورم وضع في الخاصية Index للأداة صفر (0)
واكتب الكود التالي داخل زر أمر Command1
'In General Declaration Dim M As Long 'Command1 Procedure M = M + 1 Load Text1(M) Text1(M).Top = Text1(M - 1).Top + Text1(M).Height Text1(M).Visible = True
مع العلم يوجد طريقتين لخلق أدوات برمجيا ، وهذه هي اسهلها .
الطريقة الثانية :
وهي عن طريق Form.Controls.Add
'In General Declaration
Dim M As Long
'Command Procedure
Set M = Me.Controls.Add("vb.TextBox", "T1", Me)
M.Visible = Trueوالطريقة الثالثة وهي معقدة نوعا ما ، لانها تستخدم ProgID للاداة وبامكان الطريقة الثالثة
جلب اي اداة من الريجيستري ووضعها ببرنامجك دون تضمينها داخل البرنامج في بيئة
التصميم.
الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.
إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.
هذا الموضوع مغلق.