Ad:

VB.NET Discussion Thread
Unsolved
Views: 1463

Feb 5th, 2009

storing values in arrays fom inputbox?

Expand Post »

i have declared an array which i want to populate with names, as they are entered into an input box.It does not seem to work i have tried many other methods with the array but to no success.

VB.NET Syntax (Toggle Plain Text)
Dim namearray() As String
Dim i As Integer
 
name = InputBox("Enter the candidates name:", "candidatename", "", 500, 500)
 
name = namearray(i)
i = i + 1
Dim namearray() As String
Dim i As Integer

name = InputBox("Enter the candidates name:", "candidatename", "", 500, 500)

name = namearray(i)
i = i + 1

thanks a lot.

asif786

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

19 posts
since Dec 2008

Permalink

Feb 5th, 2009

Re: storing values in arrays fom inputbox?

VB.NET Syntax (Toggle Plain Text)
Dim namearray() As String
Dim NewName As String
Dim i As Integer
 
i = 0
NewName = InputBox("Enter the candidates name:", "candidatename", "", 500, 500)
Do Until String.IsNullOrEmpty(NewName)
  ReDim Preserve namearray(i)
  namearray(i) = NewName
  i += 1
  NewName = InputBox("Enter the candidates name:", "candidatename", "", 500, 500)
Loop
Dim namearray() As String
Dim NewName As String
Dim i As Integer

i = 0
NewName = InputBox("Enter the candidates name:", "candidatename", "", 500, 500)
Do Until String.IsNullOrEmpty(NewName)
  ReDim Preserve namearray(i)
  namearray(i) = NewName
  i += 1
  NewName = InputBox("Enter the candidates name:", "candidatename", "", 500, 500)
Loop

Loops until you enter an empty name.

Teme64

Reputation Points: 218

Solved Threads: 201

Veteran Poster

Offline

1,024 posts
since Aug 2008

Permalink

Feb 6th, 2009

Re: storing values in arrays fom inputbox?

Why not storing them in a List(Of String)?

VB.NET Syntax (Toggle Plain Text)
    Dim listOfNames As New List(Of String)
 
    Private Sub Button1_Click(ByVal sender As System.Object, _
                  ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim newName As String = ""
        newName = InputBox("Enter the candidates name:", _
                                  "candidatename", "", 500, 500)
        If Not String.IsNullOrEmpty(newName) Then
            listOfNames.Add(newName)
        End If
        BindListbox()
    End Sub
 
    Private Sub BindListbox()
        Me.ListBox1.Items.Clear()
        Try
            Me.ListBox1.Items.AddRange(listOfNames.ToArray)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Dim listOfNames As New List(Of String)

    Private Sub Button1_Click(ByVal sender As System.Object, _
                  ByVal e As System.EventArgs) Handles Button1.Click

        Dim newName As String = ""
        newName = InputBox("Enter the candidates name:", _
                                  "candidatename", "", 500, 500)
        If Not String.IsNullOrEmpty(newName) Then
            listOfNames.Add(newName)
        End If
        BindListbox()
    End Sub

    Private Sub BindListbox()
        Me.ListBox1.Items.Clear()
        Try
            Me.ListBox1.Items.AddRange(listOfNames.ToArray)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Last edited by 4advanced; Feb 6th, 2009 at 3:40 am. Reason: typo

4advanced

Reputation Points: 33

Solved Threads: 10

Junior Poster in Training

Offline

67 posts
since Nov 2008

Permalink

Feb 6th, 2009

Re: storing values in arrays fom inputbox?

As per the logic of execution your code, if you want to fill the array in let say button_1 click and then use the array in another sub, you have to declare the array in the form declaration not in the same sub. or else you will be able to use that Array?

vb.net Syntax (Toggle Plain Text)
' Form1 Declaration
Dim aCandidate(0) As String
 
' sub Button6_Click
Dim I As Integer
I = UBound(aCandidate, 1) + 1
ReDim Preserve aCandidate(I)
aCandidate(I) = InputBox("Enter the candidates name:", "candidatename", "", 500, 500)
' Form1 Declaration
Dim aCandidate(0) As String

' sub Button6_Click
Dim I As Integer
I = UBound(aCandidate, 1) + 1
ReDim Preserve aCandidate(I)
aCandidate(I) = InputBox("Enter the candidates name:", "candidatename", "", 500, 500)

samir_ibrahim

Reputation Points: 69

Solved Threads: 19

Junior Poster

Offline

155 posts
since Sep 2008

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in VB.NET Forum Timeline: DateTime field - How do I assign a time other than current?

Next Thread in VB.NET Forum Timeline: Reterieve data from mdb and display in listbox

DaniWeb Message

Cancel Changes

User Name
Password