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的鼠标单击事件,即在弹出的过程代码框架中写入两条语句: Label1.Move Label1.Left + 50 Label2.Move Label2.Left + 50 ④ 滑块滚动事件(Sub Slider1_Scroll()):在滑块上双击鼠标,弹出事件框架: Private Sub Slider1_Scroll() End Sub 在其中写入两条语句,功能是当滑块滚动时,用滑块的当前值取代标签1的Left,而标签2的Left永远比标签1少50. Label1.Left = Slider1.Value Label2.Left = Label1.Left - 50 至此,本程序可以试运行了。方法是既可以用菜单[运行]-[启动]来运行，也可以直接用常用工具栏中的三角形图标 来运行。

⑺保存vb程序：保存调试正确的vb程序，实际上要保存几个文件：一个或多个窗体文件(.frm)、一个工程文件(.vbp)以及自动生成的二进制文件(.frx)等。所以保存文件时，应先创建一个文件夹，然后点击菜单中的[文件]-[保存工程]，系统自动会有两次保存文件的过程： ①保存窗体文件，默认文件名是“Form1.frm”，请改名为”Sy1.frm”，再保存； ②保存工程文件，默认文件名是“工程1.vbp”，请改名为“Sy1.vbp”，再保存。

 ⑻生成在Windows下直接运行在EXE文件，方法是：点击菜单[文件]的下拉菜单中会出现一个”生成Sy1.exe(K)”子菜单项，在弹出的“生成工程”的文件名栏中改名(如“vbsy1.exe”)或直接确认即可。