Kemarin saya telah mempostingkan aplikasi membuat kalkulator,kali ini saya akan berbagi ilmu lagi,ada yang tau gak apa yang akan saya bagi kali ini???hehehehe
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
Tidak ada komentar:
Posting Komentar