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文本加密 特别设计到中文加密 让很多人费尽周折,经常会碰到解密中文出现乱码的情况
下面这篇文章将对此做了说明
代码也在文章里面包括
计算机世界2000年第36期
实现中文文本的加密方法
武汉交通科技大学计算机科学与工程系 吴业福
本文介绍了在VB6中实现中、英文文本加� ......
无意中发现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 ......
http://zhidao.baidu.com/question/81532606.html
VB 读指定行
悬赏分：10 - 解决时间：2009-1-20 11:41
vb中如何读取指定行的内容，窗体上有两个标签，文件在C:\A.TXT,四个按钮，单击第一个，读文件的第一行到标签一，第二行到标签二；单击第二个按钮，第三行到标签一，第四行到标签二；以此类推，谢谢
提问者： im ......
VB设计动画时钟
程序名：Sec-Time.vbp
程序类别：完整的VB程序
功能：显示一个动画时钟，该时针随着每一秒而动态变化。
程序说明
1．如何画时钟表盘上的所有直线元素？
用Load命令建立原始Line控制的14个拷贝（因为表盘有12个点和时、分、秒共15个Line），该控制数组每一个实例的端点坐标属性设置为每条线在时 ......
