当前位置: 网学 > 编程文档 > VB > 正文

利用VB自制OCX控件

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/16
下载{$ArticleTitle}原创论文样式
, 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控件的基本操作全都有喔! 有兴趣的朋友不妨一试。

网学推荐

免费论文

原创论文

浏览:
设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
湘ICP备09003080号