Login | Register   
RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.

Tip of the Day
Language: Visual Basic
Expertise: Beginner
Apr 27, 2000



Application Security Testing: An Integral Part of DevOps

Fix Justification Glitch in MSFlexGrid

The MSFlexGrid tries to automatically determine how to justify text. If the first character is numeric, then that cell will be right-justified. If it is an alphanumeric character, then that cell will be left-justified. The problem arises when you try to display a freeform note in one of the cells. If the note starts with a number, such as "30 days until renewal," MSFlexGrid right-justifies that cell. The solution is to prefix all cells with a space:
Sub FillGrid(rs As RecordSet)
	Dim sItem As String
	Dim i as Long 
	'//Loop through the recordset
	Do Until rs.EOF   
	 '//Loop through the fields
	  For i = 0 To rs.Fields.Count -1
	    'Build the row to be inserted, vbTab 
	    'first so that we skip the fixedcol and 
	    'space so that everything is left justified
	    sItem = sItem & vbTab & " " & rs.Fields(i) 
	  Next I 
	  '//Add The row to the grid
	  grd.AddItem sItem
	  '//Move to the next record
End Sub
Pat Labelle
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date