العقده

وكمان up

جرب هذا : Private Sub Command1_Click() Print Check_Arbic("ÓÔãÔÍ ÔÝÔÝ") End Sub Public Function Check_Arbic(inArabic As String) As String Dim cArabic As String, cEnglish As String, ww As String cArabic = "ÖÕËÞÝÛÚåÎÍÌÏÔÓíÈáÇÊäãßØÆÁÄÑáÇìÉæÒÙ" cEnglish = "qwertyui…

up

اضافه بسيطه بس على كود الاخ Sphinx-EG ليتضمن نص الرساله بانه اخر عميل ليصبح كالتالي : Private Sub cmdNext_Click() If datCust.Recordset.BOF And datCust.Recordset.EOF Then MsgBox("this is the last one") Else datCust.Recordset.MoveNext txtCustNo = datCust.Records…

يا سبحان الله نفس اللي كنت ابغى اقوله

اوافقك الرأي msayed2004

اختبر tr1.SelectedItem.Key Private Sub tr1_NodeClick(ByVal Node As MSComctlLib.Node) If tr1.SelectedItem.Key = "ch9" Then MsgBox tr1.SelectedItem.Key End Sub

عذرا اخي إسماعيل الحلو ليس : "ياأيها الذين آمنوا اصبروا وصابروا ورابطوا واتقول الله لعلكم تفلحون" انما : "ياأيها الذين آمنوا اصبروا وصابروا ورابطوا واتقوا الله لعلكم تفلحون"

السلام عليكم ورحمة الله وبركاته : اخواني عندي برنامج بالفيجوال بيسك يقوم بالاتصال بقاعدة بيانات اوراكل موجوده على السيرفر . 1 - هل اقوم بوضع البرنامج على اجهزة المستخدمين وفي حال تم تحديث للبرنامج من قبلي اقوم بنقل البرنامج مرة اخرى على اجهزتهم . أو 2 - اضع ال…

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

;)

استخدم ImageList لتحمل الصور التي ترغب في اظهارها في Listview واسناد Imagelist في Listview عموما هذا مثال سريع كتبته لك يوضح ان شاء الله تعالى المراد . Image_Listview.zip

Private Sub Form_Load() List1.RightToLeft = True List1.AddItem "محمد" List1.AddItem "احمد" List1.AddItem "محمود" List1.ListIndex = 0 Command1.Caption = "Next >" End Sub Private Sub Command1_Click() Static i i = i + 1 If i < List1.ListCount Then List1.ListIndex…

لا شكر على واجب .. على العموم شفلك موقع خريجي كلية تجارة وشاركهم في شرح اي فكره تخطر على بالك حتى تخرجوا بشرح موجز وواضح ويصل للمطلوب .. واعرضه هنا في موقع الفريق العربي للبرمجه .

بدت العشرة الاواخر .. موعدنا 6/10 ان شاء الله تعالى

يا ليت تتفضل وتحاول تطبق المثال اعلاه في مشروع تقوم انت بتنفيذه وفي حال واجهتك مشاكل ارفق المشروع وابشر اقوم بتصحيح ما يحتاج لتصحيح ... يا كسول :P

اذا كان البرنامج جاهز وتم تشغيله لاول مره في بئة مستخدم عادي ليس له صلاحيات Administrator سوف تحصل على رسالة الخطأ هذه ايضا لكن حلها اذا كان هذا الذي ينطبق على وضعك قم تنفيذ البرنامج ولو لمره واحده فقط في بئة مدير للنظام حتى يتم السماح بانشاء object الخاص بالـ…

شوف حبيبنا اذا كان عندك برنامج الــ WinRAR سوف تجد ضمن ملفاته ملف باسم Rar.exe هذا الملف ممكن تستخدمه عن طريق Command Prompt لاختبار ما سوف اشرحه لك . ضغط الملف : Rar البرنامج التنفيذي للعملية a بارمتر يقوم بتشغيل ضغط الملف File1 الملف الجديد الذي سيحمل اسم ال…

والله ياخي في طريقه بس باستخدام برنامج الــ WinRAR ضمن ملفاته يوجد ملف يتم تشغيله ورسل بارمترات لضغط الملف وفك الضغط في الدوس مود وممكن التعامل معها من خلال اي لغة برمجه وسبق انني تعاملت معها في ضغط ملف قاعدة بيانات اكسس ايام الاكسس ورسله عن طريق شبكه هاتفيه ب…

تفضل جرب هذه الطريقه : Private Sub Form_Load() Dim RS As New ADODB.Recordset Dim Sql As String Sql = "SELECT * FROM name_ser" Set RS = Cn.Execute(Sql) Dim nn As String Do Until RS.EOF If Check_DBL(RS.Fields("compony_name")) = False Then compony_name.AddItem RS…