ListItems в ListView с пустым текстом

Question

У меня есть старая программа VB6, которая не изменилась через некоторое время, но теперь имеет новое поведение. Я думаю, что общий компонент был обновлен из-под него. Вот подробности.

У меня есть стандартный элемент управления ListView в режиме SmallIcon. Фрагмент кода:

'setup the listview 
With lvwMap 
    .Appearance = ccFlat 
    .BackColor = vbBlack 
    .BorderStyle = ccNone 
    .Font.Name = "Arial" 
    .Font.Bold = True 
    .Font.Size = 9 
    .ForeColor = vbYellow 
    .LabelEdit = lvwManual 
    .LabelWrap = True 
    .OLEDropMode = ccOLEDropManual 
    .PictureAlignment = lvwTopLeft 
    .TextBackground = lvwOpaque 
    .View = lvwSmallIcon 
End With 

Большинство ListItems, добавляемые имеют одновременно SmallIcon и Caption (Текст). TextBackground устанавливается как непрозрачный, то есть текст отображается в прямоугольнике с закрытыми цветами.

Некоторые предметы, хотя могут не иметь подпись или пользователь может ее изменить, чтобы подпись не содержалась. Это было хорошо, только показывая SmallIcon. Но теперь любой ListItem, у которого есть пустое свойство Text, создает довольно широкий прямоугольник с прямоугольником без текста внутри (как если бы пользователь, возможно, использовал пучок пробелов).

Код для добавления ListItem прямо вперед:

Set oLI = lvwMap.ListItems.Add(lvwMap.ListItems.Count + 1, Key:=sKey) 
oLI.SmallIcon = sIcon 
oLI.Text = sCaption 

Я остановил отладчик здесь и thried следующее в немедленном окне:

oLI.Text= "AAAAAAA" 
?oLI.Width 
100.0063 

oLI.Text= "AAAAAA" 
?oLI.Width 
91.99371 

oLI.Text= "AAAAA" 
?oLI.Width 
84.0189 

oLI.Text= "AAAA" 
?oLI.Width 
76.0063 

oLI.Text= "AA" 
?oLI.Width 
60.0189 

oLI.Text= "A" 
?oLI.Width 
52.0063 

oLI.Text= "" 
?oLI.Width 
96.00001 

Как вы можете видеть ListItem. Ширина правильно пересчитывается до тех пор, пока текст не станет пустым, а затем скачет до 96 пикселей.

Кто-нибудь знает какой-либо способ компенсировать это поведение? Некоторое оконное сообщение, которое я могу использовать для настройки пустого wdith по умолчанию? Любая информация об изменении поведения ListView также может быть полезна.

Answer 1

Mscomctl.ocx был updated in April, чтобы устранить уязвимость безопасности в IE - и я предполагаю, что это происходит, когда его поведение изменилось, поскольку у меня есть машина VM с более старой версией файла (с 2004 года), которая не ведет себя таким образом, и я уверен, что это был last release до недавнего.

Что касается этого: ну, я думаю, это зависит от того, что это такое, что вызывает у вас проблему. Если это связано с тем, что вы используете свойство ширины элемента, вы можете просто просто умножить его на булевскую оценку, например: iWidth = oLi.Width * Abs(oLi.Text <> ""). Но если это внешний вид, который вам не нравится, единственное, что я могу придумать, - это смягчить эффект, добавив одно пространство, когда/если пользователь устанавливает его в пустую. С точки зрения использования, новое поведение, вероятно, лучше, если разрешено редактирование меток, так как оно обеспечивает более широкую область, в которую нужно щелкнуть.