Scribd
Upload
21 views2 pages

Anjeli Samosir (19302063) Quis 9 - Vb.

This document contains code for a Visual Basic program that designs a menu interface. It includes code to populate dropdown menus with options for vehicle type and department using comboboxes. Event handlers are defined for when the combobox indexes are changed. The form load event populates the comboboxes and a button click event closes the form.

Uploaded by

anjeli samosir
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
21 views2 pages

Anjeli Samosir (19302063) Quis 9 - Vb.

This document contains code for a Visual Basic program that designs a menu interface. It includes code to populate dropdown menus with options for vehicle type and department using comboboxes. Event handlers are defined for when the combobox indexes are changed. The form load event populates the comboboxes and a button click event closes the form.

Uploaded by

anjeli samosir
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 2

Nama : Anjeli Samosir

Npm : 19302063

Kelas : MIF K31/19

Mata kuliah : Pemrograman visual basic

Dosen : Abu Walad,S,T.,M.T

OUIZ-9 Procedure and function.


Design menu

Ket:

- Tollbox+propertis
- Label
- Combobox
- Radiobutton
- Listbox
- Button
Syntax
Private Sub cbjenis_SelectedIndexChanged(ByVal sender As System Object,ByVal e As
System EventArgs) Handles cbjenis.SelectedIndexChanged
End Sub
Sub combojenis II
Me.cbjenis.Itexs.Add("Mini Bus")
Me.cbjenis.Itexs.Add("sedan")
Me.cbjenis.Itexs.Add("Truck")
Me.cbjenis.Itexs.Add("Bus")
Me.cbjenis.Itexs.Add("Box/Pick-up")
Me.cbjenis.Itxs.Add("Motor Sport")
Me.cbjenis.Itexs.Add("Motor Bebek")
End Sub

Private Sub cbBagian_SelectedIndexChanged(ByVal sender As System,object e As System,


EventArgs) Handles cbBagian.SelectedIndexChanged
End Sub
Sub cbBagian I)
Me.cbBagian.Itexs.Add("Gudang")
Me.cbBagian.Itets.Add("Administrasi")
Me.cbBagian.Itexs.Add("SIM")
Me.cbBagian.Itexs.Add("Oprasional")
Me.cbBagian.Itext.Add("umum")
End Sub
Private Sub form1_load(ByVal sender As System.Object,ByVal e As
System.EventArgs)Handles MyBase ,load
combojenisI)
comboBagianI)
End Sub
Private Sub btClose_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles bt_close.click
End
End Sub
End Class

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy