How do i get my program to select the proper delivery based on what the user inputs?

[blknmld69]

Public Class frmMain

Private Sub btnExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub

Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
' fills the list box with values

lstDelivery.Items.Add("Mail - Standard")
lstDelivery.Items.Add("Mail - Priority")
lstDelivery.Items.Add("FedEx - Standard")
lstDelivery.Items.Add("FedEx - Overnight")
lstDelivery.Items.Add("UPS")


End Sub

Private Sub txtPartNum_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPartNum.Enter
txtPartNum.SelectAll()
End Sub

Private Sub txtPartNum_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPartNum.TextChanged
' clears the list box selection

lstDelivery.SelectedIndex = -1
End Sub

Private Sub btnDelivery_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDelivery.Click

Dim strtxtPartNum As String
Dim Index As Integer
Dim lstDelivery() As String = {"MP", "MS", "FS", "FO", "U"}

strtxtPartNum = txtPartNum.Text.ToUpper.ToString

If strtxtPartNum Like "##[A-Z][A-Z]" Then
lstDelivery.SelectedIndex = 1

ElseIf strtxtPartNum Like "##[A-Z]" Then

Else
MessageBox.Show("Invalid part number", _
"Part number", MessageBoxButtons.OK, _
MessageBoxIcon.Information)


End If

End Sub


End Class

[yarbrough40]

please retype your question and be a bit clearer. I'm not understanding what you are trying to do based on this code.

unless I'm missing something,
based on the title of your post alone I would assume that you would have three subs that do something like sub Fedex(), sub UPS(), sub USPS() etc. then you would call those subs like so:

if DropDownList1.selecteditem.Text = "FedEx" then
FedEx()
ElseIf DropDownList1.selecteditem.Text = "UPS" then
UPS()
ElseIf DropDownList1.selecteditem.Text = "USPS" then
USPS()
End If
 
 

[blknmld69]

this should allow the user to enter a part number like ("##[A-Z][A-Z]) or like "##[A-Z]" meaning the user can input 73mp or 45U and it should select(highlight) the appropriate code in the list box, else desplay the message Invalid part number. The like operator has to be used in this code.

[yarbrough40]

why are you using a 'like' operator if you are enabling the application to say they have an invalid part number?
I think the best way to do what you want is to create a table in a database - store all of your valid part numbers in one column and the corresponding index number for the delivery method listbox in another column like so:
PartNum---------IndexNum

73mp-----------------2
45U-------------------1
33X-------------------1
22Y-------------------3

then just open a connection to your table and retrieve the index based upon what the user inputs.

Select IndexNum from PartsTable where PartNum = '" & txtPartNum.Text & "' "

[blknmld69]

My question should have been:
How do i get my program to select the proper delivery CODE based on a code that the user inputs.

[blknmld69]

Thats to deep yarbrough, i just need to use the like operator to compare the user code input (ie 33mp or 65FO) to string with the list box which has:

lstDelivery.Items.Add("Mail - Standard")
lstDelivery.Items.Add("Mail - Priority")
lstDelivery.Items.Add("FedEx - Standard")
lstDelivery.Items.Add("FedEx - Overnight")
lstDelivery.Items.Add("UPS")

Example if the user inouts any two number followed by MS it should select /highlight the ("Mail - Standard").. If the user inputs any two numbers followed by a U it should select/highlight)("UPS")

The string code is {"MP", "MS", "FS", "FO", "U"}
MP= lstDelivery.Items.Add("Mail - Standard")
MS=lstDelivery.Items.Add("Mail - Priority")
FS=lstDelivery.Items.Add("FedEx - Standard")
FO=lstDelivery.Items.Add("FedEx - Overnight")
U=lstDelivery.Items.Add("UPS")

[blknmld69]

Thats the way the teacher wants it...it has to be used in conjunction with the string i guess!

[blknmld69]

If you have VB on your pc I can send you the file so that you can run it and see what I need to do......

