[Rabeea Qbaha]

السلام عليكم

محتاج افكاركم شباب لو سمحتم.

أريد ان اعرض البيانات من قاعدة البيانات بشكل مربعات يعني كالاتي :

المنتجات لن تكون كثيرة كحد اعلى ٤٠ منتج ، ما هي افضل طريقه لانجاز هذا ؟؟

[asemshahen5]

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

[سعود]

PHP كود :

Public Class Form1

    Dim lst As New List(Of String)
    Dim WithEvents b As bt
    'Private Sub Badded(sender As Object, e As System.EventArgs)
    '    Dim lbl As New Label
    '    With lbl
    '        .Text = "b"
    '        .AutoSize = True
    '        .ForeColor = Color.Red
    '        .Top = sender.bottom
    '        .Left = sender.left
    '    End With
    '    f.Controls.Add(lbl)
    'End Sub

    Private Sub ad(ByVal t As Control)
        Dim lbl As New Label
        With lbl
            .Text = "b"
            .AutoSize = True
            .ForeColor = Color.Red
            .Top = t.Bottom
            .Left = t.Left
        End With
        f.Controls.Add(lbl)
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        For i As Integer = 0 To lst.Count - 1
            b = New bt
            With b.Button1
                .Text = lst(i)
                .ForeColor = Color.Blue
            End With
            With b.Label1
                .Text = i
                .ForeColor = Color.Green
            End With
            f.Controls.Add(b)
        Next

    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        lst.Add("Cars")
        lst.Add("Planes")
        lst.Add("Cats")
    End Sub

   
   
End Class 


---

نسيت احذف احداث ad و Badded
ماضبطت معي واستخدمت usercontrol

[asemshahen5]

تعديل بسيط على كود الاخ سعود لاضافة كود للزر المضاف عند النقر :

PHP كود :

Public Class Form1
    Dim lst As New List(Of String)
    Dim WithEvents b As bt
    Private Sub BtnClick(sender As System.Object, e As System.EventArgs)
        Dim btn1 As Button = CType(sender, Button)
        MsgBox(btn1.Text)
        MsgBox(btn1.Tag)
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        For i As Integer = 0 To lst.Count - 1
            b = New bt
            With b.Button1
                .Text = lst(i)
                .ForeColor = Color.Blue
                .Tag = i
            End With
            With b.Label1
                .Text = i
                .ForeColor = Color.Green
            End With
            f.Controls.Add(b)
            AddHandler b.Button1.Click, AddressOf BtnClick
        Next
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        lst.Add("Cars")
        lst.Add("Planes")
        lst.Add("Cats")
    End Sub
End Class 


[سعود]

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

فاكرين الموضوع هذا التالي:

[مشروع] إعادة فكرة توليد موديول

استفدت منه في هذه الفكرة ولاول مرة بهذا الشكل

طبعا تحتاج فقط الملف a.vb بعد استخراجه ثم تضيفه لمشروعك الجديد

PHP كود :

Public Class Form1
    Dim WithEvents b As bt
    Private Sub bclick(sender As Object, e As System.EventArgs)
        My.Computer.Audio.Play(CurDir() & "\sounds\" & sender.tag & ".wav")
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Button1.Enabled = False
        For i As Integer = 0 To row.Count - 2
            b = New bt
            With b.Label1
                .Text = Split(row(i), ";")(0)
                .ForeColor = Color.Green
            End With
            With b.Button1
                .Text = Split(row(i), ";")(1)
                .ForeColor = Color.Blue
                .Tag = Split(row(i), ";")(0)
            End With
            AddHandler b.Button1.Click, AddressOf bclick
            f.Controls.Add(b)
        Next
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Top = 0
        Me.Height = My.Computer.Screen.WorkingArea.Height
        Addrows()
    End Sub
End Class 


[Rabeea Qbaha]

شكرا جزيلا اصدقائي تماما كما اردت 
الله يزيدكم صحة و علم 

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

لكن اللاخظ قليلا من بطئ عند العرض اذا قام احد بمراجعة الكود وليه نصائح 

ساكون سعيد. 

[سعود]

لم يعمل عندي وظهرت هذه الرسائل اظن ولا اجزم انها السبب في البطء ولم احاول اصلا بحلها ...لا مشكلة يبدو انك وجدت المطلوب مما جعلك تطور المشروع

تحياتي اخي الكريم و شكر الله لك.

[Rabeea Qbaha]

(09-09-19, 01:23 AM)سعود كتب :

لم يعمل عندي وظهرت هذه الرسائل اظن ولا اجزم انها السبب في البطء ولم احاول اصلا بحلها ...لا مشكلة يبدو انك وجدت المطلوب مما جعلك تطور المشروع

تحياتي اخي الكريم و شكر الله لك.

المشكلة هذة لاني استخدم ui يدعى Bunifu و لانك لم تقم بتنصيبة ظهرت هذة المشكلة ليك