Dim from,to as integer select case cboConvertfrom.Text case "British - Pounds" : from=0.765811 case "US - Dollars" : from=1 end select select case cboConvertTo.Text case "British - Pounds" to=0.765811 case "US - Dollars" to=1 end select dim result as integer result=from/to * Convert.ToInt16(txtAmount.Text)
What I do have is a text box where a user enteres a desired number of US dollars to convert to three types of currency. I know how to convert the string entered to an integer so the calculation can take place. What I don't know how to do is modify the above code so that the results will show up in the correct text boxes after each calculation (yes I know I have to convert the integer back to text).
If someone could show me how to do the first Select Case I can figure the rest out. Thanks in advance for any help.
Number of downloads: 671
This post has been edited by majaro: 18 February 2010 - 04:17 PM