[yarbrough40]

ok then how about this

 
Dim DeliveryMeth as String = Substring(txtPartNum.Text(2,2))
 
if DeliveryMeth = "MP" then 
lstDelivery.SelectedIndex = 1
ElseIf DeliveryMeth = "MS" then 
lstDelivery.SelectedIndex = 2
ElseIf DeliveryMeth = "FS" then 
lstDelivery.SelectedIndex = 3
ElseIf DeliveryMeth = "FO" then 
lstDelivery.SelectedIndex = 4
ElseIf DeliveryMeth = "U" then 
lstDelivery.SelectedIndex = 5
Else
MessageBox.Show("Invalid part number", _
"Part number", MessageBoxButtons.OK, _
MessageBoxIcon.Information)
 
End If
 

[blknmld69]

that might work, can i replace the = with LIKE

[yarbrough40]

do you HAVE to use the like operator? is that part of an assignment or something?

[blknmld69]

yes it is part of my assignment......I have been working on it for over 3days!

[yarbrough40]

ok well with my example, there is no need to use 'like' but I suppose it would work

[blknmld69]

now it just shows the message box when i use this code:

Dim strtxtPartNum As String
Dim txtPartNum() As String = {"MP", "MS", "FS", "FO", "U"}

strtxtPartNum = txtPartNum.ToString()

If strtxtPartNum Like "##MP" Then
lstDelivery.SelectedIndex = 0
ElseIf strtxtPartNum Like "##MS" Then
lstDelivery.SelectedIndex = 1
ElseIf strtxtPartNum Like "##FS" Then
lstDelivery.SelectedIndex = 2
ElseIf strtxtPartNum Like "##FO" Then
lstDelivery.SelectedIndex = 3
ElseIf strtxtPartNum Like "##U" Then
lstDelivery.SelectedIndex = 4
Else
MessageBox.Show("Invalid part number", _
"Part number", MessageBoxButtons.OK, _
MessageBoxIcon.Information)

[blknmld69]

I know im a newbie but what am I doing wrong???????????????

[yarbrough40]

which object type do you have for the user to type? if it is a text box then use this method - I'm assuming your textbox is called "txtPartNum"...... don't use the item list you are using ( {"MP", "MS", "FS", "FO", "U"}) <-- ignore this - instead call the value of the textbox directly and evaluate based on that value

If txtPartNum.SelectedItem.Text Like "##MP" Then
lstDelivery.SelectedIndex = 0
ElseIf txtPartNum.SelectedItem.Text Like "##MS" Then
lstDelivery.SelectedIndex = 1
ElseIf txtPartNum.SelectedItem.Text Like "##FS" Then
lstDelivery.SelectedIndex = 2
ElseIf txtPartNum.SelectedItem.Text Like "##FO" Then
lstDelivery.SelectedIndex = 3
ElseIf txtPartNum.SelectedItem.Text Like "##U" Then
lstDelivery.SelectedIndex = 4
Else
MessageBox.Show("Invalid part number", _
"Part number", MessageBoxButtons.OK, _
MessageBoxIcon.Information) 
 
End If
 

[blknmld69]

You assumed right! Im about to try ur solution right now!!!!!!!!!!!!!!

[blknmld69]

It underlines the txtPartNum.SelectedItem and show that SelectedItem is not a member of 'System.Windows.Forms.Textbox...After I Dim txtPartNum AS String it show that SelectedItem is not a member of String!

[yarbrough40]

txtPartNum.Text sorry

[blknmld69]

Wow, I am deeply indebted to you........It Works Yahoooooooooo. So now do I just click on choose the best answer?

thanks a Million$$$$$$$$$$$$$$$$$$$

[yarbrough40]

your welcome.... as far as selecting best answer goes I'm not sure how that works - you're on your own there : )

[blknmld69]

Ok once again Thx, I will be looking for your ID if I have any more problems!!!!!!!!!!!!!!