Transport a List

The typical way of entering user-specified data into a list box is one entry at a time; however, you can accept multiple delimited entries at once and add them to a list box with a call to this function. Passing the function a delimited string fills the list box with the values; the list box can be cleared first if requested in the bClear parameter. If you pass an empty string, the values from the list box are used to create a delimited string:

 Function ConvertList(cList As Control, ByVal sText As _	String, ByVal sDelimiter As String, Optional bClear As _	Boolean = False) As String	Dim lLoop As Long	Dim lFind As Long	If Len(sText) Then		If bClear Then cList.Clear		Do			lFind = InStr(sText, sDelimiter)			If lFind Then				cList.AddItem Left$(sText, lFind - 1)				sText = Mid$(sText, lFind + 1)			End If		Loop Until lFind = 0		If Len(sText) Then cList.AddItem sText	Else		For lLoop = 0 To cList.ListCount - 1			If lLoop = cList.ListCount - 1 _				Then sDelimiter = vbNullString			ConvertList = ConvertList & cList.List(lLoop) _				& sDelimiter		Next lLoop	End IfEnd Function

Here’s how you can call it to fill a list, then output the same list using a different delimiter:

 Call ConvertList(List1, "yellow|green|red", "|", True)Debug.Print ConvertList(List1, "", "/")
Share the Post:
Share on facebook
Share on twitter
Share on linkedin


The Latest

iOS app development

The Future of iOS App Development: Trends to Watch

When it launched in 2008, the Apple App Store only had 500 apps available. By the first quarter of 2022, the store had about 2.18 million iOS-exclusive apps. Average monthly app releases for the platform reached 34,000 in the first half of 2022, indicating rapid growth in iOS app development.

microsoft careers

Top Careers at Microsoft

Microsoft has gained its position as one of the top companies in the world, and Microsoft careers are flourishing. This multinational company is efficiently developing popular software and computers with other consumer electronics. It is a dream come true for so many people to acquire a high paid, high-prestige job

your company's audio

4 Areas of Your Company Where Your Audio Really Matters

Your company probably relies on audio more than you realize. Whether you’re creating a spoken text message to a colleague or giving a speech, you want your audio to shine. Otherwise, you could cause avoidable friction points and potentially hurt your brand reputation. For example, let’s say you create a