منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : CheckListBox With ListBox
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
بسم الله الرحمن الرحيم 
السلام عليكم ورحمة الله و بركاته
هذا الموضوع خصيصا للاداتين
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 

المثال مرفق
جزيت خيرا اخي سعود لك خالص احترامي وتقديري اخي الغالي .
(10-01-22, 10:59 AM)رضوان الجماعي كتب : [ -> ]جزيت خيرا اخي سعود لك خالص احترامي وتقديري اخي الغالي .

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