Public Class frmMain
Private Sub btnExit_Click(B yVal sender As Object, ByVal e As System.EventArg s) Handles btnExit.Click
Me.Close()
End Sub
Private Sub frmMain_Load(By Val sender As Object, ByVal e As System.EventArg s) Handles Me.Load
' fills the list box with values
lstDelivery.Ite ms.Add("Mail - Standard")
lstDelivery.Ite ms.Add("Mail - Priority")
lstDelivery.Ite ms.Add("FedEx - Standard")
lstDelivery.Ite ms.Add("FedEx - Overnight")
lstDelivery.Ite ms.Add("UPS")
End Sub
Private Sub txtPartNum_Ente r(ByVal sender As Object, ByVal e As System.EventArg s) Handles txtPartNum.Ente r
txtPartNum.Sele ctAll()
End Sub
Private Sub txtPartNum_Text Changed(ByVal sender As Object, ByVal e As System.EventArg s) Handles txtPartNum.Text Changed
' clears the list box selection
lstDelivery.Sel ectedIndex = -1
End Sub
Private Sub btnDelivery_Cli ck(ByVal sender As Object, ByVal e As System.EventArg s) Handles btnDelivery.Cli ck
Dim strtxtPartNum As String
Dim Index As Integer
Dim lstDelivery() As String = {"MP", "MS", "FS", "FO", "U"}
strtxtPartNum = txtPartNum.Text .ToUpper.ToStri ng
If strtxtPartNum Like "##[A-Z][A-Z]" Then
lstDelivery.Sel ectedIndex = 1
ElseIf strtxtPartNum Like "##[A-Z]" Then
Else
MessageBox.Show ("Invalid part number", _
"Part number", MessageBoxButto ns.OK, _
MessageBoxIcon. Information)
End If
End Sub
End Class
Private Sub btnExit_Click(B yVal sender As Object, ByVal e As System.EventArg s) Handles btnExit.Click
Me.Close()
End Sub
Private Sub frmMain_Load(By Val sender As Object, ByVal e As System.EventArg s) Handles Me.Load
' fills the list box with values
lstDelivery.Ite ms.Add("Mail - Standard")
lstDelivery.Ite ms.Add("Mail - Priority")
lstDelivery.Ite ms.Add("FedEx - Standard")
lstDelivery.Ite ms.Add("FedEx - Overnight")
lstDelivery.Ite ms.Add("UPS")
End Sub
Private Sub txtPartNum_Ente r(ByVal sender As Object, ByVal e As System.EventArg s) Handles txtPartNum.Ente r
txtPartNum.Sele ctAll()
End Sub
Private Sub txtPartNum_Text Changed(ByVal sender As Object, ByVal e As System.EventArg s) Handles txtPartNum.Text Changed
' clears the list box selection
lstDelivery.Sel ectedIndex = -1
End Sub
Private Sub btnDelivery_Cli ck(ByVal sender As Object, ByVal e As System.EventArg s) Handles btnDelivery.Cli ck
Dim strtxtPartNum As String
Dim Index As Integer
Dim lstDelivery() As String = {"MP", "MS", "FS", "FO", "U"}
strtxtPartNum = txtPartNum.Text .ToUpper.ToStri ng
If strtxtPartNum Like "##[A-Z][A-Z]" Then
lstDelivery.Sel ectedIndex = 1
ElseIf strtxtPartNum Like "##[A-Z]" Then
Else
MessageBox.Show ("Invalid part number", _
"Part number", MessageBoxButto ns.OK, _
MessageBoxIcon. Information)
End If
End Sub
End Class
Comment