ListBox dan ListView

ListBox

codingnya
Sub pros3() 
ListBox1.Items.Add(TextBox3.Text + " " + TextBox4.Text + " " + TextBox5.Text + " " + TextBox6.Text + " " + TextBox7.Text) 
End Sub 

Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress 
If e.KeyChar = Chr(13) Then 
TextBox4.Focus() 
End If 
End Sub 

Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress 
If e.KeyChar = Chr(13) Then 
TextBox5.Focus() 
End If 
End Sub 

Private Sub TextBox5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress 
If e.KeyChar = Chr(13) Then 
TextBox6.Focus() 
End If 
End Sub 

Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress 
If e.KeyChar = Chr(13) Then 
TextBox7.Focus() 
End If 
End Sub 

Private Sub TextBox7_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox7.KeyPress 
If e.KeyChar = Chr(13) Then 
Call pros3() 
Call bersihpros() 
TextBox3.Focus() 
End If 
End Sub 

Sub bersihpros() 
TextBox3.Text = "" 
TextBox4.Text = "" 
TextBox5.Text = "" 
TextBox6.Text = "" 
TextBox7.Text = "" 
End Sub 

End Class

 

 

Listview

coding
Public Class Form1
membuat variabel array
Dim listtxt(3) As String
Dim listitem As ListViewItem

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
memasukan nilai ke variabel array
listtxt(0) = Trim(TextBox1.Text)
listtxt(1) = Trim(TextBox2.Text)
listtxt(2) = Trim(TextBox3.Text)

untuk memasukan ke listview dari variabel array
listitem = New ListViewItem(listtxt)
ListView1.Items.Add(listitem)
End Sub
Setting kolom listview
Sub setlistview()

ListView1.View = View.Details

untuk menentukan kolom
ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("Alamat", 400, HorizontalAlignment.Left)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call setlistview()
End Sub

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
mengambil nilai dari listview
TextBox4.Text = e.Item.Text
End Sub

End Class

Ringkasan ......

Ringkasan

Penulisan variable diawali dengan kata Dim

Setiap penulisan object pasti diikuti dengan properties

Trim digunakan untuk menghilangkan spasi

Memasukan nilai ke listbox : Listbox1.items.add (numeric/string

Focus fungsinya untuk menuju ke kursor yang aktif

Cara membuat modul : pilih project baru, add modul, modul, add

Listview :

Membuat var array

Dim listtxt(3) as string

Dim listitem as listviewitem

Setting kolom listview

Setlistview ( )

Listview1.view=view.details

Listview.coloumns.add ( )

Memasukkan ke listnew dari var array

Listitems = new (listviewitems (listtxt)

Listview1.items.add (listitem)

Modul

Berikut ini contoh program pembuatan modul, semoga bermanfaat untuk teman – teman ,……

Public Class Form

    Public nama As String, hasil, a, b As Integer

    Sub tampilnama()

        nama = "Teknik Informatika"

    End Sub

    Sub hitung()

        hasil = Val(a) * Val(b)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Call tampilnama()

        a = TextBox1.Text

        b = TextBox2.Text

        Call hitung()

        TextBox3.Text = hasil

    End Sub

End Class

Listing Program Puzzle

Berikut adalah Listing program untuk puzzle :

Public Class Form1

    Dim vButton As System.Windows.Forms.Button

    'buat variabel general utk menyimpan tombol yang invisible, misal vButton

'buat procedure aktif untuk memindah tulisan dan warna tombol ke lokasi yang kosong(tombol yang invisible)

Sub aktif(ByVal b As System.Windows.Forms.Button)

        vButton.Visible = True

        vButton.Text = b.Text

        vButton.BackColor = b.BackColor

        b.Visible = False

    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button6.Click, Button5.Click, Button4.Click, Button3.Click, Button2.Click

        Call aktif(sender)

        vButton = sender

'panggil procedure aktif

'ganti variable vButton

        

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        vButton = Button6

'setting awal tombol 6 di invisible

    End Sub

End Class

cara lain yang lebih panjang tapi secara logika lebih mudah dimengerti:

Public Class Form1

   

    

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       'cara 1 masukkan kode ini di setiap tombol, dan ganti tombol yang visible dan invisible

'warna tolbol belum dimasukkan

        'If Button2.Visible = False Then

        '    Button2.Visible = True

        '    Button2.Text = Button1.Text

        '    Button1.Visible = False

        'ElseIf Button3.Visible = False Then

        '    Button3.Visible = True

        '    Button3.Text = Button1.Text

        '    Button1.Visible = False

        'ElseIf Button4.Visible = False Then

        '    Button4.Visible = True

        '    Button4.Text = Button1.Text

        '    Button1.Visible = False

        'ElseIf Button5.Visible = False Then

        '    Button5.Visible = True

        '    Button5.Text = Button1.Text

        '    Button1.Visible = False

        'ElseIf Button6.Visible = False Then

        '    Button6.Visible = True

        '    Button6.Text = Button1.Text

        '    Button1.Visible = False

        'End If

        '===========================sampai sini cara panjang 1;

        'cara 2

        '===========================

        Call aktif(Button1)

        'panggil prosedur aktif, buat disemua tombol seperti ini

    End Sub

'buat prosedure aktif

Sub aktif(ByVal b As System.Windows.Forms.Button)

        If Button1.Visible = False Then

            Button1.Visible = True

            Button1.Text = b.Text

            Button1.BackColor = b.BackColor

            b.Visible = False

        ElseIf Button2.Visible = False Then

            Button2.Visible = True

            Button2.Text = b.Text

            Button2.BackColor = b.BackColor

            b.Visible = False

        ElseIf Button3.Visible = False Then

            Button3.Visible = True

            Button3.Text = b.Text

            Button3.BackColor = b.BackColor

            b.Visible = False

        ElseIf Button4.Visible = False Then

            Button4.Visible = True

            Button4.Text = b.Text

            Button4.BackColor = b.BackColor

            b.Visible = False

        ElseIf Button5.Visible = False Then

            Button5.Visible = True

            Button5.Text = b.Text

            Button5.BackColor = b.BackColor

            b.Visible = False

        ElseIf Button6.Visible = False Then

            Button6.Visible = True

            Button6.Text = b.Text

            Button6.BackColor = b.BackColor

            b.Visible = False

        End If

    End Sub

    '==================== sampai sini cara 2

End Class