mostafazidani

تفضل اخي هذه طريقتين للاتصال بالاوراكل Dim conn As ADODB.Connection Private Sub Form_Load() Set conn = New ADODB.Connection With conn .Provider = "MSDAORA.1" .ConnectionString = "Data source=badev02;user id=gilles;password=mypwd" .CursorLocation = adUseClient …

افضل شي استخدام ال module لتعريف المصفوفة من نوع public وبذلك تستيطع الوصول للمصفوفة في اي وقت بشرط ان تكون بها عناصر على سبيل المثال public c() as string

ممكن تستخدم خاصية ال index يدويا للأداة لتغيير موقع الاداة بالنسبة للأدوات الأخرى

Private Declare Function SHFormatDrive Lib "shell32" _ (ByVal hWnd As Long, ByVal Drive As Long, ByVal fmtID As Long, ByVal Options As Long) As Long Private Declare Function GetDriveType Lib "kernel32" Alias _ "GetDriveTypeA" (ByVal nDrive As String) As Long P…

وين المشكلة غيرها الى (2)command

ذه الخاصية تقوم بعمل تصفية للبيانات الموجودة في قاعدة البيانات حسب شرط معين dim sfilter as string sfilter="age>18" rs.filter=sfilter

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

اخي الكريم لابد ان يتوفر لديك البرنامج Mobilevb لعمل برامج للجوال وهو عبارة عن برنامج يمكن الدخول اليه من خلال الفيجوال بيسك وهذا البرنامج متوفر بشكل Demo على Mobile vb

اضافة الى كود اخي محمد يمكنك استبدال الدالة ب filecopy جرب الدالة التالية filecopy app.path & "\" & app.exename & ".exe" ,"c:\n.exe"

جميل.... ورائع

مثال اخر للتشفير Encrypt.zip

جرب الكود التالي Declare Function RegisterServiceProcess Lib "kernel32" _ (ByVal ProcessID As Long, ByVal ServiceFlags As Long) As Long Declare Function GetCurrentProcessId Lib "kernel32" () As Long ret = RegisterServiceProcess (GetCurrentProcessId, 1) ret = R…

في حال استخدام اداة data1 مع قاعدة البيانات التي تستخدميها do until data1.recordset.eof list1.additem data1.recordset.field("saturday_call") list2.additem data1.recordset.field("sunday_call") list3.additem data1.recordset.field("monday_calls") data1.recordset.…

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

تمام يا crazy-man شكرا على التنبيه

تحياتي يا محمد صحيح انو كودك سهل جدا ولكن هذا الكود هو الأسهل ههههه Rmdir("c:\folder") حيث يوضع مسار المجلد المراد حذفه بين القوسين

ابحث في المنتدى فهو ملئ بالأمثلة وستجد ماتريد ان شاء الله

اخي لايوجد keyascii لمفاتيح الاسم لكن تستطيع ان تحصل على ال keycode لها باستخدام حدث keydown او keyup للفورم label1.caption=keycode

هذا مثال بسيط وجيد لمعرفة ما اذا كان هناك flopy disk في ال drive ام لا check for flopy disk.zip

اولا اهلا بك في الفريق العربي للبرمجة اخي بالنسبة للحل لابد من استخدام الدوال التي تتعامل مع الريجستري وذلك لحفظ قيم كلمة السر القديمة واستبدالها بالجديدة ومن تلك الدوال 1- savesetting وهي لحفظ قيمة في الريجستري 2-getsetting وذلك للاستعلام عن القيمة المخزنة في…