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


         

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


BackStyle = UserControl.BackStyle

End Property

Public Property Let BackStyle(ByVal New_BackStyle As _

BackgroundStyle)

UserControl.BackStyle() = New_BackStyle

PropertyChanged "BackStyle"

End Property

Public Property Get Appearance () As Integer

Appearance = UserControl.Appearance

End Property

Private Sub UserControl_DblClick()

RaiseEvent DblClick

End Sub

Private Sub UserControl_Click()

RaiseEvent Click

End Sub

Public Property Get Enabled() As Boolean

Enabled = UserControl.Enabled

End Property

Public Property Let Enabled(ByVal New_Enabled As Boolean)

UserControl.Enabled() = New_Enabled

PropertyChanged "Enabled"

End Property

Public Property Get ForeColor() As OLE_COLOR

ForeColor = UserControl.ForeColor

End Property

Public Property Let ForeColor(ByVal New_ForeColor As OLE_COLOR)

UserControl.ForeColor() = New ForeColor

PropertyChanged "ForeColor"

End Property

Public Property Get hDC() As Long

hDC = UserControl.hDC

End Property

Public Property Get hWnd() As Long

hWnd = UserControl.hWnd

End Property

Private Sub UserControl_KeyUp(KeyCode As Integer, Shift As Integer)

RaiseEvent KeyUp(KeyCode, Shift)

End Sub

Private Sub UserControl_Keypress(KeyAscii As Integer)

RaiseEvent Keypress(KeyAscii)

End Sub

Private Sub UserControl_KeyDown(KeyCode As Integer, Shift As Integer)

RaiseEvent KeyDown(KeyCode, Shift)

End Sub

Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, _

X As Single, Y As Single)

RaiseEvent MouseUp(Button, Shift, X, Y)

End Sub

Public Property Get MousePointer() As Integer

MousePointer = UserControl.MousePointer

End Property

Public Property Let MousePointer(ByVal New_MousePointer As Integer)

UserControl.MousePointer() = New_MousePointer

PropertyChanged "MousePointer"

End Property

Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer,     _




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