السلام عليكم ورحمة الله وبركاته
عندي مجموعة من اكواد الفيجول استعصت علي وهي:
1)طباعة frame1 فقط وليس كل الفورم
2)لدي combo1 وعندما اختار شيء منه مثلاً:الفريق العربي يظهر لي في text1
www.arabteam.com
اريد كود يحفظ combo1 وماله من تأثيرات
3)عندي في form2
text1 وعندما اضع رقم 10 يظهر لي في
text2 عشره
اريد ان اكتب في form1
10 وتظهر لي القيمة المحفوظة في الـ form2
مع الشكر والتقدير
__________________
السؤال الثالث:
إذا كان لديك مربعين نص وتريد أن يظهر الرقم 10 في المربع الثاني عندما يكتب المستخدم 10 في المربع الأول . .. إليك الطريقة:
Private Sub Text1_Change() If Text1.Text = "10" Then Text2.Text = "10" End If End Sub
إذا أردت أن تحفظ قيمة بحيث يمكنك استخدامها في كل الفورمات ... إليك الطريقة:
قم بتعريف متغير عام في الموديول
Public Num As String
بعدها يمكنك استخدام هذا المتغير في كل الفورمات، بحيث لو كتبت في الفورم1:
Num = "10"
ثم ذهبت إلى الفورم الثاني وكتبت:
Print Num
ستجد أنه احتفظ بقيمته وإليك تحياتي..............
أخي العزيز عبد الله فتحي
شكراً لتواصلك السريع ولكنني لم اصغ السؤال بطيقة جيدة...
عندما يدخل المستخدم قيمة 10 في form2.text1.text ويذهب إلى form1 ويكتب في text1.text قيمة 10 يظهر له في text2.text قيمة 20 مثلاً
مع الشكر والتقدير
آسف لأنني لم أفهم السؤال جيداً;)
وبالنسبة لما ذكرته فيمكنك ذلك:
قم بتعريف متغير عام في الموديول
Public Num As String
ثم ضع هذ الكود في الفورم2:
Private Sub Text1_Change() If Text1.Text = "10" Then Num = "10" End If End Sub
ثم ضع هذا الكود في الفورم 1:
Private Sub Text1_Change() If Text1.Text = "10" Then Text2.Text = "20" End If End Sub
جرب وأخبرني إن واجهتك أي مشكلة
(f)(f)(f)
الأخ الفاضلعبد الله فتحي...
سوف أشرح لك طريقة عمل برنامجي
يتكون البرنامج من form1 , form2
form1 يحتوي على مصفوفه،حيث نضيف اسم سلعة ما ويطلب منا البرنامج كود لتلك السلعة،،والسعر الذي تباع به
اما form2 يحتوي على فاتورة في frame2،،في مربع خارجي عن الفريم يتم وضع الكود اما في text2 فيظهر اسم السلعة و text3 السعر الذي تباع فيه
هذا هو تعريف مختصر،،فأرجو ان تعطيني الكود المناسب لإكمال البرنامج،خصوصاً ان البرنامج ليس لي وإنما لشخص آخر...
مع الشكر والتحية
راجع صندوق الرسائل الخاص بك
^^^
بانسبة لطباعة الفورم
ضع زر لطباعة وضع بداخله اكواد تشتمل على إخفاء الازرار التي تريد عدم ضهوره في الطباعة
الأخ منصور/
شكراً على المساعده..ولكن عندك مثال؟؟:confused:
اما بالنسبه للمنتدى/
صراحة خاب الظن فيكم،وبدأت افقد الثقه في المنتدى :(
السلام عليكم
1 - لتغيير ما بداخل text2 فى form2 على حسب التغير فى text1 فى form1
ضع هذا الكود :
private sub text1_change()
if valid_good() = true then 'valid_good تختبر السلعه هل هى موجوده أم لا
form2.text2 = text1
end if
end sub
2 - لطباعة frame2 . لا أعرف و لكن يمكنك إضافة كل البيانات الخاصه بالسلعه فى text box و عمل طباعه لهذا الtext box فقط.
3 - مزيد من الشرح لموضوع الcombo1 ...؟؟
والسلام . أرجو الرد و التوضيح
فريق إيجيت بروجيكتس لتطوير و تصميم مشاريع التخرج لطلبة نظم الحاسبات و الإتصالات و حلول الشركات
http://www.egit-projects.comمن موضوعــاتــى
برنامج البحث المتقدم In-File Spider V1.5
أداه مصريه شبيهه بميكروسوفت XML 3.0 + إضافات جديده و أسرع فى الأداء
ما تحتاجة لتصميم البرامج من ادوات و موارد
Handle-X Trial V1.0 ...... برنامج الشبكات و الإختراق العربى 100% بدون أدوات OCX خارجيه
شكراً لك mrezzuz على الرد،،
ولكني اريد ان اشرح لكم عن الكود اللي اريده
البرنامج عبارة عن فاتورة شراء لبوتيك
form1 هو فاتورة الشراء
أما form2
ففيه ندخل اسم البضاعة وقيمتها وعددها في المخزن،عن طريق مصفوفة
وعندما نختار اسم البضاعة من combo1 يظهر لنا في text2 سعرها وفي text3 عددها وفي text4 كود خاص بهذه السعلة،وخلاصة الموضوع تقتضي بأن يدخل المستخدم الكود فقط في form1 ويظهر له في text2 السعر المدخل مسبقاً
هذا هو شرح مبسط عن البرنامج
وارجو ان احصل على الكود المناسب
السلام عليكم
أخي الكريم معناة كلامك إنك تريد تعمل برنامج عبارة عن فاتوة وهذا يتطلب الإتصال بقاعدة البيانات لكي تحصل على نتائج افضل واكثر مهنية أو عملية .
على كلا راجع هذا الرابط وحمل البرنامج المرفق فيه وتصفحة ربما بفيدك بشئ
الرابط / http://www.arabteam2000.com/vb/showthread....17&pagenumber=2
ونصيحتي لك يا أخي وهي الصبر .
أخي العزيز /Visitor_OM
وعليكم السلام.....
شكراً على المساعده لكن الملف المرفق لم يعمل عندي بالشكل المطلوب لسبب او لآخر
مع الشكر
لماذا كل هذه الأكواد قم بالتالي فقط:
if إخترت شيء من الكومبو then text1.text = الذي اخترته save Combo.properties+Events if I writing in text1 then text2.text = what I wrote If I write on form 2 then past the text on form1
هذا كل شيء بالتفصيل الممل
الكود لاينفع
الرجاء شرح الكود
أخي العزيز المارد الفيجولي .. أنا آسف جداً لتأخر هذه الرسالة ... أرجو المعذرة فأنا مشغول في هذه الفترة .. أرجو أن تعذرني مرة أخرى وعلى أي حال لقد عملت هذا البرنامج للإجابة على سؤالك الثالث،، وبالنسبة لرسالتك على الخاص فقد قرأتها والرد عليها ستجده في البرنامج المرفق وإليك خالص تحياتي ... أخوك: عبد الله فتحي.
أخي العزيز/عبد الله فتحي
شكراً لك على هذا المثال الأكثر من رائع فتح الله عليك باب السعاده إن شاء الله
نتمنى الإجابة على باقي الأسئلة إذا لم يكن هناك مانع
هذا الموضوع مغلق.