[已解决]listview 单击后的光标定位问题

kippon2000

listview 单击后的光标想定位在combobox的倒数第2位上，但只能瞬间实现。能否作到永远定位在倒数第2位上。
ComboBox1.SetFocus即使写了2次也没效果。
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    strCondition = Item.Text & " = ''"
    ComboBox1.SetFocus
    ComboBox1.Value = strCondition
    ComboBox1.SelStart = Len(ComboBox1.Value) - 1
    ComboBox1.SetFocus
End Sub

Book1.rar (9.31 KB, 下载次数: 33)

2013-2-10 21:41 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

extyg

2013-2-10 22:01

Private Sub ListView1_Click()
    strCondition = ListView1.SelectedItem.Text & " = ''"
    With ComboBox1
        .SetFocus
        .Value = strCondition
        .SelStart = Len(ComboBox1.Value) - 1
    End With
End Sub

跳转到最佳答案楼层

extyg

Private Sub ListView1_Click()
    strCondition = ListView1.SelectedItem.Text & " = ''"
    With ComboBox1
        .SetFocus
        .Value = strCondition
        .SelStart = Len(ComboBox1.Value) - 1
    End With
End Sub

adders

可以在ComboBox上加一个MouseDown触发事件,同时精简一下ListView1_ItemClick的代码

1. Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   
2.    If Len(ComboBox1.Value) > 0 Then ComboBox1.SelStart = Len(ComboBox1.Value) - 1
   
3. End Sub
   
4. 
   
5. Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
   
6.     strCondition = Item.Text & " = ''"
   
7.     ComboBox1.Value = strCondition
   
8. End Sub

复制代码

kippon2000

谢谢各位，新年快乐。