DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

MSHFlex Grid Field get Highlighted if it is current date

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Jan 2009

Posts: 13

Reputation: Ravi Kant is an unknown quantity at this point

Solved Threads: 1

Ravi Kant

Offline

Newbie Poster

MSHFlex Grid Field get Highlighted if it is current date

Jan 6th, 2009

I am doing a project in VB and have used ADODC connection to connect in Access Database. I have used MSHFlexGrid and want it's data get highlighted Automatically if it is on current date (i.e Today's Date) for Birthday Reminder. How can i do it?

Last edited by Ravi Kant; Jan 6th, 2009 at 9:17 am.

•

Join Date: Nov 2006

Posts: 848

Reputation: QVeen72 is on a distinguished road

Solved Threads: 120

QVeen72

Offline

Practically a Posting Shark

Re: MSHFlex Grid Field get Highlighted if it is current date

Jan 7th, 2009

Hi,

Once the Grid is Loaded, Loop thru the column and Highlight if matching, Say, you are Date Column is 2, Check this Code:

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
Dim i As Integer
For i = 1 To Grd.Rows-1
If ISDate(Grd.TextMatrix(i,2)) Then
  If CDate(Grd.TextMatrix(i,2)) = Date Then
      Grd.Col = 2
      Grd.Row = i
      Grd.CellFontBold = True
     Grd.CellBackColor = vbBlue
     Grd.CellFontColor = vbWhite
  End If
Next
Dim i As Integer
For i = 1 To Grd.Rows-1
If ISDate(Grd.TextMatrix(i,2)) Then
  If CDate(Grd.TextMatrix(i,2)) = Date Then
      Grd.Col = 2
      Grd.Row = i
      Grd.CellFontBold = True
     Grd.CellBackColor = vbBlue
     Grd.CellFontColor = vbWhite
  End If
Next

Change Control Name accordingly..

Regards
Veena

Quick Reply to Thread

Show Printable Version

Other Threads in the Visual Basic 4 / 5 / 6 Forum

Previous Thread: timer help
Next Thread: FILL COMBO WITHOUT dupes...

Thread Tools	Search this Thread
Show Printable Version Email this Page

DaniWeb Message

Cancel Changes