تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] CheckListBox With ListBox
#1
بسم الله الرحمن الرحيم 
السلام عليكم ورحمة الله و بركاته
هذا الموضوع خصيصا للاداتين
CheckedListBox With ListBox
لاول مرة اتعامل مع هذه الاداة ولاحظت كم كنت غافلا عنها(CheckedListBox ) بحيث تيسر عليك الكم الهائل من الاكواد للاسناد.(أقصد توفر الوقت والجهد لوضع عدة ادوات checkbox)



PHP كود :
Public Class Form1
    Private Sub gd
(Optional ByVal index As Integer 0)
 
       ListBox1.DataSource Nothing
        ListBox1
.Items.Clear()
 
       c.Items.Clear()
 
       con = New OleDb.OleDbConnection(str)
 
       da = New OleDb.OleDbDataAdapter("select * from tb"con)
 
       cm = New OleDb.OleDbCommandBuilder(da)
 
       dt = New DataTable
        da
.Fill(dt)
 
       Me.ListBox1.DataSource dt
        Me
.ListBox1.DisplayMember "tname"
 
       Dim i As Integer
        For i 
2 To dt.Columns.Count 1
            Me
.c.Items.Add(dt.Columns(i).ColumnName.ToString)
 
       Next
        BindingContext
(dt).Position index
    End Sub
    Private Sub Form1_Load
(sender As System.ObjectAs System.EventArgsHandles MyBase.Load
        gd
()
 
   End Sub
    Private Sub ListBox1_MouseClick
(sender As ObjectAs System.Windows.Forms.MouseEventArgsHandles ListBox1.MouseClick
        If dt
.Rows.Count 0 Then Exit Sub
        If ListBox1
.Items.Count 0 Then Exit Sub
        If e
.Button Windows.Forms.MouseButtons.Left Then
            btnedit
.Enabled True
        End 
If
 
   End Sub
    Private Sub ListBox1_SelectedIndexChanged
(sender As System.ObjectAs System.EventArgsHandles ListBox1.SelectedIndexChanged
        If dt
.Rows.Count 0 Then Exit Sub
        If ListBox1
.Items.Count 0 Then Exit Sub
        If ListBox1
.SelectedIndex 0 Then Exit Sub
        Dim index 
As Integer ListBox1.SelectedIndex
        c
.Enabled True
              For i 
2 To dt.Columns.Count 1
            c
.SetItemChecked((2), dt.Rows(index).Item(i))
 
       Next
    End Sub
         
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles btnedit.Click
        Dim index 
As Integer ListBox1.SelectedIndex
        Dim row 
As DataRow dt.Rows(index)
 
       row.BeginEdit()
 
       row(2) = c.GetItemChecked(0)
 
       row(3) = c.GetItemChecked(1)
 
       row(4) = c.GetItemChecked(2)
 
       row(5) = c.GetItemChecked(3)
 
       row.EndEdit()
 
       da.Update(dt)
 
       gd(index)
 
   End Sub
       
Private Sub Button2_Click(sender As System.ObjectAs System.EventArgsHandles btnadd.Click
        Dim frm2 
As New FrmAddPerson
        frm2
.c.Items.Clear()
 
       For Each h As String In Me.c.Items
            frm2
.c.Items.Add(h)
 
       Next
        frm2
.ShowDialog()
 
       frm2.Dispose()
 
       gd()
 
   End Sub
    Private Sub btndel_Click
(sender As System.ObjectAs System.EventArgsHandles btndel.Click
        If dt
.Rows.Count 0 Then Exit Sub
        If ListBox1
.Items.Count 0 Then Exit Sub
        If ListBox1
.SelectedIndex 0 Then Exit Sub
        Dim index 
As Integer ListBox1.SelectedIndex
        dt
.Rows(index).Delete()
 
       da.Update(dt)
 
       gd()
 
   End Sub
End 
Class
Public Class 
FrmAddPerson
    
Private Sub btnclose_Click(sender As System.ObjectAs System.EventArgsHandles btnclose.Click
        Me
.Close()
    End Sub
      
Private Sub btnsave_Click(sender As System.ObjectAs System.EventArgsHandles btnsave.Click
        
If IsFound(TextBox1.Text) = False Then
            Dim row 
As DataRow dt.NewRow
            row
(1) = TextBox1.Text
            row
(2) = c.GetItemChecked(0)
            row(3) = c.GetItemChecked(1)
            row(4) = c.GetItemChecked(2)
            row(5) = c.GetItemChecked(3)
            dt.Rows.Add(row)
            da.Update(dt)
            btnclose.PerformClick()
        Else
            MsgBox("الاسم محجوز"MsgBoxStyle.Exclamation"")
        End If
    End Sub
    
Private Sub TextBox1_TextChanged(sender As System.ObjectAs System.EventArgsHandles TextBox1.TextChanged
        c
.Enabled TextBox1.Text.Trim.Length
    End Sub
End 
Class 

المثال مرفق


الملفات المرفقة
.zip   UsingCheckListBox.zip (الحجم : 38.49 ك ب / التحميلات : 106)
}}}
#2
جزيت خيرا اخي سعود لك خالص احترامي وتقديري اخي الغالي .

اللهم اني قد نذرت نفسي لمساعدت الاخرين فوفقني وكن لي معين
جاهز لمساعدة اي حد يحتاج لمساعدتي
طبيب اعشق البرمجة . 
}}}
تم الشكر بواسطة: سعود , ابراهيم ايبو
#3
(10-01-22, 10:59 AM)رضوان الجماعي كتب : جزيت خيرا اخي سعود لك خالص احترامي وتقديري اخي الغالي .

واياك اخي الكريم وكل من يقرا هذا الكلام.
اسعدني تواجدك بموضوعي البسيط.
}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] أداة ListBox تسمح بتغيير لون العنصر المختار وكذلك المسافة بين العناصر Anas Mahmoud 4 1,932 13-09-20, 05:42 PM
آخر رد: Ali 2020
  أداة ListBox مطورة sooriaty03 12 11,855 21-03-14, 07:05 PM
آخر رد: ًًwisam_p
  حفظ محتويات Listbox حال الربط وحال عدم الربط بالقاعدة سعود 5 7,555 15-09-13, 04:22 PM
آخر رد: sooriaty03

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم