Display cursor pointed line in textbox and hide other lines in VB.NET

Question

0.00/5 (No votes)

See more:

Is there any method to display only single line of textfile which is loaded in textbox when cursor/key up&down is done and hide other lines while current line is highlighted.

Example:
Two lines of textfile in textbox are:

abcdef
1234

when cursor is pointed on line containing "abcdef" then line containing "1234" which is second line of textfile should be hide and when cursor is on second line then first and other lines of textbox should be hide

What I have tried:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim ReadSpciFile As Array
Dim line As String
ReadSpciFile = File.ReadAllLines("C:\Users\OM\Desktop\1 (3).txt")
line = ReadSpciFile(0)
RichTextBox1.Text = line

End Sub

above code is now showing first line of textfile due to this "line = ReadSpciFile(0)"
but i am unable to load/see other lines when i keydown/keyup event

Posted 10-Jun-18 21:47pm

shaileshshinde

Updated 18-Jun-18 1:03am

v6

Add a Solution

Comments

Maciej Los 11-Jun-18 4:44am

Wrong idea!

Think of it... If the second line is hidden how cursor can be moved over this line?

shaileshshinde 11-Jun-18 4:48am

if not hidden then the second line can be of such forecolor which is invisible.
and when cursor pointed on second line then the second line cursor should get highlighted with visible forecolor

or any other idea which you suggest to achieve this kind of behaviour?

Maciej Los 11-Jun-18 5:17am

You already answered your question yourself ;)

shaileshshinde 11-Jun-18 5:36am

Yes right. But for coding this method I am not getting coding logic.

Ralf Meier 15-Jun-18 8:42am

You have the wrong approach.
This Behaviour is not the Behaviour which could (or should) be realized with a (single) TextBox - better you create a customized Control, for example a UserControl which consists of 2 TextBoxes - now you are able to really switch between 2 both lines.

shaileshshinde 15-Jun-18 8:45am

I think so it is not possible.

because this is kind of project of checking image with textfiles for quality.

And textfile can be gathered in one textbox only.

So, for that in one textbox only the behaviour should happen.

Thats the reason i am not getting logic for this behaviour.

Ralf Meier 15-Jun-18 9:31am

Everything is possible if you follow the right approach.
But I can only make suggestions and give assistance. The decission how to do must come from you.

A Textfile can be written into one Textbox or serverall - or into a conplete different Control. If you can't get the logic it could be possible that you couldn't find it because there is no possible Solution in that way.
I suggest the following :
- you explain EXACTLY what your goal is
- you think over the way to go
... then you (we ?) perhaps find a Solution ...

shaileshshinde 15-Jun-18 9:53am

My goal is:

When image is loaded in picturebox and textfile loaded in textbox.

Then only one line of textfile line should be visible when the cursor is pointed on that line and other lines of textfile should be invisible and when cursor/key up ,down is done on other line that line should be visible.

Example:

If there is two lines in textfile which is loaded in one textbox only:

ABCDEFGHIJKLMNOP
1234567890

When cursor is on line number 1 "ABCDEFGHIJKLMNOP" then second line should be invisible and when cursor pointed on second line then first line should be invisible.

Ralf Meier 15-Jun-18 18:08pm

OK ... I not understand the sense of it ... but as I wrote before : that cannot be done with a Textbox.
What you need is a List-Control - either a ready-made one (as for example DataGridView) or a self-build (customized) one.
So ... what shall now be the next step ...?

shaileshshinde 18-Jun-18 5:55am

please look at my new code.

In this i am able to see single line of code on load event.Now working.

But now i want to see other lines one by one when keydown/keyup is done

1 solution

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)

Ralf Meier · Answer 1 · 2018-06-18T01:04:00

Refering to the discussion until now I would suggest the Following :
- with Loading your Form (for example) you load the Data of your Textfile into an Array (like allready posted from you).
Also assign the 1st Array-Element to your Textbox
Build an Index-Variable (Integer) which points to the line which is allready to be seen
- now hook the KeyUp-Event from the Textbox to a method where you decrease the Index-Variable (and check it against the Array-Bounds).
Assign the Array-Element which is indexed by this Variable to your Textbox
- now hook the KeyDown-Event from the Textbox to a method where you increase the Index-Variable (and check it against the Array-Bounds).
Assign the Array-Element which is indexed by this Variable to your Textbox

VB

Dim ReadSpciFile As array
Dim Index as integer = 0

Private Sub Form1_Load (sender As Object, e As EventArgs) Handles MyBase.Load
Dim line As String
ReadSpciFile = File.ReadAllLines("C:\Users\OM\Desktop\1 (3).txt")
line = ReadSpciFile(0)
RichTextBox1.Text = line
End Sub

private sub DecreaseLine (sender As Object, e As EventArgs) Handles RichTextBox1.KeyUp
Index -= 1
if Index < 0 then Index = 0
line = ReadSpciFile(Index)
RichTextBox1.Text = line
end sub

private sub IncreaseLine (sender As Object, e As EventArgs) Handles RichTextBox1.KeyDown
Index += 1
if Index >= ReadSpciFile.length then Index = ReadSpciFile.length
line = ReadSpciFile(Index)
RichTextBox1.Text = line
end sub

Extended suggestion :

VB

Dim ReadSpciFile As array
Dim Index1 as integer = 0
Dim Index2 as integer = 0

Private Sub Form1_Load (sender As Object, e As EventArgs) Handles MyBase.Load
Dim line As String
ReadSpciFile = File.ReadAllLines("C:\Users\OM\Desktop\1 (3).txt")
line = ReadSpciFile(0)
RichTextBox1.Text = line
End Sub

private sub DecreaseLine1 (sender As Object, e As EventArgs) Handles RichTextBox1.KeyUp
Index1 -= 1
if Index1 < 0 then Index1 = 0
line = ReadSpciFile(Index1)
RichTextBox1.Text = line
end sub

private sub IncreaseLine1 (sender As Object, e As EventArgs) Handles RichTextBox1.KeyDown
Index1 += 1
if Index1 >= ReadSpciFile.length then Index1 = ReadSpciFile.length
line = ReadSpciFile(Index1)
RichTextBox1.Text = line
end sub

private sub DecreaseLine2 (sender As Object, e As EventArgs) Handles RichTextBox2.KeyUp
Index2 -= 1
if Index2 < 0 then Index2 = 0
line = ReadSpciFile(Index2)
RichTextBox2.Text = line
end sub

private sub IncreaseLine2 (sender As Object, e As EventArgs) Handles RichTextBox2.KeyDown
Index2 += 1
if Index2 >= ReadSpciFile.length then Index2 = ReadSpciFile.length
line = ReadSpciFile(Index2)
RichTextBox2.Text = line
end sub