http://www.csdn.net/expert/topic/382/382932.shtm看看这贴吧.
解决方案 »
- text(自动换行且有竖直滚动条) 负号自己占了一行
- w3k(网络3K)请进
- 在VC中调用vb编写的dll,编译的时候出现这样的warning,请问是由什么原因引起的?
- 有没有并口通讯控件!急急急!!!100分
- 第4个100分,祝各位万事如意,事事享通.
- 高手请进!如何备份数据库!(请付原代码,在线等待)
- 紧急求救!如何打印picturebox中的图象和控件。
- 最最简单的一个问题,如何把一个文本文件读入到一个变量中去?
- ■■如何做可媲美Realplayer,WindowsMediaPlayer的Internet收音机(黄金网络收音机),N多中文电台,大小仅292K???
- VB如何在ADO中访问带密码的ACCESS数据库?
- 如何获得其他窗口控件中的内容? 急!!!
- 怎么学习API才最有效?
我认为应该在DragOver时触发Item Select
然后在DragDrop事件中再相应做些处理
但如何在DragOver时触发Item Select?
If mbindrag = True Then
Set tvFile.DropHighlight = tvFile.HitTest(x, y)
End If
End Sub
Set tvFile.DropHighlight = tvFile.HitTest(x, y)
If Not tvFile.DropHighlight Is Nothing Then
tvFile.SelectedItem = tvFile.HitTest(x, y)
Set modragNode = tvFile.SelectedItem ' Set the item being dragged.
End If
Set tvFile.DropHighlight = Nothing
End SubPrivate Sub tvfile_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
mbindrag = True
tvFile.DragIcon = tvFile.SelectedItem.CreateDragImage
tvFile.Drag vbBeginDrag ' Drag operation.
End If
End Sub