• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

المهنا

اعضاء
  • عدد المشاركات

    952
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن المهنا

  • الرتبة
    عضو مميز

طرق الإتصال

  • ICQ 0

أحدث الزائرين لملفلك الشخصي

1,812 زياره للملف الشخصي
  1.   طلب للذواقه و أهل التصميم (تصميم فورم)   السلام عليكم ورحمة الله وبركاته    أتمني منكم المساعدة في ترتيب القطع بشكل رائع وجذاب و عملي    طلب  للمصميم الذواقة ترتيب الأدوات و القطع حسب حجم البيانات الموجودة في الصور مع مراعات    عدم زيادة حجم الفورم ممكن تستفيد من أي أداة بشرط أن تكون تابع للوندود الافتراضي أو الإخفاء و الإظهار     واتمني اضافة أفكار و حركات حلوة لاظهار الازرار و الأدوات واخفائها          مرفق فورم البرنامج  وشكرا مقدما      The design of the form.rar
  2. الف شكر ومجهود رائع    لا عدمناك يا أبا حازم
  3. السلام عليكم    نصيحة حمل الكود و ضعة في مكتبتك الخاصة في باب list فصل قواعد البيانات    عند مشكلة في هذا البرنامج وهو عبارة ثلاث لستات عملت كل شئ الربط و البحث و العرض    بقي فقط الاضافة و الحذف عملتها ولكن بطريقة غبية جدا و هي label مخفية ولكن أخطائها أكثر من صوابها لانها ليست احترافية المطلوب بعد إذنكم تفعيل عملية الحذف و الإضافة بأي طريقة فاعلة    و أريد عند الضغط على نتيجة البحث في listbox4 يعطيني ما يناسبها في باقي اللستات المخفية    لان هذا الفورم جزء من فورم رئيس يحوي كود  حيث ان TextBox1 = دار النشر و TextBox2 = البلد - المدينة   Form2.TextBox1.Text = ListBox3.Text Form2.TextBox2.Text = ListBox2.Text & " _ " & ListBox1.Text   واذا تم الضغط على listbox4  لا تظهر اسم المدينة ولا البلد في TextBox2  ما يظهر فقط هو listbox4.Text     المثال المرفق ListBoxDataSet.rar
  4. هذا الخط و الرابط وفعلا بعد التطبيق الكلام صحيح 100%   http://fonts.elaana.com/download-SC_OUHOD.ttf/server-1     أو حمل المرفق و ضعه في مجلد الخطوط في فجلد وندوز    او اضغط عليه باليمين بعد فك الضغط واختر تثبيت    SC_OUHOD.rar
  5. عندي طلب ليس بالبسيط صراحة و أتمني منكم المساعدة و لكم الشكر والتقدير إريد بعد إذنكم : عند إضافة كتاب جديد يختار فئة التصنيف اولا من الكامبو بوكس الذي يحوي  000 المعارف العامة 0001-0  100 الفلسفة وعلم النفس 0001-1 200 الديانات 0001-2 300 العلوم الاجتماعية 0001-3 400 اللغات 0001-4 500 العلوم الطبيعية والرياضية 0001-5  600 التكنولوجيا (العلوم التطبيقية) 0001-6  700 الفنون 0001-7  800 الآداب 0001-8 900 التاريخ والجغرافيا 0001-9 فلو اختار العلوم الطبيعية والرياضية مثلا (5)SelectedIndex يتم وضع رقم (5) علي يسار TextBox4= 5-0001 و يتم توليد باقي الرقم بداية من (0001) تلقائيا إعتمادا على عدد الكتب الموجودة فعليا في المكتبة من نفس النوع (500 العلوم الطبيعية والرياضية 0001-5 ) فلو كان عدد الكتب الموجودة في المكتبة من فئة (العلوم الطبيعية والرياضية ) مثلا 241 يتم توليد الرقم التالي في : TextBox4= 5-0242 للكتاب الجديد  حيث أن الرقم (5) هو SelectedIndex = العلوم الطبيعية والرياضية  و الرقم ( 0242 ) هو عدد الكتب من نفس الفئة في المكتبة + 1 للكتاب الجديد وهذا يتم في حدث SelectedIndexChanged اللى طبعا راح يكون مخفي حتى إلا اذا تم إضافة كتاب جديد  قمت بعمل كل شئ قاعدة بيانات جدولين كتب وجدول آخر للعملية  بحيث تتم العملية للحذف و الإضافة و يتجاهلها وقت التعديل  فاذا تم حذف كتاب من نفس الفئة ينقص الرقم و يحذف من الجدولين جدول الكتب وجدول الأرقام هذا المثال  الرابط   5-0002.rar     مبسط قمت بعمل كل شئ قاعدة بيانات جدولين كتب وجدول آخر للعملية  و قمت بالاتصال وعرض البيانات كاملة بكافة الأدوات 
  6. هذا الحل من منتدى مجاور فلصاحبه كل الشكر والعرفان    ضع Button وإثنان TextBox وواحد Label بنفس التريب الذي موضوعك Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim t1, t2, t3 As Char Dim s() As String = Me.TextBox2.Text.Split t1 = If(s(s.Length - 1).StartsWith("ال"), s(s.Length - 1)(2), s(s.Length - 1)(0)) t2 = If(Me.TextBox2.Text.StartsWith("ال"), Me.TextBox2.Text(2), Me.TextBox2.Text(0)) t3 = If(Me.TextBox1.Text.StartsWith("ال"), Me.TextBox1.Text(2), Me.TextBox1.Text(0)) Me.Label1.Text = t1 & " " & t2 & " " & t3End Sub
  7.  إستطعت والحمد لله توليد رقم التصنيف و بقي حروف التصنيف قلت أستفسر منكم ممكن تفيدوني    حروف تصنيف ديوي العشري له قاعدة محددة وهو أنه مكون من ثلاثة حروف مقطعة  (أ ب و) أو (م ك ر) أو أي شئ    القاعدة تقول أن هذه الحروف الثلاثة  = الحرف الأول من إسم عائلة المؤلف بدون (ال) + الحرف الأول من الإسم الأول للمؤلف بدون (ال ) +  الحرف الأول من إسم الكتاب بدون (ال)   مثلا إسم الكتاب : "الفريق العربي للبرمجة"    و المؤلف : محمد بن حسن القاسم  إسم عائلة المؤلف     = القاسم الحرف الاول بدون (ال) = ق الإسم الاول للمؤلف  = محمد الحرف الاول بدون (ال) = م الإسم الاول للكتاب   = الفريق الحرف الاول بدون (ال) = ف   اذا المفروض حروف التصنيف متقطعة ( ق م ف )         و شكرا للجميع      tasiiif.rar
  8. الف شكر وجزاك الله خيرا 
  9. قديما كنت أكتبة في vb6 بالشكل التالي : Text1.Text = Left(Text2.Text, 6)ويعني أن Text1.Text = أول ستة أرقام من اليمين للـــ Text2.Text   فلو كتبنا في Text1.Text الرقم التالي : 12345678586985985   يسجل لي أول سته أرقام من اليسار فقط  في Text2.Text   =  123456   أو من اليمين  Text1.Text = right(Text2.Text, 6) Text1.Text = right (Text2.Text, 6كيف يكتب الآن في الـ vb.net لاني حاولت بكثير من الاحتمالات وما نفعه      منها هذا الإحتمال و الذي لم ينجح  TextBox2.Text = Left(TextBox1.Text, 6)
  10. الف الف مليون شكر    فعلا استاذ ورئيس قسم شكرا مرة ثانية    وتعديل أفضل من شغلي الاول لانه بأقل الأكواد    شهر مبارك وكل عام وانت بخير    سؤال أخير فيه كود بسيط يخليك تأخذ للتكست بوكس 2 عدد خانات محدد من التكست الأول      يعني لو عندي تكست مكتوب فيه =       14258685255      واضغط ع كوماند يعطيني في التكست الثاني =          (    255   )      أول حرفين من اليمين او اليسار من التكست السابق أو أخر رقمين حسب ما اريد (   142  )     تحياتي 
  11. مثال رائع للـ Listbox اتمني تعديل بسيط عليه    وحتى اسهل عليك التعديل قمت بعمل كل شئ Example-list-pro.rar   قاعدة البيانات موجودة وبها 3 جداول جدول للبلد وجدول للمدينة وثالث للحي وبينها علاقة في نفس الجداول من الاكسس    المطلوب واضح عند الضغط على اسم البلد يظهر لي اسم المدن لتلك الدولة و اذا ضغطت ع المدينة يطلع لي الاحياء   
  12. هذا المشروع كامل مع قاعدة البيانات و السورس كود كاااامل    مع الشكر للأسواني رابط التحميل لكامل البرنامج   http://www.up-00.com/?S28Q    
  13. أولا شهر مبارك للجميع وكل عام وأنتم بخير وجعلكم من صوامه وقوامه        هل يوجد في vb13 تقارير DataReportدون الحاجة لـCrystal Report   واتمني مثال لاني لاحظت عدم وجود مثال واحد حتى للتقارير    للأسف كل الأمثلة التي حملتها كانت لـــCrystal Report   ولم تعمل معي لاني لم اثبت Crystal Report   وليس لدي رغبة في تثبيته لانه معقد وربطه مع قاعدة البيانات صعب ومع البرنامج اصعب 
  14. برنامج الارشيف العام

    الف شكر لمجهوداتكم
  15. ألف شكر تم حل المشكلة بمباركتكم لله الشكر أولا وأخيرا ُثم لكم سعدت بمساعدتكم شهر مبارك وكل عام وأنتم بخير وهذه هي الأداة vbalFlBr6.dll vbalFlBr6.rar VB6_Folder_Browser.zip