From IT major incidents to manufacturing line slowdowns, every business process generates insights that need to reach the people required to take action. You need a platform that integrates with your business tools to create fully enabled DevOps toolchains.
You need xMatters.
Course Of The Month
2 days, 3 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Visual Basic - Add line(s) on individual rows in datagridview - Flickering
Posted on 2012-12-27
I have a datagridview in my application (at this moment Visual Basic 2008, but in the near future Visual Basic 2010) and I want to create line(s) in individual rows.
At this moment I use the following code:
It works fine, but I have one problem:
The line(s) are 'flickering' on my screen. I know it happened by the CellPainting, but I don't know how to fix that. Does anyone know how to fix that?
At this moment I use the following code:
Private Sub datagridview1_CellPainting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) Handles datagridview1.CellPainting
Dim row As DataGridViewRow = datagridview1.Rows(e.RowIndex)
Dim BackColorBrush As New SolidBrush(e.CellStyle.BackColor)
Dim GridBrush As New SolidBrush(Me.datagridview1.GridColor)
Dim GridLinePen As New Pen(GridBrush)
' -- Erase the cell
e.Graphics.FillRectangle(BackColorBrush, e.CellBounds)
Dim ProgressBarBrush As New SolidBrush(Color.Black)
Dim CellProgressBarRect As New Rectangle(e.CellBounds.X, e.CellBounds.Y, e.CellBounds.Width, 2)
e.Graphics.FillRectangle(ProgressBarBrush, CellProgressBarRect)
e.Handled = True
Dim style As New DataGridViewCellStyle
style.Font = New Font(datagridview1.Font, FontStyle.Bold)
datagridview1.Rows(e.RowIndex).DefaultCellStyle = style
End Sub
It works fine, but I have one problem:
The line(s) are 'flickering' on my screen. I know it happened by the CellPainting, but I don't know how to fix that. Does anyone know how to fix that?
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
-
4
-
2
7 Comments
Active today
HI,
This could help
This could help
Public Sub SuspendLayout
'Usage
Dim instance As Control
instance.SuspendLayout
' your code
instance.ResumeLayout
Thank you for your answer! Can you be a little bit more specific?
What do I have to do with my cellpainting code?
The datagridview is filled by a sql query (fill a datatable). I added columns manually and connect the datagridview to a datatable (datasource = datatable) in the form_load.
What do I have to do with my cellpainting code?
The datagridview is filled by a sql query (fill a datatable). I added columns manually and connect the datagridview to a datatable (datasource = datatable) in the form_load.
Active today
Hi,
You can try SuspendLayout () before initializing your form and ResumeLayout () after initialization. Sometimes this doesn't work. When it doesn't, you can try using the Win32 functions:
Outside of your method:
using Microsoft.Win32;
using System.Runtime.InteropServ
[DllImport("user32.dll")]
public static extern int SendMessage(IntPtr hWnd, Int32 wMsg, bool wParam, Int32 lParam);
private const int WM_SETREDRAW = 11;
Before drawing:
SendMessage(ObjectControlP
After drawing:
SendMessage(ObjectControlP
You may then need to call Refresh ().
refer to http://www.c-sharpcorner.com/Forums/Thread/52/
Regards
You can try SuspendLayout () before initializing your form and ResumeLayout () after initialization. Sometimes this doesn't work. When it doesn't, you can try using the Win32 functions:
Outside of your method:
using Microsoft.Win32;
using System.Runtime.InteropServ
[DllImport("user32.dll")]
public static extern int SendMessage(IntPtr hWnd, Int32 wMsg, bool wParam, Int32 lParam);
private const int WM_SETREDRAW = 11;
Before drawing:
SendMessage(ObjectControlP
After drawing:
SendMessage(ObjectControlP
You may then need to call Refresh ().
refer to http://www.c-sharpcorner.com/Forums/Thread/52/
Regards
I tried this methods and it changes nothing unfortunately.
The flickering ("winking") still exist in the line(s).
The flickering ("winking") still exist in the line(s).
Can you show us a screenshot so we see what is the outcome of above code?
One change you can make immediately and which might help is to remove the last 3 lines and add following to form_load
datagridview1.Rows(e.RowIn
One change you can make immediately and which might help is to remove the last 3 lines and add following to form_load
datagridview1.Rows(e.RowIn
Featured Post
Containers are an incredibly powerful technology that can provide you and/or your engineering team with huge productivity gains. Using containers, you can deploy, back up, replicate, and move apps and their dependencies quickly and easily.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Welcome my friends to the second instalment and follow-up to our Minify and Concatenate Your Scripts and Stylesheets (http://www.experts-exchange.com/Programming/Languages/.NET/ASP.NET/A_4334-Minify-and-Concatenate-Your-Scripts-and-Stylesheets.html)…
The ECB site provides FX rates for major currencies since its inception in 1999 in the form of an XML feed. The files have the following format (reducted for brevity)
(CODE)
There are three files available HERE (http://www.ecb.europa.eu/stats/exch…
In this video, viewers are given an introduction to using the Windows 10 Snipping Tool, how to quickly locate it when it's needed and also how make it always available with a single click of a mouse button, by pinning it to the Desktop Task Bar.
Int…
Do you want to know how to make a graph with Microsoft Access? First, create a query with the data for the chart. Then make a blank form and add a chart control. This video also shows how to change what data is displayed on the graph as well as form…
Suggested Courses
Course of the Month2 days, 3 hours left to enroll
717 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.