, X As Single, Y As Single)
Shape1.BackColor = RGB(255, 0, 0)
End Sub
Property Get PosX() As Integer ''取得CircleX的值显示给用户
PosX = CircleX
End Property
Property Let PosX(ByVal New_X As Integer) ''把用户写入的值设置到OCX控件内部
If (New_X < Shape1.Width / 2) Or _
(New_X > UserControl.ScaleWidth - Shape1.Width / 2) Then
MsgBox ("圆的X值超出界限了")
Else
CircleX = New_X
Call UserControl_Resize
End If
End Property
Property Get PosY() As Integer
PosY = CircleY
End Property
Property Let PosY(ByVal New_Y As Integer)
If (New_Y < Shape1.Height / 2) Or _
(New_Y > UserControl.ScaleHeight - Shape1.Height / 2) Then
MsgBox ("圆的Y值超出界限了")
Else
CircleY = New_Y
Call UserControl_Resize
End If
End Property
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
CircleX = PropBag.ReadProperty("CircleX", Shape1.Width / 2) ''将用户设置的值读出来
CircleY = PropBag.ReadProperty("CircleY", Shape1.Height / 2) ''同上
Call UserControl_Resize
End Sub
Private Sub UserControl_Resize()
Shape1.Move CircleX, CircleY
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("CircleX", CircleX, Shape1.Width / 2) ''将用户设置的值保存
Call PropBag.WriteProperty("CircleY", CircleY, Shape1.Height / 2) ''同上
End Sub
麻雀虽小,五脏俱全。这个OCX控件完成的任务虽然简单,但是OCX控件的基本操作全都有喔! 有兴趣的朋友不妨一试。