08-09-19, 06:51 PM
السلام عليكم
محتاج افكاركم شباب لو سمحتم.
أريد ان اعرض البيانات من قاعدة البيانات بشكل مربعات يعني كالاتي :
المنتجات لن تكون كثيرة كحد اعلى ٤٠ منتج ، ما هي افضل طريقه لانجاز هذا ؟؟
08-09-19, 07:02 PM
08-09-19, 07:40 PM
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
08-09-19, 08:16 PM
08-09-19, 08:38 PM
كعادتي لا استطيع ان اقف عن اي خاطرة تخطر في بالي طبعا لانه ليس جديد فليس هناك ضرورة لرفع المرفق
فاكرين الموضوع هذا التالي:
استفدت منه في هذه الفكرة ولاول مرة بهذا الشكل
طبعا تحتاج فقط الملف 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
08-09-19, 09:51 PM
09-09-19, 01:23 AM
لم يعمل عندي وظهرت هذه الرسائل اظن ولا اجزم انها السبب في البطء ولم احاول اصلا بحلها ...لا مشكلة يبدو انك وجدت المطلوب مما جعلك تطور المشروع
تحياتي اخي الكريم و شكر الله لك.
09-09-19, 01:49 AM
(09-09-19, 01:23 AM)سعود كتب : [ -> ]لم يعمل عندي وظهرت هذه الرسائل اظن ولا اجزم انها السبب في البطء ولم احاول اصلا بحلها ...لا مشكلة يبدو انك وجدت المطلوب مما جعلك تطور المشروعتحياتي اخي الكريم و شكر الله لك.
المشكلة هذة لاني استخدم ui يدعى Bunifu و لانك لم تقم بتنصيبة ظهرت هذة المشكلة ليك