VB使用ActiveX控件实例和步聚
目的掌握一个简单的VB程序的建立、编辑、调试、运行和保存的方法。
操作步骤 ⑴进入VB环境，新建工程。方法是：如果出现“新建工程”对话框，则选择“标准.EXE”并点击[打开]按纽；或者直接点击菜单[文件]-[新建工程]。都会出现一个名为“Form1”的新窗体。
⑵从标准控件工具栏中向窗体加入标签(Label1和Label2)、两个命令按纽(Command1和Command2)。
⑶由于标准控件工具仅提供20个内部控件，实际上vb程序中还可加入ActiveX控件和可插入对象等。为此本次实验请试用以下方法加入“滑块”控件，加入前必须使用菜单[工程]-[部件]，然后从弹出的列表框中勾选“Microsoft Windows Common Control 6.0 ”并点击[确定]按纽，然后就可以从控件工具栏中加入一个名为“Slider”的滑块控件了。
⑷设置窗体的背景图像、命令按纽的Picture属性和两个标签上的文字和字体后等属性： 控件名 属性和属性值 Form1 Caption=”初识VB世界”Picture=” BJtu.bmp” Label1 Caption=”新年快乐” Font 隶书 36 黑色 Left=400 BackStyle 透明 Label2 Caption=”新年快乐” Font 隶书 36 白色BackStyle 透明 Command1 将Caption清除 Picture=” HANDAR_Left.GIF” Style=1.Graphical Command2 将Caption清除 Picture=” HANDAR_Right.GIF” Style=1.Graphical Slider1 Max=7000 Min=500 LargeChange=50
⑸各控件属性设置完成后效果如下：
⑹编写响应几个事件的代码，目的是运行时牟控制标签文字的左右移动。共4个要响应的事件： ① 窗体的载入事件(Sub Form_Load):在窗体空白处双击鼠标左键,即可弹出该事件的过程代码的框架,即有: Private Sub Form_Load() End Sub 请在其中写入两条语句(功能是通过设置标签的Top和Left属性,使两个标签文字呈立体错位效果) Label2.Top = Label1.Top - 50 Label2.Left = Label1.Left - 50 ② 双击左手指所在的按纽Command1的鼠标单击事件(Sub Command1_Click()):在该按纽上双击鼠标,即可弹出该项事件的过程代码的框架,即有: Private Sub Command1_Click() End Sub 请在其中写入两条语句,功能是让两个标签的左边界同时减少50,使其左移. Label1.Move Label1.Left - 50 Label2.Move Label2.Left - 50 ③ 用同样在方法编写右手指所在的按纽Command2的鼠标单击事件,即在弹出的过程代码框架中写�
相关文档：
VB的代码存储在模块中。在VB中提供了三种类型的模块：窗体模块、标准模块和类模块。
简单的应用程序可以只有一个窗体，所用的程序都驻留在窗体模块中，而当应用程序庞大复杂时，就要另外附加窗体。最终可能有几个窗体中有一些共同都要执行的代码，为了在两个窗体中不产生重复代码，可创建一个独立的模块，用它实现代� ......
无意中发现VB For循环的一个特点：在循环体中，企图改变循环终止变量使之提前退出循环是徒劳的。
Private Sub Form_Load()
Dim s(0 To 4) As String
Dim N As Integer, i As Integer
s(0) = "测试1"
s(1) = "测试2"
s(2) = "测试3"
s(3) = "测试4"
s(4) = "测试5 ......
'添加个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 ......
http://hi.baidu.com/qwestw/blog/item/a8b41663eb7fca690d33fa46.html
能记录到中文，缺点是不能记录到Ctrl，shift，alt，capslock，home，del，pageUP，pageDown等件的按下状态。
vb6代码如下：
Private Sub Form_Load()
WM_HXWDLLWX_HOOKKEY = RegisterWindowMessage("WM_HXWDLLWX_HOOKKEY")
PrevWndProc = SetWind ......
VB设计动画时钟
程序名：Sec-Time.vbp
程序类别：完整的VB程序
功能：显示一个动画时钟，该时针随着每一秒而动态变化。
程序说明
1．如何画时钟表盘上的所有直线元素？
用Load命令建立原始Line控制的14个拷贝（因为表盘有12个点和时、分、秒共15个Line），该控制数组每一个实例的端点坐标属性设置为每条线在时 ......
