• បង្កើត Form មួយដែលមានឈ្មោះ Form1 ជាឧទាហរណ៍
• យក ListView Control មកគូសលើ Form1
  • ផ្ដល់តម្លៃឱ្យ Property lvwReport ជា View
  • បង្កើតជួរឈរ 5 ក្នុង ListView ដែលមានឈ្មោះរៀង ID, Name, Gender, Phone និង Address
• គូសប៊ូតុងចំនួនពីរដោយដាក់ឈ្មោះរៀង btnExport និង btnClose

1. On Event Form Load: ដាក់ទិន្នន័យចូលក្នុង ListView ចំនួន ១០ ជួរដេក
   

   Private Sub Form_Load()

       Me.lvwData.View = lvwReport

       '

       Dim i As Integer

      

       For i = 1 To 10

           With Me.lvwData.ListItems.Add(, , i)

               .SubItems(1) = "Name " & i

               .SubItems(2) = "M"

               .SubItems(3) = "012"

               .SubItems(4) = "Phnom Penh"

           End With

       Next

   End Sub
2. On btnExport Click: ចុចប៊ូតុង btnExport ដើម្បីបញ្ជូនទិន្នន័យក្នុង List ទៅ Excel
   

   Private Sub cmdExport_Click()

       Dim ExcelApp As Object, ExcelBook As Object

       Dim ExcelSheet As Object

       Dim i As Integer

       Dim j As Integer

       Dim rowCount As Integer

       'create object of excel

       Set ExcelApp = CreateObject("Excel.Application")

       Set ExcelBook = ExcelApp.WorkBooks.Add

       Set ExcelSheet = ExcelBook.WorkSheets(1)

       '

       With ExcelSheet

           For i = 1 To Me.lvwData.ListItems.Count

               '

               rowCount = rowCount + 1

               .cells(rowCount, 1) = lvwData.ListItems(i).Text

               For j = 1 To lvwData.ColumnHeaders.Count - 1

                   .cells(rowCount, j + 1) = lvwData.ListItems(i).SubItems(j)

               Next

           Next

       End With

     

       ExcelApp.Visible = True

       'set page margin

       ExcelSheet.PageSetup.PaperSize = 9

       ExcelSheet.PageSetup.LeftMargin = ExcelApp.InchesToPoints(0.3)

       ExcelSheet.PageSetup.RightMargin = ExcelApp.InchesToPoints(0.3)

       ExcelSheet.PageSetup.TopMargin = ExcelApp.InchesToPoints(0.3)

       ExcelSheet.PageSetup.BottomMargin = ExcelApp.InchesToPoints(0.3)

       ExcelSheet.PageSetup.CenterHorizontally = True

       '

       Set ExcelSheet = Nothing

       Set ExcelBook = Nothing

       Set ExcelApp = Nothing

   End Sub

Download Source Code

បំពង់ទឹកក្ដៅ ជាទូទៅ​គេធ្វើពី​កែវ​ពីរជាន់។ ចំពោះកែវ​ទាំង ២ ជាន់​នេះជា​សុញ្ញកាស ដែលគេ​ធ្វើឡើង​ទុកសម្រាប់​ការពារ​មិនឱ្យ​បញ្ចេញ ឬ​ការរត់ចេញទៅមក​បាននៃកម្ដៅផ្នែក​ខាងក្នុង។

ស្រទាប់កែវ​ផ្នែកខាងក្នុង គេបាន​ស្រោប​ដោយ​បារត ដើម្បីជះកម្ដៅ​ខាងក្នុងឱ្យ​វិល​ត្រឡប់​ទៅវិញ។ ដូច្នេះ​កម្ដៅ​ផ្នែកខាងក្នុង និងខាងក្រៅ​បំពង់ទឹកក្ដៅ មិនអាច​ផ្ទេរគ្នាទៅវិញទៅមក​បាន ទើប​ទឹកក្ដៅ​នៅផ្នែក​ខាងក្នុង​រក្សាភាពក្ដៅ​បានរយៈពេលយូរ។