Kali ini saya berbagi bagaimana membuat aplikasi menggunakan HScrollBar dan VScrollBar,langsung aja nih langkah-langkahnya
1.menambahkan Form baru dengan cara Klik Project - Add Windows Form.
2. Menambahkan komponen-komponen listbo,picturebox,Vscrollbar, Hscrollbar dan paneldengan tampilan sebagai berikut:
Mengatur propertinya sebagai berikut :
No |
Nama Komponen
|
Properti
|
Nilai
|
1
|
ListBox1
|
Name
| LBPilih |
Items
| Gambar1 | ||
| Gambar2 | |||
| Gambar3 | |||
| Gambar4 | |||
| Gambar5 | |||
2
|
PictureBox1
|
Name
| PBDisplay |
Border
| FixedSingle | ||
SizeMode
| StrecthImage | ||
3
|
Panel
|
Name
| Panel1 |
4
|
HScrollBar
|
Name
| HScrollBar1 |
5
|
VScrollBar
|
Name
| VScrollBar1 |
Private Sub LBPilih_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBPilih.SelectedIndexChanged
If LBPilih.SelectedItem = "Gambar1" Then
PBDisplay.Image = New Bitmap("Gambar1.bmp")
ElseIf LBPilih.SelectedItem = "Gambar2" Then
PBDisplay.Image = New Bitmap("Gambar2.jpg")
ElseIf LBPilih.SelectedItem = "Gambar3" Then
PBDisplay.Image = New Bitmap("Gambar3.bmp")
ElseIf LBPilih.SelectedItem = "Gambar4" Then
PBDisplay.Image = New Bitmap("Gambar4.jpg")
Else
PBDisplay.Image = New Bitmap("Gambar5.bmp")
End If
Klik 2 Kali pada komponen Form5 dan menuliskan kode :If LBPilih.SelectedItem = "Gambar1" Then
PBDisplay.Image = New Bitmap("Gambar1.bmp")
ElseIf LBPilih.SelectedItem = "Gambar2" Then
PBDisplay.Image = New Bitmap("Gambar2.jpg")
ElseIf LBPilih.SelectedItem = "Gambar3" Then
PBDisplay.Image = New Bitmap("Gambar3.bmp")
ElseIf LBPilih.SelectedItem = "Gambar4" Then
PBDisplay.Image = New Bitmap("Gambar4.jpg")
Else
PBDisplay.Image = New Bitmap("Gambar5.bmp")
End If
Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Panel1.AutoScroll = True
PBDisplay.SizeMode = PictureBoxSizeMode.AutoSize
End Sub
Tampilan Hasil Progam




0 komentar:
Posting Komentar