+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : عرض البيانات من قاعدة البيانات على شكل مربع (/showthread.php?tid=31264)
عرض البيانات من قاعدة البيانات على شكل مربع - Rabeea Qbaha - 08-09-19
السلام عليكم
محتاج افكاركم شباب لو سمحتم.
أريد ان اعرض البيانات من قاعدة البيانات بشكل مربعات يعني كالاتي :
المنتجات لن تكون كثيرة كحد اعلى ٤٠ منتج ، ما هي افضل طريقه لانجاز هذا ؟؟
RE: عرض البيانات من قاعدة البيانات على شكل مربع - asemshahen5 - 08-09-19
هذا مشروع مصمم فيه اداة بطاقة اليوم مكررة بعدد ايام الشهر عن طريق الكود و بها المعلومات من ملف اكس ام ال تستطيع تعديلها لتتناسب مع مشروعك بحيث يكون تكرارها بعدد المنتجات بالجدول و تاخذ المعلومات من الجدول الاداة مفتوحة المصدر .
مشروع المفكرة الشهرية امل ان يعجبكم .
RE: عرض البيانات من قاعدة البيانات على شكل مربع - سعود - 08-09-19
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
RE: عرض البيانات من قاعدة البيانات على شكل مربع - asemshahen5 - 08-09-19
تعديل بسيط على كود الاخ سعود لاضافة كود للزر المضاف عند النقر :
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
RE: عرض البيانات من قاعدة البيانات على شكل مربع - سعود - 08-09-19
كعادتي لا استطيع ان اقف عن اي خاطرة تخطر في بالي طبعا لانه ليس جديد فليس هناك ضرورة لرفع المرفق
فاكرين الموضوع هذا التالي:
استفدت منه في هذه الفكرة ولاول مرة بهذا الشكل
طبعا تحتاج فقط الملف 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
RE: عرض البيانات من قاعدة البيانات على شكل مربع - Rabeea Qbaha - 08-09-19
شكرا جزيلا اصدقائي تماما كما اردت
الله يزيدكم صحة و علم
الله يزيدكم صحة و علم
هذا المشروع بعد التعديل و يتعامل مع قاعدة البيانات لكي يستفيد الجميع.
لكن اللاخظ قليلا من بطئ عند العرض اذا قام احد بمراجعة الكود وليه نصائح
ساكون سعيد.
RE: عرض البيانات من قاعدة البيانات على شكل مربع - سعود - 09-09-19
لم يعمل عندي وظهرت هذه الرسائل اظن ولا اجزم انها السبب في البطء ولم احاول اصلا بحلها ...لا مشكلة يبدو انك وجدت المطلوب مما جعلك تطور المشروع
تحياتي اخي الكريم و شكر الله لك.
RE: عرض البيانات من قاعدة البيانات على شكل مربع - Rabeea Qbaha - 09-09-19
(09-09-19, 01:23 AM)سعود كتب :لم يعمل عندي وظهرت هذه الرسائل اظن ولا اجزم انها السبب في البطء ولم احاول اصلا بحلها ...لا مشكلة يبدو انك وجدت المطلوب مما جعلك تطور المشروعتحياتي اخي الكريم و شكر الله لك.
المشكلة هذة لاني استخدم ui يدعى Bunifu و لانك لم تقم بتنصيبة ظهرت هذة المشكلة ليك