Komponenty Visual Basic 2005(1)

W moich programach korzystam z formularzy i komponentów. Wykorzystuje po prostu wszelkie okienka. Ponieważ program jest oparty o bazę danych, nazwaną przeze mnie "Pokarm", dlatego do odczytu tej bazy wykorzystuję komponent ListView. Do wybrania ListView sluży okno Toolbox. 
Poniżej przedstawione jest zdjęcie programu "Komponent1", który napisalem dla czytelników tego bloga, w celu praktycznej nauki programowania Visual Basic 2005. Przekonałem się, że najlepiej przyswajałem wiedzę poprzez praktykę.

                                                     Początek pracy nad programem
W pierwszej kolejności należy utworzyć nowy projekt Windows Application i nazwać jego, w moim przypadku nazwałem jego Komponent1. Po wyświetleniu formularza i ewentualnej zmianie wymiaru za pomocą Size, należy umieścić na formularzu okienka:
1.  ListBox - na samej górze , zmienić nazwę na lstProdukt.
2. TextBox - poniżej, nazwana txtNazwa o szerokości (size) 300
3. TextBox  - obok, nazwana txtEnz o szerokości 60
4. ListView - poniżej, zmienić nazwę na lstPokarm, wlaściwość Gridlines na true, FullRowSelect na true, View na detail. Następnie należy utworzyć kolumny,  poprzez pozycję Columns i kliknięcie w Collections.  Wyświetli się wtedy okno "ColumnHeader CollecionEditor". Po lewej stronie kliknąć w Add i w lewym okienku należy wpisać text: Rodzaj pokarmu i Width = 300. Po powtórnym kliknięciu w Add, zostanie utworzona nowa kolumna i nazwij tekst: Energia, TekstAlign na Center i Size na 60. Po kliknięciu zostanie utworzona tabela ListView nazwana tutaj lstPokarm.  Można oczywiście utworzyć dowolną ilość kolumn.
5. TextBox - poniżej, nazwa: txtNazwao
6. TextBox - obok, nazwa: txtEno
7. Button - umieścić obok txtEnz i nazwałem jego btnZapisn i text: Zapis. Następnie kliknąć dwa razy w tego buttona,  w celu utworzenia w programie kodu do obsługi zapisu nowego produktu do bazy.
8. Button - umieścić poniżej. Nazwa- btnKas i tekst: Kasowanie. Kliknąć w niego dwa razy, w celu otwarcia w programie kodu do kasowania zapisanego w bazie produktu.
9. Button. Nazwa: btnEnd i text: Zakończenie programu.
Następnie kliknąć dwa razy w formularz. Zostanie wyświetlony początek programu.
  
Public Class Form1
       Private sit As ListViewItem
       Private k, i As Integer                       ' Deklaracja zmiennych
       Private msg, tyt As String                 ' Deklaracja tekstu
       Private styl As MsgBoxStyle
       Private res As MsgBoxResult
       Private pEn, pEne As Decimal

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FileOpen(1, "Pokarm", OpenMode.Append)               ' Otwarcie 
        FileClose(1)                                                                     ' Zamkniecie pliku
        Odczyt()                                                                           ' Wywołanie odczytu bazy
End Sub

Private Sub Odczyt()
    Dim Naz(1000), Enp(1000)                                                ' Deklaracja
    lstPokarm.Items.Clear()                                                    ' Kasowanie zawartości tabeli
    FileOpen(1, "Pokarm", OpenMode.Input)                     ' Otwarcie bazy do odczytu
      k = 0                                                                                ' Początek liczenia
      Do While Not EOF(1) = True                                        '  Początek pętli
            Input(1, Naz(k))                                                        ' Wpisane z bazy nazwy produktu
            Input(1, Enp(k))                                                        ' Wpisanie wielkości energii
            sit =  lstPokarm.Items.Add(Naz(k))                        ' Wpisanie nazwy do tabeli
            sit.SubItems.Add(Enp(k))
            lstProdukt.Items.Add(Naz(k))                                 ' Wpisanie nazwy do ListBox
          k = k + 1
      Loop                                                                               ' Zamknięcie pętli
     FileClose(1)                                                                     ' Zamknięcie bazy
          lstProdukt.Visible = False                                          ' Wygaszenie 
    End Sub