看看:
Dim iC As Integer
Dim B As BooleanPrivate Sub Form_Load()
Dim itmX As ListItem For i = 1 To 6
Set itmX = ListView1.ListItems.Add(, , "NotMe" + Str(i)) ' Author.
Next i
End SubPrivate Sub ListView1_AfterLabelEdit(Cancel As Integer, NewString As String)
If Len(NewString) < 2 Then
MsgBox ("False")
B = False
Else
iC = -1
B = True
End If
End SubPrivate Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
If ((iC > 0) And (Not B)) Then
B = True
Item.Selected = False
ListView1.ListItems(iC).Selected = True
ListView1.StartLabelEdit
Else
iC = ListView1.SelectedItem.Index
End If
End Sub利用了两个变量判断是否需要修改,还需要改进,你可以看一下思路。
Dim iC As Integer
Dim B As BooleanPrivate Sub Form_Load()
Dim itmX As ListItem For i = 1 To 6
Set itmX = ListView1.ListItems.Add(, , "NotMe" + Str(i)) ' Author.
Next i
End SubPrivate Sub ListView1_AfterLabelEdit(Cancel As Integer, NewString As String)
If Len(NewString) < 2 Then
MsgBox ("False")
B = False
Else
iC = -1
B = True
End If
End SubPrivate Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
If ((iC > 0) And (Not B)) Then
B = True
Item.Selected = False
ListView1.ListItems(iC).Selected = True
ListView1.StartLabelEdit
Else
iC = ListView1.SelectedItem.Index
End If
End Sub利用了两个变量判断是否需要修改,还需要改进,你可以看一下思路。
解决方案 »
- 我想上传一个头像。抓到包了。用inet怎么post都不成。各路高手帮忙看看。
- 发个0分帖
- vb的edit如何不允许输入任何字符以及不允许鼠标点击,如果enable=false的话,字就变灰了,老板不喜欢
- 数据合并问题,如何判断一个来源档是空字节数的,不给予操作接下来合并其他的来源档呢?
- 一个简单的数据库连接
- 如何学习一门语言,方法是什么?
- 急问mciSendString中第一个函数的命令!
- 八进制前缀"&0",&后的是数字零还是字母O呀?
- 请大家帮忙、帮忙!
- 我已经学习了vb,下一步是学习delphi还是java???
- vb6如何解决窗体控件数极限
- 在VB程序中,调用一个外部可执行程序,如何使它显示在最前端?
我是过了,效果不好。
1,我需要在该窗体上的其他控件的click过程中添加相关代码,复杂了点。
2,编辑后按Enter键,达不到先前的效果。
我试了一下用Timer控件,能够实现要求,但程序仍要处理click事件。
我想有没有办法可以让AfterLabelEdit完成后取消对click事件的处理?