how to pass data from textbox to a variable

[yves_michel]

Hello,
I have created a array of 10 and 11 textbox in each text box I am trying to pass the value of the textbox into a segment of my array. But it does not seem to work the values in the array remain 0 even though I entered a decimal value in the textbox, Here a fragment of the program:
Declaration:
Dim parameters(10) As Long

In one of the textbox:
Public Sub TextBox4_Change()
parameters(3) = Val(TextBox4.Text)
End Sub

Many thanks

 

[MickG]

Perhaps:-

Private Sub TextBox1_LostFocus()
Dim parameters(10) As String
parameters(3) = TextBox1.Text
MsgBox parameters(3)
End Sub

 

[ChrisM]

To tag on, you mention entering a decimal value in the text box, but you dimensioned your array as a Long, which only holds integers.

 

[yves_michel]

Hi Chrism,
Excuse my ignorance, but I thought when I use "parameters(3) = Val(TextBox4.Text)" the val will transform the value in the textbox into a decimal value and place the value into parameters(3) automatically ?
I most admit that I don't really need to have the parameters dimed as long I could use Integer instead.If I do the following:

Dim parameters(10) As integer

Private Sub TextBox4_change()
parameters(3) = Cint(TextBox4.Text)
End Sub

It still doesn't work when I want to retrieve the value of parameters(3) in the frame of the program.Please can you point to me where I go wrong?
Regards,
Yves

 

[Ruddles]

What Chris is saying is that Long data types - and Integers - only hold the integer part of a number: no decimals.

CInt specifically removes the decimal part.

If you want to preserve the decimal part, declare the array as Single or Double and use CSng or CDbl.

 

[yves_michel]

Thank you, I changed the parameters declaration to integer but I still not being able to retrieve the parameters even though they are entered into the textbox. Anything to do with Private sub that hide the data to be seen anywhere in the program?

 

[Ruddles]

Declare parameters as Public in a general code module.