如何使用VB制作OCX控件
如今OCX控件在编程中已占领了很重要的地位,我们可以利用OCX控件完成一些相当复杂的编程操作。同时OCX控件还有利于主程序的简单化、功能的重用、隐藏程序实现细节、便于升级、传播方便等优点。现在我们可以利用VB 5.0方便地制作出自己的OCX控件供我们在编程中使用，同时还可以把它送给你周围喜欢编程的朋友!下面列出制作OCX控件的步骤：
一：新建OCX
打开VB 5.0选择新建工程在对话框中选择ActiveX控件，打开后会见一空的文档，这就是OCX控件的初始界面。想看一看空OCX控件的效果吗?选择“添加工程”选中标准EXE，这时你就可以像调用其它控件一样在左边的工具栏里选择刚才新建的OCX控件图标，放在标准的EXE文档中看一看有什么效果!(什么也没有!)自然因为刚才的OCX文档是空的嘛。
二：创建界面
一般我们用VB创建OCX控件都是在我们的控件里添加其它的控件来组合成一个完整的控件（也可以让它只完成某种算法），比如：你可以在上面添加一按钮、编辑框，这时你再用第一部的方法看一看效果，是不是控件上多了一个按钮和一个编辑框。
三：OCX属性
一个OCX控件有许多的属性，比如控件背景是否透明（BackStyle），控件是否可以获得焦点(CanGetFocus)等。这些属性都可以在控件的“属性框”中找到。
四：添加事件
一个控件有很多事件，如：Click、MouseDown、MouseUp、MouseMove等。要触发这些事件都需要你加入代码。在控件的声明处加入Public Event Click()就表明该控件有一“Click”事件。自己编写的控件有什么事件就在声明处加几条事件。关于触发事件是使用“RaiseEvent”语句来完成的，如：RaiseEvent事件名（参数）。
五：用户属性
一个控件应有许多属性供用户设置，如：控件的背景色、控件要显示的图形等。它们通常用Property Get和Property Let两条语句来完成。前者表示给用户显示一个属性的值，后者表示用户设置一个属性的值。
六：保存属性和读取属性
当属性被用户更改后需要将该属性值保存，以便控件运行时读取更改后的属性值。它们分别用ReadProperty和WriteProperty两种方法来完成。前者表示读取一个属性值，后者表示写入一个属性值。
好了，一个简单的OCX控件制作方法大概就需要以上几步就可完成。有兴趣的朋友不妨一试。
相关文档：
VB文本加密 特别设计到中文加密 让很多人费尽周折,经常会碰到解密中文出现乱码的情况
下面这篇文章将对此做了说明
代码也在文章里面包括
计算机世界2000年第36期
实现中文文本的加密方法
武汉交通科技大学计算机科学与工程系 吴业福
本文介绍了在VB6中实现中、英文文本加� ......
'添加个picture1和command1
Option Explicit
Dim lngCenter As Long
Dim lngMax As Long
Dim lngPad&
Dim PCurrent As POINT, PLast As POINT
Private Type POINT
x As Long
y As Long
End Type
Private Sub Form_Load()
lngCenter = (Picture1.Top + Picture1.Height) / 2
lngMax = Pictu ......
VB设计动画时钟
程序名：Sec-Time.vbp
程序类别：完整的VB程序
功能：显示一个动画时钟，该时针随着每一秒而动态变化。
程序说明
1．如何画时钟表盘上的所有直线元素？
用Load命令建立原始Line控制的14个拷贝（因为表盘有12个点和时、分、秒共15个Line），该控制数组每一个实例的端点坐标属性设置为每条线在时 ......
Private Sub Command1_Click()
Dim dso As New XMLDSOControl
Dim doc As IXMLDOMDocument
Set doc = dso.XMLDocument
Dim rel As IXMLDOMNodeList
Set x = CreateObject("Microsoft.XMLHTTP")
x.Open "GET", "http://127.0.0.1:8080/emrb/Mrbmodel?action=dis&u ......
Option Explicit
Private Type UNICODE_STRING
Length As Integer
MaximumLength As Integer
Buffer As Long
End Type
Private Type OBJECT_ATTRIBUTES
Length As Long
RootDirectory As Long
......
