شريف عادل

السلام عليكم ورحمة الله وبركاته لدمج البريمج مع برنامج ضخم كهذا وبه حمايه عاليه يجب ان تضع الموضوع فى قسم الأسمبلى لأن لغة الأسمبلى تستطيع عمل ما تريد من خلالها لان الموضوع يتعلق بملفات نظام البرنامج تحياتى... ;) ;) :rolleyes:

السلام عليكم ورحمة الله وبركاته يا ابو ابراهيم هو يقصد تغيير الخط لـ Toolbar وليس لتكست او ليبل أعتقد أن هذه الخاصيه يدعمها نظام التشغيل عند عرض خصائص سطح المكتب وعرض Appearance ;) ;) :rolleyes:

السلام عليكم ورحمة الله وبركاته جرب الكود التالى مع TextBox ضع TextBox سميها Text1 وزر وسميه Command1 Private Sub Command1_Click() Dim Str1 As String On Error Resume Next Do DoEvents Str1=Left(Text1.Text,1) Str1=Text1.Text & Str1 Text1.Text=Right(Str1,Val(Len(…

يمكنك حفظ السيريال نمبر فى البرنامج نفسه عن طريق متغير String dim STR1 as string Str1="Sheriff" if text1.text=Str1 then me.Hide Form1.show else msgbox " كلمة السر خاطئة أدخل الكلمه الصحيحة" text1.text="" end if ;) ;) :rolleyes:

Up

هو يريد أن يستخدم احداث التيمر ولكن بدون وجود تيمر ;) ;) :rolleyes:

المفروض ان يكون هذا السؤال فى منتدى الاكسيس ;) ;) :rolleyes:

معلومه جيدة :lol: :lol: :lol: :lol: :lol:

الى المتطرف أحمد عصام سوف اجرب الكود وارد عليك بس انا عارف اكوادك كلها !!!!!! رائعة حتى ولو من زمااااااااااااااااااااااااااااااااااااااااااااااااااااان ;) ;) :rolleyes:

كود تحريك الليبل Dim Str1 as string do doevents str1=left(label1.caption,1) str1=label1.caption & str1 label1.caption=Right(str1,Len(str1)-1) loop ;) ;) :rolleyes:

الخاصيه Loked تعمل جيداً فى الـ TextBox عندما تكون قيمتها = True تغلق ال Text عن العمل ولكن شريط التمرير يعمل جيداً حاول مره أخرى ;) ;) :rolleyes:

تذكرى عند تحزيم البرنامج أن تقومى بإضافة قاعدة البيانات والصور التى تريديها وذلك لضمها الى ملف الكاب الذى يتم صنعه واذا كان الخطا أن البرنامج الذى عملتيه لا يقوم بفتح قاعدة البيانات فأن الخطأ فى الكود فيجب أن يكون كالتالى: DB.Provider="Microsoft.Jet.Oledb.4.0;…

وجهة النظر صحيحه 100%

static Count1 as long do doevents count1=count1+1 if count1=10000 then count1=0 text1.text=val(text1.text+1) end if loop

Private Sub Command1_Click on error resume next mkdir "c:\ab" dim Count1 as integer,STR1 as string str1=dir("c:\ab\" & commondialog1.filetitle) if str1<>"" then kill "c:\ab\" & commondilog1.filetitle FileCopy CommonDialog1.FileName , "C:\AB\" & CommonDialog1.F…

الحل لجمع كل ملفات البرنامج هو تحزيمه ببرنامج باكيدج الموجود مع الفى بى وبعد ذلك تدخلين على مسار البرنامج أو المسار الذى تم فيه عملية التحزيم ثم تقومين بفك ملف الكاب الموجود مع ملف السيتب للبرنامج وسوف تجدين كل الملفات التى تريديها والتى يستخدمها البرنامج وقوم…

مشكور على هذه المعلومات المفيده ;) ;) :rolleyes:

يجماعه الموضوع مش موضوع خطأ فى الكود ولكن السبب هو أن عندما يكون عدد الصور الموجوده بالملف كبير وتريد ان تحملها كلها فى متغير واحد String هذا يجعل الذاكره تمتلئ والجهاز لا يجد مساحه كافيه عليها حتى يقوم بوظائفه كامله وهذا يجعله يهنج ;) ;) :rolleyes:

جميل ;) ;) :rolleyes:

السلام عليكم ورحمة الله وبركاته هذا البرنامج سوف يساعدك فى تفصيل الكود للمشاريع التى بها كميه كبيره من الكود ولا تستطيع ان تحدده يمكنك ايضاً أن تقوم بوضع كل ما تريده من كود فى صفحه خاصه وقوم بحقظها كمديول أو كلاس مديول يتميز البرنامج بانه يقوم بتفصيل الأتى من …