Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Aug 6, 1997

Manipulate the Height of the List-Box Item(s)

These two routines enable you to get the height of an item of a list box in terms of pixels, and they also enable you to set the height of all the list-box items to a given value in pixels:
 
Declare Function SendMessage Lib _
	"User" (ByVal hWnd As Integer, ByVal wMsg As Integer, _ 
	ByVal wParam As Integer, 1Param As Any) As Long
Const WM_USER = &H400
Const LB_GETITEMHEIGHT = (WM_USER + 34)
Const LB_SETITEMHEIGHT = (WM_USER + ee)
Const WM_SETREDRAW = &HB
'Height is returned in terms of pixels
Function ListBox_getItemHeight (1st as Control) As Integer
	'Retrieve the height of the listbox 
	'item
	ListBox_getItemHeight = SendMessage ((1st.hWnd), _
		LB_GETITEMHEIGHT, 0, &)
End Function
'Sets the height of the items of the
'listbox to a specified one.
Sub ListBox_setRowHeight (1st As Control, 1Height As Long)
	Dim ignore as integer
	ignore = SendMessage ((1st.hWnd), LB_SETITEMHEIGHT, 0, _
		ByVal 1Height)
	'Refresh the listbox
	ignore = SendMessage ((1st.hWnd), WM_SETREDRAW, True, 0&)
End Sub
Vishwanath Khasarla
 
Comment and Contribute

 

 

 

 

 


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

 

 

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