Autopartes

Control | Text | Name | Other Properties |
GroupBox | | Parts Selection |   |   |
Label | | Year |   | Font: Microsoft Sans Serif, 8.25pt, style=Bold |
Label | | Make |   | Microsoft Sans Serif, 8.25pt, style=Bold |
Label | | Model |   | Microsoft Sans Serif, 8.25pt, style=Bold |
Label | | Category |   | Microsoft Sans Serif, 8.25pt, style=Bold |
ComboBox | |   | cbxCarYears |  |
ComboBox | |   | cbxMakes |   |
ComboBox | |   | cbxModels |   |
ComboBox | |   | cbxCategories |   |
Label | | Available Parts |   | Font: Microsoft Sans Serif, 9.75pt, style=Bold |
ListBox | |   | lbxPartNumbers |   |
ListBox | |   | lbxPartNames |   |
ListBox | |   | lbxUnitPrices |   |
Button | | Close | btnClose |   |1. Right-click the form and click View Code
2. In the Class Name combo box, select (Central Events)
3. In the Method Name combo box, select Load
4. To create a list of items using the Add() method, implement its Load event as follows:
 
Private Sub CentralLoad(ByVal sender As Object, ByVal e AsSystem.EventArgs) Handles Me.Load For i As Integer = Date.Today.Year To 1960 Step -1 cbxCarYears.Items.Add(i) Next End Sub |
5. Save the form

1. On the main menu, click Project -> Add Class...
2. Set the name to PartDescription and press Enter
3. Tocreate a class that can holds a structured item of a list, change the class as follows:
 
Public Class PartDescription Private ID As Long Private yr As Integer Private mk As String Private mdl As String Private cat As String Private name As StringPrivate price As Double Public Sub New(ByVal code As Long, ByVal year As Integer, ByVal make As String, ByVal model As String, ByVal type As String, ByVal desc As String, ByVal UPrice As Double) ID = code yr = yearmk = make mdl = model cat = type name = desc price = UPrice End Sub Public Property PartNumber() As Long Get Return ID End Get Set(ByValvalue As Long) ID = value End Set End Property Public Property CarYear() As Integer Get Return yr End Get Set(ByVal value As Integer) yr = value EndSet End Property Public Property Make() As String Get Return mk End Get Set(ByVal value As String) mk = value End Set End Property Public PropertyModel() As String Get Return mdl End Get Set(ByVal value As String) mdl = value End Set End Property Public Property Category() As String Get Return...