mrx_ta7ady

Private Sub Form_Load() Dim objWMIService Dim objNetAdapter Dim strComputer Dim arrIPAddress Dim arrSubnetMask Dim arrGateway Dim colNetAdapters Dim errEnableStatic Dim errGateways strComputer = "." arrIPAddress = Array("192.168.1.2") arrSubnetMask = Array("25…

اعتقد ان ملفات الـ Setup ناقصة قم بنقل ملفات الـ ADO أو الـ DAO الى مكانها الصحيح في الجهاز الهدف وايضا اي ملفات اخرى مستخدمه سواء مكتبات dll او ocx وبإمكانك رفع ملف المشروع فقط .. اقصد ملف الـ vbp إذا اردت ان نرشدك عن الملفات تحديدا

لكل مقام مقال هناك إستعلامات كثيرة الإستخدام في البرنامج بشكل عام .. يفضل وضعها داخل قاعدة البيانات اما الإستعلامات الثانوية قليلة الإستخدام فيفضل ان تكون فورية

الإستعلام يعامل معاملة الجدول .. هو الآخر يفتح في Recordset وبإمكانك عمل Execute لإستعلامات الإضافة والتحديث

السلام عليكــم ورحمـة الله وبركاتــة ،، في البداية ومن وجهة نظري ان ( الناس بتتقدم ولا يتأخرون ) ولا ينبغي ان تطرح السؤال من الأصل وبالنسبة للدوت نت المستقبل له .. فبدايته كانت 2003 ثم 2005 وآخره 2008 .. ودائم التحديث اما الـ Visual Basic العادي فآخره كان الإص…

ضع الكود ادناه في الكود للـ Form Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Private Const SM_CXSCREEN = 0 Private Const SM_CYSCREEN = 1 Private Sub Form_Load() Me.Move 0, 0, GetSystemMetrics(SM_CXSCREEN) * 15, GetSyst…

السلام عليكم ورحمة الله وبركاته يرجى مراعات ذلك في المرة القادمة عندك خطأ في جملة التالية tbInput.Open "select * From sick WHERE FILE_NO LiKE '%" & Trim(Text1.Text) & "%'" And date_user = " & t & "", DB" والخطأ عندك عبارة عن إستخدام خاطئ لعلامات التنصيص والجمل…

اما تضع الكود أدناه لحدث الـ KeyPress If KeyAscii = 13 Then MsgBox "Put here your event", vbInformation, "That's ok" End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) واما تضع الكود أدناه لحدث الـ KeyDown If KeyCode = 13 Then MsgBox "Put here your…

السلام عليكــم ورحمـة الله وبركاتــة ،، Mostafa.rar

الـ Bookmark في الـ ADO يحمل رقم السجل التسلسلي وفقا للسجلات الموجوده في الـ Recordset الحالي

لإضافة ملف عليك أن تضعه في Resource File صاحب الإمتداد ( *.res ) وذلك من خلال الـ Add-Ins الذي يسمى VB 6 Resource Editor .. وبعد تحميل الـ Add-Ins المطلوب اتبع الآتي إفتح قائمة Tools وإختار منها Resource Editor لتجد نافذة قد فتحت لك .. في أعلاها مجموعة أيقونات…

بالنسبة للتعليق الأول والوقت .. فاي وقت تقصد ؟؟ وما علاقة تصريحات موجوده بزر امر مثلا ؟؟ طبعا الوقت لن يزيد من هذا وغير منطيقي .. ده في اعتقادي الشخصي ;) والنطقة الثانية اعتقد انها هامة جدا .. ولكن سبق وقولت لك انك تقوم بعمل إجراءات لتنفيذ الوظائف المتعددة وذل…

السلام عليكــم ورحمـة الله وبركاتــة ،، هل هذه الفكرة مستحيلة

السلام عليكــم ورحمـة الله وبركاتــة ،، هو في فعلا طريقة .. لكنها فاشلة بالنسبة للـ Processes App.TaskVisible = False

تمام والله ينور يا بطل .. وفي انتظار الإصدار 2 ان شاء الله وبخصوص تعليقي فمش هيزيد عن اللى قلته قبل كده عن الـ On Error وايضا نفس الكلام بالنسبة للـ mdlAPI وطريقة تنظيمه واخدت بالي من الـ ErrorHandler وعجبني .. الله ينور وإجراء الـ ErrorMessage نفسه مش هعلق عل…

جزئية الكراك مش فاهمها وبالنسبة للسيريال انت حاطط السيريالات بتاعتك فين ؟؟ ياريت ترفع مثال يحوي السيريالات .. وياريت توضيح اكبر بالنسبة للكراك

متأسف جدا .. لا املك الإصدار 4.6 ولكن القاعدة مع كل الاصدارات تقريبا انك بتحمل الـ Component المناسب وتتعامل معاه

اولا لا انصحك بالهروب بوضع On Error Resume Next وان تضع حلا منطقيا لمشاكلك وثانيا ارفق مثال مع ذكر الخطوات التي تؤدي الى ظهور الخطأ هذا او اذكر لنا الإجراء المستخدم على الاقل

بإمكانك إعطاء الـ Control رقم صفر مثلا في خاصية الـ Index ثم قم بتحميل نسخه جديدة من نفس الـ Control بإستخدام الـ Method التي تدعى بـ Load ولحفظ الإعدادات الأخيرة بإمكانك وضعها في الـ Registry وفي المرة القادمة ان شاء الله لا تنسى رفع مثال للتعديل عليه

السلام عليكــم ورحمـة الله وبركاتــة إجعل العمل على جدولين وليس جدول واحد به حقلين او قم بالتوضيح بشكل اكبر :) اذا مش فاهمك