Public Class Form1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
ComboBox1.Items.Add(TextBox1.Text)
End If
End Sub
Dari program tersebut maka kita dapat melihat perbedaannya,ComboBox hanya dapat atau hanya untuk menampilkan satu persatu kata yang telah di input sebelumnya . namun ListBox dapat menampilkan semua kata yang di input sebelumnya.
Untuk Pengulangan Looping ,berikut programnya :
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
ListBox1.Items.Clear()
For i = 1 To Val(TextBox2.Text)
ListBox1.Items.Add(i)
Next
End Sub
Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim j, u As Integer
u = 5
For j = 0 To Val(TextBox2.Text)
Next
If j Mod u = 0 Then
ListBox1.Items.Add(j)
u = j
End If
End Sub
End Class
Tidak ada komentar:
Posting Komentar