Visual Basic 6. Руководство разработчика


         

Скелет элемента управления ActiveX - часть 3


X As Single, Y As Single)

RaiseEvent MouseMove(Button, Shift, X, Y)

End Sub

Private Sub UserControl_OLEStartDrag(Data As Data0bject, _

AllowedEffects As Long)

RaiseEvent OLEStartDrag(Data, AllowedEffects)

End Sub

Private Sub UserControl_OLESetData(Data As DataObject, _

DataFormat As Integer)

RaiseEvent OLESetData(Data, DataFormat)

End Sub

Private Sub UserControl_OLEGiveFeedback(Effect As Long, _

DefaultCursors As Boolean)

RaiseEvent OLEGiveFeedback(Effect, DefaultCursors)

End Sub

Public Property Get OLEDropMode() As Integer

OLEDropMode = UserControl.OLEDropMode

End Property

Public Property Let OLEDropMode(ByVal New_OLEDropMode As Integer)

UserControl.OLEDropMode() = New_OLEDropMode

PropertyChanged "OLEDropMode"

End Property

Private Sub UserControl_OLEDragOver(Data As DataObject, _

Effect As Long, Button As Integer, Shift As Integer, _

X As Single, Y As Single, State As Integer)

RaiseEvent OLEDragOver(Data, Effect, Button, Shift, X, Y, State)

End Sub

Private Sub UserControl_OLEDragDrop(Data As Data0b]ect, Effect As    Long, _

Button As Integer, Shift As Integer, X As Single, _

Y As Single)

RaiseEvent OLEDragDrop(Data, Effect, Button, Shift, X, Y)

End Sub

Public Sub OLEDrag()

UserControl.OLEDrag

End Sub

Public Property Get Picture() As Picture

Set Picture = UserControl.Picture

End Property

Public Property Set Picture(ByVal New Picture As     Picture)

Set UserControl.Picture = New_Picture

PropertyChanged "Picture"

End Property

Private Sub UserControl_Resize ()

RaiseEvent Resize

End Sub

Public Property Get Caption() As String

Caption = m_Caption

End Property

Public Property Let Caption(ByVal New_Caption As     String)

m_Caption = New Caption

PropertyChanged "Caption"

End Property

Public Property Get Effect() As Integer

Effect = m_Effect

End Property

Public Property Let Effect(ByVal New_Effect As Integer)




Содержание  Назад  Вперед