• 0

Formatting a listview item

Asked by Daedroth,

 Share

Question

Veteran

Daedroth

Posted
Posted

Hey people!

I have pulled information from an access table into a listview item within Visual Basic 2010. It displays all the information, field by field how I want it...however one of the fields has a lot of text. It stops after the specified lenght with ... suggesting there is more text that doesn't fit. I have used "-2" to make it longer, but then it's too long. Also scrolling wouldn't be very nice.

I'd like it to display the information from the field on two lines, but I can't figure it out. Here's my existing text (without the dims as I've made it flat at the moment)


objConnection = CreateObject("ADODB.Connection")
		objRecordset = CreateObject("ADODB.Recordset")
		dbasename = "D:\technicianmanagement.MDB"
		tblname = "FaultCalls"
		objConnection.Open("ProviderMiMicrosoft.Jet.OLEDB.4.0; Data Source = " & dbasename)
		objRecordset.Open("SELECTOM " & tblname & " ORDER BY DATEREP DESC, TIMEREP DESC", objConnection, adOpenStatic, _
		   adLockOptimistic)

		lvref.Clear()
		lvref.View = View.Details
		lvref.Columns.Add("Ref, HorizontalAlignment.Left)
		lvref.Columns.Add("User, HorizontalAlignment.Left)
		lvref.Columns.Add("Asset0, HorizontalAlignment.Left)
		lvref.Columns.Add("Fault, HorizontalAlignment.Left)
		lvref.Columns.Add("Assigned, HorizontalAlignment.Left)
		lvref.Columns.Add("Date, HorizontalAlignment.Left)
		lvref.Columns.Add("Time, HorizontalAlignment.Left)
		lvref.Columns.Add("Email, HorizontalAlignment.Left)

Do While Not objRecordset.EOF

MyListText(0) = sID
			MyListText(1) = sUser
			MyListText(2) = sAsset
			MyListText(3) = sFault
			MyListText(4) = sAssigned
			MyListText(5) = sDate
			MyListText(6) = sTime
			If sEmail = True Then MyListText(7) = "Yes" Else MyListText(7) = "No"
			MyListItem = New ListViewItem(MyListText)
			lvref.Items.Add(MyListItem)
			objRecordset.MoveNext()
Loop
[/CODE]

Link to comment
https://www.neowin.net/forum/topic/1059766-formatting-a-listview-item/
Share on other sites

9 answers to this question

Recommended Posts

  • 0
Veteran

James Rose

Posted
Posted

The problem is that the included listview control does not support multiple lines. (sorry) The general view is that the user will expand the column so that they can see the entire text.

I did a quick search and there are comments about 3rd party controls that allow multi line, but this is an unstandard pattern so be aware.

Sorry I can't give you the answer you wanted. I would really rethink the amount of data that you are showing.

  • 0
Experienced

Squirrelington

Posted
Posted
  On 23/02/2012 at 14:24, Daedroth said:

Hey people!

I have pulled information from an access table into a listview item within Visual Basic 2010. It displays all the information, field by field how I want it...however one of the fields has a lot of text. It stops after the specified lenght with ... suggesting there is more text that doesn't fit. I have used "-2" to make it longer, but then it's too long. Also scrolling wouldn't be very nice.

I'd like it to display the information from the field on two lines, but I can't figure it out. Here's my existing text (without the dims as I've made it flat at the moment)


objConnection = CreateObject("ADODB.Connection")
		objRecordset = CreateObject("ADODB.Recordset")
		dbasename = "D:\technicianmanagement.MDB"
		tblname = "FaultCalls"
		objConnection.Open("ProviderMiMicrosoft.Jet.OLEDB.4.0; Data Source = " & dbasename)
		objRecordset.Open("SELECTOM " & tblname & " ORDER BY DATEREP DESC, TIMEREP DESC", objConnection, adOpenStatic, _
		   adLockOptimistic)

		lvref.Clear()
		lvref.View = View.Details
		lvref.Columns.Add("Ref, HorizontalAlignment.Left)
		lvref.Columns.Add("User, HorizontalAlignment.Left)
		lvref.Columns.Add("Asset0, HorizontalAlignment.Left)
		lvref.Columns.Add("Fault, HorizontalAlignment.Left)
		lvref.Columns.Add("Assigned, HorizontalAlignment.Left)
		lvref.Columns.Add("Date, HorizontalAlignment.Left)
		lvref.Columns.Add("Time, HorizontalAlignment.Left)
		lvref.Columns.Add("Email, HorizontalAlignment.Left)

Do While Not objRecordset.EOF

MyListText(0) = sID
			MyListText(1) = sUser
			MyListText(2) = sAsset
			MyListText(3) = sFault
			MyListText(4) = sAssigned
			MyListText(5) = sDate
			MyListText(6) = sTime
			If sEmail = True Then MyListText(7) = "Yes" Else MyListText(7) = "No"
			MyListItem = New ListViewItem(MyListText)
			lvref.Items.Add(MyListItem)
			objRecordset.MoveNext()
Loop
[/CODE]

Not sure why you dont use DataGridView.

you can do DataGridView.Columns.Add([font=monospace]"Ref") [/font]DataGridView.Columns.Add([font=monospace]"User") [/font]DataGridView.Columns.Add([font=monospace]"Asset")[/font] etc.

[font=monospace]and then for the items you can do DataGridView.Rows.Add([/font]sID, sUser, sAsset, ...)

p.s. my VB.NET skills are rusty as I've been doing C# for a while now so ignore semicolons where not required ;p

  • 0
Experienced

Squirrelington

Posted
Posted (edited) 


		objConnection = CreateObject("ADODB.Connection")
		objRecordset = CreateObject("ADODB.Recordset")
		dbasename = "D:\technicianmanagement.MDB"
		tblname = "FaultCalls"
		objConnection.Open("ProviderMiMicrosoft.Jet.OLEDB.4.0; Data Source = " & dbasename)
		objRecordset.Open("SELECTOM " & tblname & " ORDER BY DATEREP DESC, TIMEREP DESC", objConnection, adOpenStatic, adLockOptimistic)

		DataGridView1.Columns.Clear()
		DataGridView1.Columns.Add("Refef")
		DataGridView1.Columns.Add("Userser")
		DataGridView1.Columns.Add("Assetsset")
		DataGridView1.Columns.Add("Faultault")
		DataGridView1.Columns.Add("Assignedssigned")
		DataGridView1.Columns.Add("Dateate")
		DataGridView1.Columns.Add("Timeime")
		DataGridView1.Columns.Add("Emailmail")

		' Makes the form stretch to show all the columns that are visible.
		Me.Width = DataGridView1.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) + 60

		' Clear all current rows of data.
		DataGridView1.Rows.Clear()

		Do While Not objRecordset.EOF
			' You would probably want to do something like this... I put an in-line if statement to shrink the amount of code needed.
			' The first parameter if If() is the expression, second is what to do if it is true and the third is what to do if it is false.
			DataGridView1.Rows.Add(sID, sUser, sAsset, sFault, sAssigned, sDate, sTime, If(sEmail, "Yes", "No"))
		Loop
[/CODE]

That should help you along.

Or... for more column size control etc.

[CODE]
objConnection = CreateObject("ADODB.Connection")
objRecordset = CreateObject("ADODB.Recordset")
dbasename = "D:\technicianmanagement.MDB"
tblname = "FaultCalls"
objConnection.Open("ProviderMiMicrosoft.Jet.OLEDB.4.0; Data Source = " & dbasename)
objRecordset.Open("SELECTOM " & tblname & " ORDER BY DATEREP DESC, TIMEREP DESC", objConnection, adOpenStatic, adLockOptimistic)

DataGridView1.Columns.Clear()

Dim DGVC(7) As DataGridViewTextBoxColumn
DGVC(0) = New DataGridViewTextBoxColumn
DGVC(0).HeaderText = "Ref"
DGVC(0).Name = "Ref"
DGVC(0).Width = 40
DGVC(1) = New DataGridViewTextBoxColumn
DGVC(1).HeaderText = "User"
DGVC(1).Name = "User"
DGVC(1).Width = 75
DGVC(2) = New DataGridViewTextBoxColumn
DGVC(2).HeaderText = "Asset"
DGVC(2).Name = "Asset"
DGVC(2).Width = 100
DGVC(3) = New DataGridViewTextBoxColumn
DGVC(3).HeaderText = "Fault"
DGVC(3).Name = "Fault"
DGVC(3).Width = 140
DGVC(4) = New DataGridViewTextBoxColumn
DGVC(4).HeaderText = "Assigned"
DGVC(4).Name = "Assigned"
DGVC(4).Width = 75
DGVC(5) = New DataGridViewTextBoxColumn
DGVC(5).HeaderText = "Date"
DGVC(5).Name = "Date"
DGVC(5).Width = 50
DGVC(6) = New DataGridViewTextBoxColumn
DGVC(6).HeaderText = "Time"
DGVC(6).Name = "Time"
DGVC(6).Width = 75
DGVC(7) = New DataGridViewTextBoxColumn
DGVC(7).HeaderText = "Email"
DGVC(7).Name = "Email"
DGVC(7).Width = 40
DataGridView1.Columns.AddRange(DGVC)

' Makes the form stretch to show all the columns that are visible.
Me.Width = DataGridView1.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) + 60

' Clear all current rows of data.
DataGridView1.Rows.Clear()

Do While Not objRecordset.EOF
' You would probably want to do something like this... I put an in-line if statement to shrink the amount of code needed.
' The first parameter if If() is the expression, second is what to do if it is true and the third is what to do if it is false.
DataGridView1.Rows.Add(sID, sUser, sAsset, sFault, sAssigned, sDate, sTime, If(sEmail, "Yes", "No"))
Loop
[/CODE]

post-20891-0-97936800-1330062215.png

Edited by FuhrerDarqueSyde
  • 0
Veteran

Daedroth

Posted
  • Author
Posted

I decided against a DataGraidView for asthetics.

I found this command:

lvref.AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)[/CODE]

This resizes the field how I want, but again its too long. :(

Also, thanks for the help. I have added a datagridview for testing and comparison. Is there either way to make the datagridview or listview grow/shrink but keep ratios and autosize if the user resizes the form?

So if I resize the form, the text will go onto new lines, rather than the user having to use the scroll bar to view obscured text.

  • 0
Grand Master

Kami-

Posted
Posted

Auto-Resizing: Me.DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells

Wrapping: Me.DataGridView1.RowsDefaultCellStyle.WrapMode = DataGridViewTriState.True

Useful?

(Also, you say you've gone against the DGV for Aesthetics... you can style them to look identical to a list view if you so wished... but imo you can make them look an awful lot better too!)

  • 0
Veteran

Daedroth

Posted
  • Author
Posted

That's worked on some, but not all cells.

Is there any way to get it working for the rows too?

I have tried:

Me.dgvfaults.AutoResizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells[/CODE]

But that didn't work, as it says "'AutoResizeRowsMode' is not a member of 'System.Windows.Forms.DataGridView'"

Attached is what it looks like at the moment, but I'd like it so that it will resize with the form. Meaning it'll add extra lines if needed and shove the teext down.

post-395128-0-02155200-1330090307_thumb.

  • 0
Mentor

monkey13

Posted
Posted

After the loop can't you just do.


lvref.Columns(3).Width = -1
[/CODE]

That should resize it to the largest data item in the column. You may be able to set it to -1 before the loop and then it will do it as the data is added. My VB is very rusty so I can't remember exactly how it works (so rusty I could be way off as well)

  • 0
Veteran

Bamsebjørn

Posted
Posted

I've just programmed my first VB.NET in 2 years... here's a simple implementation of a ListBox with custom drawn mutli line items. Use it as you like...

(something went wrong, the attachment is attached twice)

OmgPonies.zipFetching info...

OmgPonies.zipFetching info...

This topic is now closed to further replies.
 Share
Go to question listing

  • Posts

    • Amazon Alexa+ now has more than a million users

      By ad47uk · Posted

      It is only available on Echo shows and the U.S. at the moment, so a million is pretty good I suppose. I hope when it does come to us all it can be disabled if not wanted, without having to get rid of Amazon Prime.
    • Elon Musk once again claims Tesla robotaxis are coming soon

      By ad47uk · Posted

      Uber wants to bring them to London, not that I live in London, but even if I did, I would not use them. I prefer having a human driving the car, not rely on some computer.
    • Elon Musk once again claims Tesla robotaxis are coming soon

      By PsYcHoKiLLa · Posted

      I'd rather walk thanks
    • Google begins rollout of Android 16 with several new features

      By Tuskd · Posted

      There is nobody to challenge the status quo. Foldables have not taken off as expected. People are holding onto their existing phones for a lot longer. There is movement happening in the handheld console space, but those are not phones. Both Apple and Google are involved in legal fights. Yet they have to stick to releasing a new OS every year... It all adds up.
    • Elon Musk once again claims Tesla robotaxis are coming soon

      By David Uzondu · Posted

      Elon Musk once again claims Tesla robotaxis are coming soon by David Uzondu Image via Depositphotos.com Tesla's CEO, Elon Musk, has announced a tentative start date of June 22 for the company's long-awaited public robotaxi service. According to a post on his social media platform X, the initial launch will be in Austin, Texas. Musk added a significant condition, however, saying "We are being super paranoid about safety, so the date could shift." The service is expected to begin with just 10 to 20 Model Y SUVs operating within a limited area and with remote human supervision. He also mentioned a plan starting June 28 for new Teslas to drive themselves from the factory to a customer's home. This is a moment many are probably waiting for, though it comes with a heavy dose of skepticism. Musk has made grand promises about self-driving before. This robotaxi network brings to mind the bold claims from all the way back in 2019 when the company said a similar service would launch the following year. That evidently did not happen. Federal regulators also have their doubts. Last year, the National Highway Traffic Safety Administration criticized Tesla for making its "Full Self-Driving" feature sound more capable than it actually is, demanding the company align its marketing with reality. Tesla is also driving into a field that is no longer empty. Waymo, Google's sibling company, is already a major player, offering hundreds of thousands of paid rides per week across Phoenix, San Francisco, Los Angeles, and even Austin. The company is so far ahead that it has begun testing in Tokyo. But being ahead means Waymo is also the first to face certain dangers. For example, on the evening of June 8, a group of protesters in downtown Los Angeles summoned Waymo vehicles during a demonstration. When the vehicles arrived, they slashed the tires, smashed the windows, and spray-painted the cars before setting three of them on fire. Which raises a thorny question for Tesla: if you can summon a car with no one inside, can you summon it just to destroy it? It's one thing for protesters to stumble upon a robotaxi and vandalize it; it's another for someone to use the app to call a driverless car to a secluded spot for a planned attack. With public sentiment around Musk so divided, especially given his DOGE shenanigans and his recent face off with Donald Trump, that's not just a theoretical problem. We've already seen this hostility play out in attacks where people vandalize Teslas, carving swastikas into them and spray painting slogans like "Burn More Teslas" on walls.

  • Popular Contributors

    1. 1
      +primortal
      524
    2. 2
      ATLien_0
      271
    3. 3
      +Edouard
      199
    4. 4
      +FloatingFatMan
      195
    5. 5
      snowy owl
      138
    Show More

  • Tell a friend

    Love Neowin? Tell a friend!