GHOST2010

نصيحة غالية من اخ غالى , سأعمل بها ان شاء الله :rolleyes:

السلام عليكم ورحمة الله وبركاته يجب عمل دالة لمعرفة امتداد الملف أولاً ثم يتم تحديد الايكونة على حسب الامتداد وستكون الدالة كالتالى Private Function GetExt(strFile As String) As String Dim S$, i% i =InstrRev(strFile, ".") S =Right(strFile, Len(strFile) - i) Ge…

تمام ياعم بوووووووووح :rolleyes:

السلام عليكم ورحمة الله وبركاته لمنع اغلاق الفورم اكتب Private Sub Form_Unload(Cancel As Integer) Cancel = 1 End Sub ولمنع ذهاب الفورم الى شريط المهام استخدم الكود Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As…

السلام عليكم ورحمة الله وبركاته هذا الكود يحذف المجلد بالكامل Private Sub Command1_Click() Dim O As Object Set O = CreateObject("Scripting.FileSystemObject") O.DeleteFolder "C:\Test" End Sub

السلام عليكم ورحمة الله وبركاته اعمل الاتى Project>>Components>>Microsoft Windows Common Control بعد ذلك ستجد الاداة فى شريط الادوات باسم DTPicker :rolleyes:

السلام عليكم ورحمة الله وبركاته ريح نفسك وجرب الاداة دى حدد الايكونة فى خاصية Icon واكتب فى حدث تحميل الفورم Tray1.Create ولحذف الايكونة اكتب Tray1.Destroy :rolleyes: MBTray.rar

وعليكم السلام ورحمة الله وبركاته 1- أدرج أداة الليست فيو والايميج ليست 2- اضغط كليك يمين على الليست فيو واختر Properties 3- اختر التبويب Image Lists 4- ستجد ثلاثة صناديق مركبة حدد بها اسم الايميج ليست وليكن ImageList1 5- اضغط كليك يمين على اداة الايمبج ليست 6-…

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

السلام عليكم ورحمة الله وبركاته انت تستخدم الفيجوال بيسيك لذلك عند ارفاق برنامج لابد ان تتواجد معه جميع ادواته ومكتباته التى يستخدمها كما انك اذا كنت تريد وضع البرنامج بدون السورس كود فقم بوضعه فى قسم الاعلانات لان قسم الفيبى للتعلم وليس للتباهى بالبرامج <_<

فين السورس , فين معلومات البرنامج , فين معلومات المبرمج , فين البرنامج؟ :lol:

اذا كنت تريد وضع البرنامج بدون الكود فضعه فى قسم الاعلانات اما هنا فالهدف هو التعلم فلابد من وضع الكود :rolleyes:

موضوع قسم اللغة الانجليزية تمت مناقشته من قبل ولم يجد التفاعل المطلوب لكن ربما تعاد المناقشة :rolleyes:

لانك قليل الدخول والمشاركة على ماأظن :unsure:

هل تتحدث الى نفسك !!!!!!!!! :unsure: :wacko:

جميل يامحمد :rolleyes:

السلام عليكم ورحمة الله وبركاته كما تقول سنكتب اسم المجلد كاملاً فى صندوق الادخال وسيخزن فى المتغير sRet اذاً مافائدة المتغير sCurPath ؟؟؟؟؟؟؟؟ هو لن يؤثر على الكود لانه لايحتوى على اية بيانات فلا فائدة منه :rolleyes:

كما وضح الاخى ANSI لكن لااعرف اذا كانت القوانين قد تغيرت ام لا لان هناك اعضاء تخطوا عدد المشاركات ولم تتم ترقيتهم بعد لكن هذه هى قوانين الترقيات التى وضحها الاخ ANSI مشكوراً :rolleyes:

يااخى , والله كان طلبك هو كيفية حفظ صورة داخل قاعدة البيانات وقد وضحت لك الطريقة أما استعراض الصورة عن طريق الـID فهذا سهل جداً ستسخدم جمل SQL لكن واضح انك متوتر قليلاً :rolleyes:

اسف , قم بنقل الجملة Dim O As Object الى قسم التصريحات العامة وسيعمل الكود دون مشاكل ان شاء الله :rolleyes: