Mafraoaf

السلام عليكم و رحمة الله و بركاته : أخي الكريم : يمكن أن تسخدم هذه الـ Function , والتي تتحقق من جميع الـ CD-Roms الموجودة في الجهاز إذا كانت تحتوي على القرص الخاص ببرنامجك أم لا ... Imports System.IO Function CDExist() As Boolean Try Dim myDrives() As DriveIn…

السلام عليكم ورحمة الله و بركاته : طيب أخي الكريم : 1- لماذا لا تجرب الحلول المقترحة من قبل الـ Debugger والموجودة في زاوية رسالة الخطأ تحت ( Actions ) 2- جرب أن تجعل الـ Wizard يقوم بعمل الاتصال بقاعدة البيانات و هي موجودة على الجهاز الآخر , ثم انظر إلى سلسلة…

السلام عليكم ورحمة الله و بركاته : أولاً : لا أدري لماذا تتعبين نفسك بكتابة كل تلك الأسطر من الكود في الوقت الذي يستطيع الـ Wizard أن يريحنا منه ببضعة نقرات بالماوس ! ثانياً : أنصح بالاستفادة من الحدث CellLeave الخاص بالـ DataGridView والذي ينقدح عندما يهم الت…

السلام عليكم و رحمة الله و بركاته : أخي الكريم : حل هذا اللغز و احصل على حل مشكلتك .... Dim x As String = "TW000002" Dim y As Integer ' y = CType(Strings.Replace(x, "TW", "1"), Integer) y += 1 MessageBox.Show(String.Concat("TW", Strings.Mid(y.ToString, 2))) أن…

السلام عليكم و رحمة الله و بركاته : فرضاً لو أردنا تلوين السجل الحالي في الـ DataGridView بلون معين , نستخدم السطر التالي : Me.DataGridView1.CurrentRow.DefaultCellStyle.BackColor = Color.Beige والله أعلم , وفقكم الله لكل خير ...

السلام عليكم و رحمة الله و بركاته : ربما المشكلة لها علاقة مع المشاركة التالية : /index.ph...=125176&hl= وفقكم الله ...

السلام عليكم و رحمة الله و بركاته : أخي الكريم : لكي نحصل على نتيجة جمع حقل عددي في جدول بيانات , استخدم عبارة Select مع الوظيفة Sum ... هكذا : Select Sum(FieldName) from TableName وفقكم الله لما يحب ويرضى في الدنيا والآخرة ....

السلام عليكم و رحمة الله و بركاته : أخي الكريم : هناك أداة في VB6 تسمى Microsoft Multimedia Control 6.0 تستطيع أن تجلبها إلى VB.Net كــ Component إضافية (right click على شريط الأدوات ثم choose items) وبواسطة هذه الأداة تستطيع تشغيل ملفات صوت و فيديو , وكذلك ال…

السلام عليكم و رحمة الله و بركاته : أخي الكريم : الطريقة التي ذكرتها في بداية السؤال لا تحقق الحماية المطلوبة ... كيف ؟ افرض أني سأقوم بنسخ برنامجك والعمل عليه , ودعه يقوم بالفحص والمقارنة التي يشاء ...! أين هي تلك الحماية ؟ فأنا لن أقوم بتغيير الـ MotherBoard…

السلام عليكم أخي الكريم : أرجو أن يكون هذا مقصدك كما في المثال ... Dim img As Image Dim result As Boolean = Clipboard.ContainsImage ' If result = True Then img = Clipboard.GetImage() img.Save(Application.StartupPath & "\TheImage.bmp") MessageBox.Show("A new im…

السلام عليكم ورحمة الله وبركاته : أولاً : أخي الكريم , لا تستخدم أسماء للـ Subs أو الـ Functions تشبه الأسماء التي تستخدمها لغة البرمجة أو المحجوزة من قبل لغة البرمجة , إلا إذا كانت تقبل عملية ما يسمى الـ OverLoading والتي تعني باختصار : إجراءات متعددة بنفس ال…

السلام عليكم ورحمة الله وبركاته : المعذرة من أخي A7med_prof بارك الله فيه , أود أن أوضح للأخ ميدو666 كيفية إجراء الحل الأول : أخي ميدو666 ضع هذه الـ Function والتي تقوم بالتأكد من المستخدم وكلمة مروره و إخراج النتيجة إما True أو False أي هكذا : Function IsRigh…

السلام عليكم ورحمة الله وبركاته : أخي A7med_prof : أظن أن الزميل يريد أن يجعل الـ ComboBox نفسها مضمنة داخل خلية الـ DataGrid . أرجو أن يستفيد من هذا المثال الذي يضمن الـ ComboBox وكذلك الـ DateTimePicker داخل خلايا الـ DataGrid ملاحظة : المثال منقول .... وفقك…

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

السلام عليكم ورحمة الله وبركاته : أولاً : أشكر جميع من اطلعوا على الموضوع وشاركوا ... حياكم الله جميعاً . ثانياً : أرى أنني أتكلم مع نفسي ومع بعض المشرفين والزملاء الأعزاء فقط ! .. مع أننا نتكلم العربية , ونريد الفائدة والمساعدة للجميع . لكن الظاهر أن الغالبية…

السلام عليكم ورحمة الله وبركاته أصدقائي الأحبة ... الشكر الجزيل للأخ A7med_prof على التوضيح , أقدر لك متابعتك وحرصك على المساعدة صديقي العزيز تقبل التحية ... و حياكم الله جميعاً زملائي الأعزاء ... بإذن الله لن نبخل عليكم بما نعرفه . نرجو دعاءكم .... إذا مازال …

السلام عليكم أخي الكريم : أداة الـ Panel تشبه إلى حد كبير أداة الـ GroupBox لكن الفرق أين ..؟ 1- أداة الـ Panel يمكن أن يكون لها ScrollBars بينما الأخرى فلا . 2- أداة الـ GroupBox يمكن أن تضع لها عنوان Caption أما Panel فلا . هذا ما أعرفه ... وفقكم الله

السلام عليكم أخي الكريم : في المرفقات مثال بسيط يوضح كيفية نسخ بيانات من قاعدة بيانات إلى أخرى .. أرجو أن يفي بالغرض ... سامحنا وادع للجميع . وفقكم الله . MergeDB.rar

السلام عليكم أخي الكريم : يمكن أن يفيد هذا الحل أيضاً بإذن الله ... أخي : دون أن نعطي رسالة للمستخدم , سوف نمنعه من الكتابة باللغة العربية في مربع النص المقصود ... كيف ؟ 1- نفحص حدث تغير لغة الكتابة أو الإدخال فيما لو تغير إلى العربية وذلك عند وقوف المستخدم في…

السلام عليكم أخي الكريم : طيب ما رأيك لو قمنا بالمرور على كل الأسطر , ثم التحقق من إدخال المستخدم ... يعني هكذا : For x As Integer = 0 To Cheq2007DataSet.Users.Rows.Count - 1 If Cheq2007DataSet.Users.Rows(x).Item("ColumnName") = Value Then ' right user Else ' …