Adding values to a combobox from a set of ENUM constants from web

[=?Utf-8?B?UmljaGFyZCBUb2NjaQ==?=]

I'm learning Visual Basic using the .Net Framework 2.0. I have been playing
with consuming web services in applications.

I am using a free web service that gives me information for currency
conversion. The web service I am using is:

http://www.webservicex.net/CurrencyConvertor.asmx?WSDL

It's got pretty much everything I need, but I'm running into trouble.

I want 2 comboboxes in the application. Both of them need to contain the
names of the currencies that provide conversion factors. The names of the
currencies are 3 letter names that are names of are ENUM constants.

The function that provides the copnversion factor takes 2 arguments -- The
currency we're converting FROM, and the currency we're converting TO.

I'm trying to get the constant names in the dropdowns.

Here's the code so far:

Imports CurrencyConversion.wsCurrency.CurrencyConvertor
Imports CurrencyConversion.wsCurrency.Currency
Imports System.Windows.Forms

Public Class frmMain

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim wsCurrencyNames As CurrencyConversion.wsCurrency.Currency

Dim arrayCurrencyName As New ArrayList()
'For Each wsCurrencyNames In
CurrencyConversion.wsCurrency.Currency.GetNames(Ge tType(wsCurrency.Currency))
'cbxFromCurrency.Items.Add(wsCurrencyNames.ToStrin g())
'cbxToCurrency.Items.Add(wsCurrencyNames.ToString( ))
'Next

'cbxFromCurrency.DataSource =
System.Enum.GetNames(typeof(CurrencyConversion.wsC urrency.Currency))
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim dblRate As Double
Dim wsConvert As New wsCurrency.CurrencyConvertor
dblRate = wsConvert.ConversionRate(GBP, USD)
rtbResults.Text = CStr(dblRate)
End Sub
End Class
This line:
dblRate = wsConvert.ConversionRate(GBP, USD)

is the function that does work when values are entered directly. But I want
the user to choose from the list. Any ideas?
--
Richard Tocci
College Station, TX

[Mr. Arnold]

"Richard Tocci" <richardftoccijr at hotmail dot comwrote in message
news:BE**********************************@microsof t.com...

I'm learning Visual Basic using the .Net Framework 2.0. I have been
playing
with consuming web services in applications.

I am using a free web service that gives me information for currency
conversion. The web service I am using is:

http://www.webservicex.net/CurrencyConvertor.asmx?WSDL

It's got pretty much everything I need, but I'm running into trouble.

I want 2 comboboxes in the application. Both of them need to contain the
names of the currencies that provide conversion factors. The names of the
currencies are 3 letter names that are names of are ENUM constants.

The function that provides the copnversion factor takes 2 arguments -- The
currency we're converting FROM, and the currency we're converting TO.

I'm trying to get the constant names in the dropdowns.

Here's the code so far:

Imports CurrencyConversion.wsCurrency.CurrencyConvertor
Imports CurrencyConversion.wsCurrency.Currency
Imports System.Windows.Forms

Public Class frmMain

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim wsCurrencyNames As CurrencyConversion.wsCurrency.Currency

Dim arrayCurrencyName As New ArrayList()
'For Each wsCurrencyNames In
CurrencyConversion.wsCurrency.Currency.GetNames(Ge tType(wsCurrency.Currency))
'cbxFromCurrency.Items.Add(wsCurrencyNames.ToStrin g())
'cbxToCurrency.Items.Add(wsCurrencyNames.ToString( ))
'Next

'cbxFromCurrency.DataSource =
System.Enum.GetNames(typeof(CurrencyConversion.wsC urrency.Currency))
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim dblRate As Double
Dim wsConvert As New wsCurrency.CurrencyConvertor
dblRate = wsConvert.ConversionRate(GBP, USD)
rtbResults.Text = CStr(dblRate)
End Sub
End Class
This line:
dblRate = wsConvert.ConversionRate(GBP, USD)

is the function that does work when values are entered directly. But I
want
the user to choose from the list. Any ideas?

I don't know if you need the Spilt String function or not, because it's
unclear as to what you need to do.

http://builder.com.com/5100-6371-6030362.html

[=?Utf-8?B?UmljaGFyZCBUb2NjaQ==?=]

Not quite. Upon further research of this web service, it looks like there is
ANOTHER web service that actually provides me the information I need. Why
it's not all part of the SAME web service, I don't know.

I'll post more if I run into trouble.
--
Richard Tocci
College Station, TX
"Mr. Arnold" wrote:

>
"Richard Tocci" <richardftoccijr at hotmail dot comwrote in message
news:BE**********************************@microsof t.com...

I'm learning Visual Basic using the .Net Framework 2.0. I have been
playing
with consuming web services in applications.

I am using a free web service that gives me information for currency
conversion. The web service I am using is:

http://www.webservicex.net/CurrencyConvertor.asmx?WSDL

It's got pretty much everything I need, but I'm running into trouble.

I want 2 comboboxes in the application. Both of them need to contain the
names of the currencies that provide conversion factors. The names of the
currencies are 3 letter names that are names of are ENUM constants.

The function that provides the copnversion factor takes 2 arguments -- The
currency we're converting FROM, and the currency we're converting TO.

I'm trying to get the constant names in the dropdowns.

Here's the code so far:

Imports CurrencyConversion.wsCurrency.CurrencyConvertor
Imports CurrencyConversion.wsCurrency.Currency
Imports System.Windows.Forms

Public Class frmMain

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim wsCurrencyNames As CurrencyConversion.wsCurrency.Currency

Dim arrayCurrencyName As New ArrayList()
'For Each wsCurrencyNames In
CurrencyConversion.wsCurrency.Currency.GetNames(Ge tType(wsCurrency.Currency))
'cbxFromCurrency.Items.Add(wsCurrencyNames.ToStrin g())
'cbxToCurrency.Items.Add(wsCurrencyNames.ToString( ))
'Next

'cbxFromCurrency.DataSource =
System.Enum.GetNames(typeof(CurrencyConversion.wsC urrency.Currency))
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim dblRate As Double
Dim wsConvert As New wsCurrency.CurrencyConvertor
dblRate = wsConvert.ConversionRate(GBP, USD)
rtbResults.Text = CStr(dblRate)
End Sub
End Class
This line:
dblRate = wsConvert.ConversionRate(GBP, USD)

is the function that does work when values are entered directly. But I
want
the user to choose from the list. Any ideas?

I don't know if you need the Spilt String function or not, because it's
unclear as to what you need to do.

http://builder.com.com/5100-6371-6030362.html