How do I draw in listview columns and rows from formload?

Question

1.00/5 (1 vote)

See more:

as of now I am able to do this from a separate event,

here is the code I am using:

Private Sub ListView1_DrawSubItem(sender As Object, e As System.Windows.Forms.DrawListViewSubItemEventArgs) Handles ListView1.DrawSubItem
       With e.Graphics
           .DrawLines(New Pen(SystemColors.ButtonShadow), New Point() {New Point(e.Bounds.Left, e.Bounds.Top - 1), New Point(e.Bounds.Left + e.Bounds.Width, e.Bounds.Top - 1), New Point(e.Bounds.Left + e.Bounds.Width, e.Bounds.Top + e.Bounds.Height), New Point(e.Bounds.Left, e.Bounds.Top + e.Bounds.Height)})

       End With

       e.DrawText()

   End Sub

The reason I am trying to get this over to the form_load event is that every time I call forth my listview1.click event the listview keeps flashing. However, I believe this may stop if this was drawn on listview permanently instead of being its own event being drawn every time.

What I have tried:

I tried using a creategraphics

here is the code I tried:

With CreateGraphics()
          .DrawLines(New Pen(SystemColors.ButtonShadow), New Point() {New Point(ListView1.Bounds.Left, ListView1.Bounds.Top - 1), New Point(ListView1.Bounds.Left + ListView1.Bounds.Width, ListView1.Bounds.Top - 1), New Point(ListView1.Bounds.Left + ListView1.Bounds.Width, ListView1.Bounds.Top + ListView1.Bounds.Height), New Point(ListView1.Bounds.Left, ListView1.Bounds.Top + ListView1.Bounds.Height)})
      End With

but it didn't work

Posted 26-Apr-18 8:10am

Member 11856456

Updated 27-Apr-18 5:29am

Add a Solution

Comments

Richard Deeming 26-Apr-18 14:29pm

You're trying to solve the wrong problem. Don't try to move the drawing code to the load event - that will never work. Instead, try to solve the flashing problem.

You probably need to turn on double buffering:
How to: Reduce Graphics Flicker with Double Buffering for Forms and Controls[^]

Member 11856456 26-Apr-18 14:42pm

This seems like it would solve my problem, the only issue is that it shows how to do this in C#, not vb.net. How would I go about setting this up for a vb.net application?

Richard Deeming 26-Apr-18 14:44pm

The two code blocks are simple enough to translate:

DoubleBuffered = True

and:

SetStyle(ControlStyles.OptimizedDoubleBuffer, True)

Member 11856456 26-Apr-18 15:02pm

I just tried this in 3 different locations of my code and none of them responded to the flickering. maybe I am looking at this wrong?

Member 11856456 27-Apr-18 11:31am

Richard, I could not get the double buffer to work, however, I did find a code that stops flickering. Since you have been in this for awhile, and it's a shortcode, could you explain why this stops flickering?

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)

Member 11856456 · Accepted Answer · 2018-04-27T05:31:00

After a couple days of searching and trying different things, I found the solution I was looking for. However, I do not completely understand how it works, but it does stop the flickering.

Protected Overloads Overrides ReadOnly Property CreateParams() As CreateParams 'stop flicker code part 1 of 2
      Get
          Dim cp As CreateParams = MyBase.CreateParams
          cp.ExStyle = cp.ExStyle Or 33554432
          Return cp
      End Get
  End Property
  Private Sub PreVentFlicker() 'stop flicker code part 2 of 2
      With Me
          .SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
          .SetStyle(ControlStyles.UserPaint, True)
          .SetStyle(ControlStyles.AllPaintingInWmPaint, True)
          .UpdateStyles()
      End With
  End Sub

http://www.dreamincode.net/forums/topic/294248-flicker-problem-on-form-loading/