How to load next 4 lines of text to a textbox

Question

0.00/5 (No votes)

See more:

Hi, I'm trying to make an app that is a multiple choice quiz. I have one question. I have a button click event that loads 4 lines of text to 4 separate textboxes, how can I click the same button again to add the next 4 lines of text in a text file to the textboxes? This is my code so far:

VB

Public Class Form1
    Dim lines() As String
    Dim index As Integer = 0
    Dim answers() As String

VB

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        lines = IO.File.ReadAllLines("C:\Quiz\GenesisQuiz.txt")
        answers = IO.File.ReadAllLines("C:\Quiz\GenesisAnswers.txt")

VB

Private Sub Button40_Click(sender As Object, e As EventArgs) Handles Button40.Click
        TextBox1.Text &= lines(index) & Environment.NewLine
        index += 1
        If index > lines.GetUpperBound(0) Then Button40.Enabled = False
    End Sub

The above code loads my questions to a textbox 1 at a time as I hit the next button.

VB

Private Sub Button40_MouseClick(sender As Object, e As MouseEventArgs) Handles Button40.MouseClick
        If File.Exists("C:\Quiz\GenesisAnswers.txt") Then
            Dim ioFile As New StreamReader("C:\Quiz\GenesisAnswers.txt")
            TextBox2.Text = ioFile.ReadLine()
            TextBox3.Text = ioFile.ReadLine()
            TextBox4.Text = ioFile.ReadLine()
            TextBox5.Text = ioFile.ReadLine()
        End If
    End Sub

This code loads my 4 answers to 4 separate textboxes with radio buttons at the right of the textbox to choose which answer to give. I need help on loading the next 4 answers in my text file to the 4 separate textboxes as the new question, question 2, is loaded. Thanks for your constructive criticism!

Posted 11-Feb-15 18:59pm

Luigi Nesbitt

Updated 12-Feb-15 5:34am

v2

Add a Solution

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

anup.bhunia · Answer 1 · 2015-02-11T19:21:00

Solution 1

If this a windows form application,
declare the file variable in form scope, instead of local. Open the file in form load.

If this is a web application, you need to keep the last line-no in a hidden field. On next click skip upto that mark before loading the next lines in your textboxes.

Posted 11-Feb-15 19:21pm

anup.bhunia

Hiren Lad · Answer 2 · 2015-02-11T20:07:00

Hi,

Please Use below code.

VB

Private Function ReadAnswers(ByVal Offset As Integer) As ArrayList

       Dim arrAnswers As New ArrayList

       'Read all lines from the text file and fill the lines array
       Dim strLines() As String = File.ReadAllLines(Application.StartupPath & "\1.txt")


       Dim StartIndex As Integer = ((Offset - 1) * 4)
       Dim EndIndex As Integer = StartIndex + 3

       For i = StartIndex To EndIndex
           arrAnswers.Add(strLines(i).ToString)
       Next
       Return arrAnswers
   End Function

In above function you can passed the Question No. as a parameter of offset.
Please let me know if you have any query.

Thanks.!!!
Hiren Lad.