_Voodoo_

جربي هذا الكود Private Sub image1_DragDrop(Source As Control, X As Single, Y As Single) Source.Move X + Image1.Left, Y + Image1.Top End Sub

استخدم هذه الدالة ShellExecute(0,NULL,"C:\\windows\\notepad.exe",NULL,NULL,SW_SHOW); يمكنك تغيير "C:\\windows\\notepad.exe" بمسار البرنامج الذي تريد تشغيلة

الاثنان لهم نفس النتيجة لتمريرby refrence اكتب & قبل اسم النتغير int foo(int& iParam)

void* تعنى ان هذه الدالة تعود بقيمة مؤشر pointer علي مكان في الرام و يمكن تحويل المؤشر الي اي نوع float*,int*,char*,... void* هو مؤشر غير محدد النوع

هناك جملة On Error GoTo و تقوم بعمل label ينتقل الية الكود عند حدوث خطأ مثال On Error GoTo ErrHandler ErrHandler: MsgBox Err.Description وهناك On Error Resume Next التى تقوم بتجاهل الخطأ و تنتقل الي السطر التالي في الكود

جرب If IsDate(nowDate) And IsDate(myDate) Then MonthNum = DateDiff("m", nowDate, myDate) Else If IsDate(nowDate) = False Then MsgBox "nowDate " & CStr(nowDate) If IsDate(myDate) = False Then MsgBox "myDate " & CStr(myDate) End If لو ان myDate او nowDate به قيم…

http://www.arabteam2000.com/ib/index.php?s...showtopic=22728

http://www.arabteam2000.com/ib/index.php?s...showtopic=35112

مثال db.zip

App.Path & "\" & "filename"

جرب هذا المثال Dial.zip

Data1.Recordset.MoveLast Data1.Recordset.MoveFirst For i = 0 To Data1.Recordset.RecordCount - 1 'مطابقة علي حرف الباء "ب If StrComp(Left$(Data1.Recordset.Fields(0).Value, 1), "ب", vbTextCompare) = 0 Then List1.AddItem Data1.Recordset.Fields(0).Value 'قائمة لاض…

ممكن توضيح اكثر للسؤال ؟؟

المثال مرة اخرى مع مزيد من الشرح reg.zip

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

ربما تكون المشكلة انك تضع جميع البضاعة الموجدة في جدول واحد و الافضل ان تضع بضاعة كل زبون في جدول منفصل

هذا الكود به حلقات لكنه يعمل بسرعة msg.zip

السلام عليكم key.zip

السلام عليكم Clr.zip

جرب هذا المشروع به ازرار اختيار Snd.zip