សុធាសម្រាប់ចែករំលែក

ឧបមាថាគេមាន Form មួយដូចខាងក្រោម៖

 -          Button ADD ប្រើដើម្បីបញ្ចូល Pro_ID, Pro_Name, Price, Qty និងគណនា SubTotal ទៅក្នុង ListView ។​ បើ​មាន textbox ណាមួយគ្មានទិន្នន័យនោះគឺ​មិនអាច​ Add ទិន្នន័យចូល list បានឡើយ ។

   Private Sub btnAdd_Click(…) Handles btnAdd.Click

        If txtPro_ID.Text = "" Or txtName.Text = "" Or txtPrice.Text = "" Or txtQty.Text = "" Then

            Exit Sub

        End If

        Dim lItem As New ListViewItem

        lItem.Text = txtPro_ID.Text

        With lItem.SubItems

            .Add(txtName.Text)

            .Add(txtPrice.Text)

            .Add(txtQty.Text)

            .Add(txtPrice.Text * txtQty.Text)

        End With

        lstPro.Items.Add(lItem)

    End Sub 

-          Button Search ប្រើដើម្បីស្វែងរកទិន្នន័យ តាម Pro_ID នៅ​ក្នុង Listview ។ ករណីរកឃើញ​ត្រូវ Select Record នោះ​នៅ​ក្នុង​ Listview និង​បង្ហាញចំនួនដែល​រកឃើញនោះលើ Message Box ។ បើរកមិនឃើញគ្រាន់​តែបោះ​ជា Message ថារក​មិន​ឃើញ​ប៉ុណ្ណោះ ។

    Private Sub btnSearch_Click(…) Handles btnSearch.Click

        For i = 0 To lstPro.Items.Count - 1

            If lstPro.Items(i).Text = txtPro_ID.Text Then

                lstPro.Items(i).Selected = True

            Else

                lstPro.Items(i).Selected = False

            End If

        Next

        lstPro.Select()

        If lstPro.SelectedIndices.Count > 0 Then

            MsgBox("Total Found : " & lstPro.SelectedIndices.Count)

        Else

            MsgBox("Not Found")

        End If

    End Sub 

-          Button Remove ប្រើសម្រាប់លុប seleted record ពីក្នុង Listview ចោល

Private Sub btnRemove_Click(…) Handles btnRemove.Click

        For i = 0 To lstPro.SelectedIndices.Count - 1

            lstPro.Items.RemoveAt(lstPro.SelectedIndices(0))

        Next

End Sub 

-          ចូរបង្កើត Properties និង Method នៅក្នុង Class Module ដើម្បីអាចយកទៅ​ប្រើ​សម្រាប់​ប្រព័ន្ធខាងលើ៖

Public Class Product

    Private _Pro_ID As String

    Private _Pro_Name As String

    Private _Price As Double

    Private _Qty As Double

    Property Pro_ID

        Set(ByVal value)

            _Pro_ID = value

        End Set

        Get

            Return _Pro_ID

        End Get

    End Property

    Property Pro_Name

        Set(ByVal value)

            _Pro_Name = value

        End Set

        Get

            Return _Pro_Name

        End Get

    End Property

    Property Price

        Set(ByVal value)

            _Price = value

        End Set

        Get

            Return _Price

        End Get

    End Property

    Property Qty

        Set(ByVal value)

            _Qty = value

        End Set

        Get

            Return _Qty

        End Get

    End Property 

End Class

Public Class ProductStore

    Private store As Collection

    Public Sub addProduct(ByVal obj As Product)

        store.Add(obj)

    End Sub

    Public Function getProduct(ByVal index As Integer) As Product

        Return store.Item(index)

    End Function

End Class

TextBox Control

     TextBox Control is used to add text or to display text in a form. This is one of the most used controls, as text is vital for GUI based applications.