hicham716

هذا ما كنت اريده تماما شكرا جزيلا لك

الكود السابق جعلته هكذا W = InputBox(" test", vbOKCancel) If W = vbCancel Then Unload Me End If و لم اتمكن من الخروج من البرنامج

شكرا اخي على تجاوبك مع الموضوع عند بداية تشغيل البرنامج تظهر inputbox تطلب منك ادخال الرقم السري للبرنامج المهم البرنامج مكتوب كما ينبغي المشكل في 'الغاء الامر' ''annuler' اي اذا اردت انت ان تخرج فعليك ان تظغط 'الغاء الامر' ''annuler' وتخرج وهنا المشكل

لم تشتغل هناك

هلا اوضحة لنا كيف نستعملها ولك جزيل الشكر

اريد الخروج من البرنامج عند الظغط على الزر annuler لل inpotbox اعتقد اننا نستعمل vbCancel لكن لا اعرف اين توضع pass = InputBox("message") If pass = vbCancel Then Unload Me Else MsgBox "message" End If

مشكور أخي علاء علي هذا المجهود اللـه يجازيك عنه خيرا

عذراً أخ عماد حمدي احمد مني كذالك.

الســـــــــــــــــــــلام عليكم الاخ عماد حمدى احمد انت كنت سباق الى الحل نهنئك على دكائك. فقط كان عليك ان الا ترفع الحل للعموم حتى تترك فرصة للاخريــــــــن, ومادم انك فعلت فلا يحق لك ان تقول لكل شخص يحاول بعدك (انت اعتمدت على حلي ولم تاتي بجديـــــــد!) وا…

1_وضعت هذا الكود لتجنب كتابة الحروف لكن الفاصلة لا تعمل؟ انا احتاج الفاصلة If Not IsNumeric(textsolde.Text) Then Cancel = True MsgBox "Veuillez entrer des chiffres!" textsolde = 0 End If 2_عند انطلاق البرنامج تظهر نافدة تطلب منك ادخال الرقم السري. اريد ان يكتب…

الله يحفظــــــــــــك ويرعـــــــــــــــــــاك سوف احـــــاول مع الملــــــــــــــــــــف

الســـــــــــــــــــــــلام عليكم اريد ان اضع ملف ورد word يتكون من عدة صفحات يحمل مساعدة حول برنامجي داخل الفجوال باسيك كما هو . استعملت OLE لكن تظهر صفحة واحدة فقط

السلام عليكــــــــــــم يوجد حاسوب أول مرتبط بشبكــــــة الانترنيـــــــــــــــت بشكل جيد. حيث يوجـــــــد جهاز Routeur مرتبط بالشبكة و من ثم câble usb يربطه بالحاسوب كيف نربط حاسوب أخر بالشبكة جزاكم الله خيرا ؟ ربطة بواسطة (câble (RG 45 الحاسوب الأول بالثان…

الســــــــــــــــــلام عليكـــــــــــــــــم لا ليست مستحيلة في الفجوال باسيك وكل اللغات التي بها (traitement de chaine) a = "hicham" b = "manssouri" a = a & "" & b b = Left(a, (Len(a) - Len(b))) a = Right(a, (Len(a) - Len(b))) 'النتيجة' a = "manssouri" b =…

شكـــــــــــــــــــــرا جزيــــــــــــــــــــــــــلا سوف اجـــــــــــرب

انا عندي Microsoft Visual Basic 6 فرنسي (الرسائل تظهر بالفرنسية)

السلام عليكم كيف اجعل برنامج الفجوال باسيك يشتغل في الخفاء و يبقى فقط اقون في الشريط الموجود باسفل الشاشة ويبدأ في الاشتغال مباشرة عند اشتغال الحاسوب مثلا برنامج التذكير بأوقات الصلات

جعلت الـ StartUp Object هي Sub Main وظهرة الرسالة feuille de demarrages ou sub main() nécessaire

اريد اظهار النصوص label في هذا skin easy_skins.zip

لا اعرف كيف اظهر النصوص التي غابت بسبب SKIN الحل جزاكم الله خيرا