• الإعلانات

    • فيصل الحربي

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

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

بن ملعاط

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

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

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

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

1 عادي

عن بن ملعاط

  • الرتبة
    عضو
  • تاريخ الميلاد 05/28/1965

طرق الإتصال

  • MSN alimaimoni
  • ICQ 0
  • Yahoo alimaimoni

معلومات الملف الشخصي

  • الجنس ذكر
  • اهتمامات السباحة والسياحة
  1. ملء Textbox باستعمال Listbox

    أخي الكريم جرب هذا الكود Private Sub ListBox_Countries_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox_Countries.SelectedIndexChanged If TextBox1.Text.Contains(ListBox_Countries.SelectedItem) Then Exit Sub End If If TextBox1.Text.Contains("Countries :") Then TextBox1.Text = TextBox1.Text + vbNewLine + " " + ListBox_Countries.SelectedItem Else TextBox1.Text = "Countries :" + vbNewLine + " " + ListBox_Countries.SelectedItem End If End Sub
  2. برنامج المحاسب

    هذه طريقة بدائية تفي بالغرض و الإخوان فيهم الخير و البركة Private Sub mCalc() Dim aBuyPrice As Double Dim aSellPrice As Double Dim aExpense As Double Dim aProfit As Double aBuyPrice = Val(TextBox1.Text) aSellPrice = Val(TextBox2.Text) aExpense = Val(TextBox3.Text) aProfit = aSellPrice - (aBuyPrice + aExpense) If aProfit > 0 Then TextBox4.Text = aProfit TextBox5.Text = 0 Else TextBox4.Text = 0 TextBox5.Text = aProfit End If End Sub في حدث textbox1,2,3 changed استدع الدالة السابقة mCalc()
  3. مشكلة في كود ربط CompoBox مع قاعدة البيانات

    هو موجود فعلا في حدث اللود فورم form8 و لكن يجب أن تلاحظي أنني غيرت اسم جدول الصفوف في نفس قاعدة البيانات و كذلك في البرنامج ليصبح Sch_Rows بدلا من Rows وبدون هذا التغيير أكيد لن يعمل و الله سبحانه أجل و اعلم
  4. ممكن ترفع مثال للتسهيل على من لديه فكرة بالتوفيق
  5. أولا الجدول يحنوي فعلا على 54 سجل شاهد الصورة المرفقة ثانيا بالنسبة للكمبوبوكس انت عامل دالة لتعبئة الكمبوبوكس FILLCOMBOBOX("CustomerDetails", "address", Me.ComboBox) ولكن الدالة في Module1 فارغة Module Module1 Public Sub FILLCOMBOBOX(ByVal TABLE As String, ByVal FIELD As String, ByVal COMBO As Object) End Sub End Module بالتوفيق
  6. مشكلة في كود ربط CompoBox مع قاعدة البيانات

    جربت كل الحلول و لكن لم تضبط معي لأن كلمة Rows كلمة محجوزة في الفيجوال بيسك دوت نت و بعد تغيير اسم الجدول إلى Sch_Rows و تنفيذ هذا الكود تمت تعبئة الكمبوبوكس conn.Open() Dim dataadapter1 As New OleDbDataAdapter(sqlstr, conn) dataadapter1.Fill(dataset1, "Sch_Rows") conn.Close() ComboBox1.DisplayMember = "Row_Name" ComboBox1.ValueMember = "Row_No" ComboBox1.DataSource = dataset1.Tables("Sch_Rows") أتمنى أن أكون قد أفدتك
  7. ,basiceditfunction='" & If(Trim(txtbasicedit.Text)="نعم",True,False) بكل بساطة إعمل جملة شرطية إذا كانت قيمة التكست بوكس نعم يسجل في مكانه قيمة منطقية True كما في المثال
  8. على حسب فهمي لردك الأخير فأنت تحاول كتابة متغير من نوع نصي إلى حقل من نوع منطقي وهذا من المؤكد أنه خطأ. هل هذا ما تقصد أخي الكريم
  9. سؤال عن كيفية البحث بخيارات متعددة

    :excl: :excl: :excl: :excl: :excl: :excl: :excl: :excl: :excl: :excl: :excl: :excl: :excl:
  10. إخواني الكرام في المنتدى الكريم السلام عليكم ورحمة الله وبركاته بعد انقطاع طويل عن عالم الدوت نت أعود لهذا المنتدى الكبير و الذي كان الفضل بعد الله له في دخولي عالم البرمجة سؤالي أنا الآن لدي فكرة لإنشاء برنامج لإدارة مزرعة أغنام متكامل و من الأفكار التي في البرنامج هي متابعة رصيد الأعلاف فمثلا الاستهلاك اليومي للبرسيم مثلا هو 10 مكعبات و الشعير 2 أكياس و القصب 6 مكعبات وهكذا ... الخ طبعا هناك رصيد المخزون مثلا 500 مكعب برسيم و 200 كيس شعير و 400 مكعب قصب .... الخ الآن مع الأخذ في الإعتبار أن البرنامج لن يعمل يوميا يعني من الممكن أن يتم تشغيل البرنامج مرة أو مرتين في الأسبوع هل لدى أحد منكم فكرة أو تلميح كيف يمكن متابعة و حساب إستهلاك الأيام التي لم يعمل فيها البرنامج لأنه لو كان البرنامج يعمل بصفة دائمة ليست هناك مشكلة حيث يتم خصم الإستهلاك اليومي مع كل تغير للتاريخ أتمنى أن تكون الفكرة وصلت و أعتذر لكم عن الإطالة
  11. أخي الكريم أنا باستخدم هذه الدالة من فترة طويلة لتعطيل زر إغلاق الفورم Public Function DisableCloseButton(ByRef frm As System.Windows.Forms.Form) As Object Dim lHandSysMenu As Integer Dim lAns1, lAns2 As Integer lHandSysMenu = GetSystemMenu(frm.Handle.ToInt32, 0) lAns1 = RemoveMenu(lHandSysMenu, 6, MF_BYPOSITION) lAns2 = RemoveMenu(lHandSysMenu, 5, MF_BYPOSITION) DisableCloseButton = (lAns1 <> 0 And lAns2 <> 0) End Function وفي حدث تحميل الفورم Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load DisableCloseButton(Me) End Sub و طبعا للأمانة أخذتها من منتدى من زمن طويل لكن نسيت من أي منتدى حصلت عليها و بالتوفيق
  12. بالتوفيق إن شاء الله أخي الكريم جمال الدين لدي استفسار بسيط عند تشغيل البرنامج لدي لم يتعرف على سيرفر الـ SQL المدمج مع الدوت نت فهل جربت البرنامج و هل من الضروري وجود SQL server 2008 ولك الشكر
  13. كيفية عرض ورقة عمل إكسل داخل الفورم

    أشكرك أخي الكريم ولكن ليس هذا ما قصدته سؤالي أن يتم عرضه بدون استيراد إلى قريد شكرا
  14. السلام عليكــم ورحمـة الله وبركاتــه و صلى الله على سيدنا محمد وآله وصحبه وسلم إخواني الكرام طلب مني عمل بريمج صغير للبحث عن ملفات الإكسل في الجهاز و هنا لا مشكلة لكن المطلوب هو عرض ورقة العمل الأولى أو غيرها عند ما يتم اختيار الملف بحثت كثيرا ولم أجد حل وجدت بعض الكومبوننت الغير مجانية و لكن لم تعمل ربما لأنها تجريبية هل من تلميح أو فكرة جزاكم الله كل خير شكرا
  15. أرسلت لك على الخاص