Assign value (numeric) to combox's items?

[kyto]

Hi! I´m Newbie to Basic4ppc (Excelent tool).

My intention is to create a ComboBox that it contains Items (Product 1, Product 2, Product 3…) And on having selected, automatically there is assigned to him a numerical value (Cost) that appears in a Textbox.
Is it possible to do this?
Attachment sample file.
Thanks for his attention.

[Erel]

There are several ways to achieve this.
One way is to save the prices in an ArrayList:
You will need to add an ArrayList from the designer.

Sub Globals
    
End Sub

Sub App_Start
    Form1.Show
    ArrayList1.Add(10)
    ArrayList1.Add(20)
    ArrayList1.Add(30)
End Sub

Sub ComboBox18_SelectionChanged (Index, Value)
    TextBox1.Text = ArrayList1.Item(Index)
End Sub

[kyto]

I will try it.
Thank you very much!

[Cableguy]

This kind of relation can be easily created using a ini file containing both product name and cost and add simultaneously ( to the same index ) the product name to a combobos and the cost to an array list...

[kyto]

It works, both! For now, I’m using Erel´s method.
Now I added another ComboBox (Tax) that it contains ítems ( A, B, C) whit another assigned cost (1,2,3).
Whit a button click, I calculate total cost of both items input previously.

Sub Button1_Click
Textbox3.Text=textbox1.Text+textbox2.Text
End Sub

It works perfectly, My question is: I can calculate and show automatically these result without the button?

Sub Globals
    
End Sub

Sub App_Start
    Form1.Show
    ArrayList1.Add(10)
    ArrayList1.Add(20)
    ArrayList1.Add(30)
     ArrayList2.Add(1)
    ArrayList2.Add(2)
    ArrayList2.Add(3)    
End Sub

Sub ComboBox18_SelectionChanged (Index, Value)
    TextBox1.Text = ArrayList1.Item(Index)
End Sub

Sub ComboBox2_SelectionChanged (Index, Value)
    TextBox2.Text = ArrayList2.Item(Index)
End Sub

Sub Button1_Click
Textbox3.Text=textbox1.Text+textbox2.Text
End Sub

Thanks for his responses.

[Erel]

What about this:

Sub App_Start
    Form1.Show
    ArrayList1.Add(10)
    ArrayList1.Add(20)
    ArrayList1.Add(30)
     ArrayList2.Add(1)
    ArrayList2.Add(2)
    ArrayList2.Add(3)    
    ComboBox18.SelectedIndex = 0
    ComboBox2.SelectedIndex = 0
End Sub

Sub ComboBox18_SelectionChanged (Index, Value)
    TextBox1.Text = ArrayList1.Item(Index)
     Textbox3.Text=textbox1.Text+textbox2.Text
End Sub

Sub ComboBox2_SelectionChanged (Index, Value)
    TextBox2.Text = ArrayList2.Item(Index)
    Textbox3.Text=textbox1.Text+textbox2.Text
End Sub

BTW, I recommend you to change the controls names to a more meaningful name. This will help you once your project grows.

[kyto]

I will change the control names, thanks for recommendation.

I used the code

Sub App_Start
Form1.Show
ArrayList1.Add(10)
ArrayList1.Add(20)
ArrayList1.Add(30)
ArrayList2.Add(1)
ArrayList2.Add(2)
ArrayList2.Add(3)
ComboBox18.SelectedIndex = 0
ComboBox2.SelectedIndex = 0
End Sub

Sub ComboBox18_SelectionChanged (Index, Value)
TextBox1.Text = ArrayList1.Item(Index)
Textbox3.Text=textbox1.Text+textbox2.Text
End Sub

Sub ComboBox2_SelectionChanged (Index, Value)
TextBox2.Text = ArrayList2.Item(Index)
Textbox3.Text=textbox1.Text+textbox2.Text
End Sub

but it indicates me an error:
"An error occurred on sub combobox18 selectionchanged.
Line number: 14

Textbox3.Text= textbox1.Text+textbox2.Text
Error description:
Input string was not in a correct format.
Continue?...

Which is the error?

[Erel]

Add these lines to Sub App_Start (first lines):
TextBox2.Text = ""
TextBox3.Text = ""

[taximania]

Originally Posted by Cableguy

This kind of relation can be easily created using a ini file containing both product name and cost and add simultaneously ( to the same index ) the product name to a combobos and the cost to an array list...

Using the binary.dll ? you could create and save, 'then modify if you wish', a file on disk .dat .ini .ect so the information or value's you want are already set in the textbox? 'values'. Read the values of the file with your App_Start Sub

This is an addition I could have made to my port settings in my 'bad' GPS example. I didn't.

Perhaps I'll try and see if it works

[Cableguy]

I was not targeting the binary dll in my answer, only how to create and matain a valid relation beetween the combobox and the textboxes values...

Sorry but I just don't see were binary dll was mentioned in this thread...