- 1 Access树控件 开发历程
- 2 微软树控件的缺点
- 2.1 版本兼容出错
- 2.2 不支持64位的Office
- 3 Access树控件的优点
- 4 Access扩展控件库--版本选择
- 5 Access扩展控件库--树控件的创建和添加节点
- 6 Access扩展控件库--树控件节点图标
- 7 Access扩展控件库--树控件常用属性
- 7.1 Appearance 属性(ActiveX 控件)
- 7.2 BackColor 属性(ActiveX 控件)
- 7.3 BackPicture 属性(ActiveX 控件)
- 7.4 BorderStyle 属性(ActiveX 控件)
- 7.5 Checkboxes 属性
- 7.6 Container 属性(ActiveX 控件)
- 7.7 DropHighlight 属性(ListView 和 TreeView 控件)
- 7.8 EditBox 属性(ActiveX 控件)
- 7.9 Enabled 属性(ActiveX 控件)
- 7.10 Font 属性(ActiveX 控件)
- 7.11 FullRowSelect 属性(ActiveX 控件)
- 7.12 Height 属性(ActiveX 控件)
- 7.13 HideSelection 属性(ActiveX 控件)
- 7.14 HotTracking 属性
- 7.15 Indentation 属性
- 7.16 ItemHeight 属性(ActiveX 控件)
- 7.17 LabelEdit 属性
- 7.18 Left 属性(ActiveX 控件)
- 7.19 LineStyle 属性(TreeView 控件)
- 7.20 MaxNodeCount 属性(ActiveX 控件)
- 7.21 Nodes 属性
- 7.22 Object 属性(ActiveX 控件)
- 7.23 OleDragMode 属性(ActiveX 控件)
- 7.24 OleDropMode 属性(ActiveX 控件)
- 7.25 PathSeparator 属性(TreeView控件)
- 7.26 Parent 属性(Node 对象)
- 7.27 ScaleMode 属性(ActiveX 控件)
- 7.28 Scroll 属性
- 7.29 SelectedBackColor 属性(ActiveX 控件)
- 7.30 SelectedForeColor 属性(ActiveX 控件)
- 7.31 SelectedItem 属性(ActiveX 控件)
- 7.32 SelectedNoFocusBackColor 属性(ActiveX 控件)
- 7.33 SelectedNoFocusForeColor 属性(ActiveX 控件)
- 7.34 SingleSel 属性
- 7.35 Style 属性(TreeView 控件)
- 7.36 Tag 属性(ActiveX 控件)
- 7.37 TextColor 属性(ActiveX 控件)
- 7.38 ToolTips 属性(ActiveX 控件)
- 7.39 Top 属性(ActiveX 控件)
- 7.40 Visible 属性(ActiveX 控件)
- 7.41 Width 属性(ActiveX 控件)
- 8 Access扩展控件库--树控件常用方法
- 8.1 AboutBox 方法
- 8.2 AddImage 方法
- 8.3 AddImageGroup 方法
- 8.4 CollapseAllNode 方法
- 8.5 Create 方法
- 8.6 Echo 方法
- 8.7 ExpandAllNode 方法
- 8.8 GetVisibleCount 方法
- 8.9 HitTest 方法(ListView 和 TreeView 控件)
- 8.10 Move 方法
- 8.11 Refresh 方法
- 8.12 SetFocus 方法
- 9 Access扩展控件库--树控件常用事件
- 9.1 AfterLabelEdit 事件(ListView 和 TreeView 控件)
- 9.2 BeforeLabelEdit 事件(ListView 和 TreeView 控件)
- 9.3 Click 事件
- 9.4 Collapse 事件(TreeView 控件)
- 9.5 DblClick 事件
- 9.6 Expand 事件(TreeView 控件)
- 9.7 GotFocus 事件
- 9.8 KeyDown 事件
- 9.9 KeyPress 事件
- 9.10 KeyUp 事件
- 9.11 LostFocus 事件
- 9.12 MouseDown 事件
- 9.13 MouseMove 事件
- 9.14 MouseUp 事件
- 9.15 NodeCheck 事件
- 9.16 NodeClick 事件
- 9.17 OLECompleteDrag 事件
- 9.18 OLEDragDrop 事件
- 9.19 OLEDragOver 事件
- 9.20 OLEGiveFeedback 事件
- 9.21 OLESetData 事件
- 9.22 OLEStartDrag 事件
- 10 Access树控件注意问题
OLEDragOver 事件
- 2017-07-12 17:47:20
- zstmtony
- 3298
- 最后编辑:zstmtony 于 2017-07-13 15:30:02
OLEDragOver事件
当一个组件被拖动到另一个组件时发生。
语法
Private Sub object_OLEDragOver(data As DataObject,effect As Long,button As Integer,shift As Integer,x As Single,y As Single,state As Integer)
OLEDragOver 事件的语法包含下面部分:
部分 |
描述 |
object |
对象表达式,其值是 “应用于”列表中的一个对象。 |
data |
包含源将提供的格式的DataObject对象,另外还可能包含这些格式的数据。如果DataObject中没有数据,则在控件调用GetData方法时提供数据。该SetData的和清除方法不能用在这里。 |
effect |
由源对象最初设置的长整型,标识其支持的所有效果。此参数必须在此事件期间由目标组件正确设置。效果的值通过逻辑确定或将所有活动效果组合在一起(如“设置”中所列)。目标组件应检查这些影响和其他参数以确定哪些动作适合于此,然后将此参数设置为允许的效果之一(由源指定),以指定如果用户删除选择将执行哪些操作在组件上。可能的值列在“设置”中。 |
button |
当按下鼠标按钮的状态时,该整数用作位字段。左按钮为位0,右按钮为位1,中间按钮为位2.这些位分别对应于值1,2和4。它表示鼠标按钮的状态; 一些,全部,或这三个位都不能设置,表示某些,全部,或没有一个按钮被按下。 |
shift |
当按下SHIFT,CTRL和ALT键的状态时,它作为一个位字段起作用的整数。的SHIFT键为0位,所述CTRL键是位1,而ALT键是位2。这些位对应于值1,2,和4。的移位参数指示这些键的状态; 一些,全部或不能设置任何位,指示某些,全部或没有按键被按下。例如,如果CTRL和ALT键均被按下,则shift的值将为6。 |
x,y |
一个数字,用于指定目标窗体或控件中鼠标指针的当前水平(x)和垂直(y)位置。的X和ÿ值总是在由规定的坐标系统来表示ScaleHeight,ScaleWidth,ScaleLeft和ScaleTop所述对象的特性。 |
state |
一个对应于控件相对于目标形式或控件拖动的过渡状态的整数。可能的值列在“设置”中。 |
effect 的设置是:
不变 | 值 | 描述 |
---|---|---|
cc DropEffectNone | 0 | 丢弃目标不能接受数据。 |
ccDropEffectCopy | 1 | 删除导致从源到目标的数据副本。拖动操作不改变原始数据。 |
cc DropEffectMove | 2 | 拖放导致数据从拖动源移动到丢弃源。拖动源应该在移动后从其自身中删除数据。 |
cc DropEffectScroll | -2147483648 (&H80000000) |
滚动正在目标组件中发生或即将发生。该值与其他值一起使用。注意 仅当您在目标组件中执行自己的滚动时才使用。 |
state的设置是:
不变 | 值 | 描述 |
---|---|---|
ccEnter | 0 | 源组件正在目标范围内拖动。 |
ccLeave | 1 | 源组件被拖出目标范围。 |
ccOver | 2 | 源组件已从目标中的一个位置移动到另一个位置。 |
说明
注意 如果state参数为vbLeave,表示鼠标指针已经离开目标,则x和y参数将包含零。
源组件应始终从effect 参数中屏蔽值,以确保与COM组件的未来实现的兼容性。目前,effect 参数中只有32位中只有3位被使用。然而,在将来版本的Visual Basic中,可以使用这些其他位。因此,为了防止将来的问题,拖曳源和放置目标应在进行任何比较之前适当地屏蔽这些值。
例如,源组件不应将effect 与例如mskDropEffectCopy进行比较,例如:
如果Effect = mskDropEffectCopy ...
相反,源组件应掩盖正在寻找的值或值,如下所示:
如果Effect和mskDropEffectCopy = mskDropEffectCopy ...
要么
If(Effect And mskDropEffectCopy)...
这允许在将来版本的Visual Basic中定义新的拖放效果,同时保留与现有代码的向后兼容性。
大多数组件支持手动OLE拖放事件,一些支持自动OLE拖放事件。