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

添加的大多数列表项目都同时有一个小项和标题( 文本) 。文本背景设置为不透明, 意思是文本以附加的彩色矩形显示。

虽然有些项目可能没有提供字幕, 或者用户可以更改标题, 以至于没有字幕。这曾经是好的, 只有 SmallIcon 显示。但是现在任何 ListItem 中含有空文本属性的列表项目都提供了相当宽的附加矩形, 里面没有文字( 比如一个用户也许在一堆空格中键入了密钥 ) 。

添加列表项目的代码是直向前进的 :

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

我在这里拦住了调试器,在紧靠的窗口里抽打以下内容:

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

您可以看到 ListTroject 。错误正确重新计算, 直到文本变成空, 然后跳到96 像素。

有谁知道该行为有什么补偿方法吗? 一些窗口信息, 我可以用它来配置默认的空 wdith 。任何关于更改 ListView 行为的信息也会有所帮助。

Answer 1

Mscomctl.ocx是4月更新的 < a > 来弥补IE安全脆弱性的 < a href="http://technet.microsoft.com/ en-us/security/bulletin/ms12-027" rel="nofollow" < a > 。我猜这是当它的行为改变的时候,因为我有一个VM机器,旧版本的文件(2004年起)没有这样做,而且我相当肯定,那就是最后一次发布 < a> 之前的版本 < a>。

至于该如何处理: 好吧, 我猜测这取决于它是什么, 它会给您造成一个问题。如果它是因为您正在使用项目宽度属性, 您可以很容易地用布尔值评价来乘以它, 比如 : iWidth = oLi. Width * Abs (oLi. Text< & gt; ") 。但如果它是您不喜欢的外观, 我唯一能想到的就是通过在用户将其设置为空时/ 如果用户将其设置为空时添加一个空间来减轻效果。从使用角度看, 如果启用标签编辑( oLi. Text< & gt; " ) <, < ”) < / code >, 因为它提供了更宽的点击区域。

友情链接