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的鼠标单击事件,即在弹出的过程代码框架中写�
相关文档：
Option Explicit
Dim FSO As New FileSystemObject
Dim currentFolder As Folder
Dim currentFolderName As String
Dim folderItem, fileItem
Private Sub Form_Load()
currentFolderName = FSO.GetFolder(App.Path) & "\content"
SeachFolder (FSO.GetFolder(currentFolderName))
End Sub ......
VB颜色和RGB色互相转换头疼了我好一段时间,如今找到解决办法了
特别贴出来与大家共享
Type RGB
Red As String
Green As String
Blue As String
End Type
Public Function ColorToRGB(ByVal dwColor As Long) As RGB
Dim clrHex ......
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
&nbs ......
无意中发现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/84802747.html
VB如何获取窗口地址栏内容
就是比如我打开D盘的aaa文件夹，窗口地址栏就是显示D:\aaa，请问我要怎么用VB写程序来获取窗口地址栏的内容？（不是IE的地址栏）
若打开了两个窗口，比如D盘的aaa文件夹和E盘的bbb文件夹下的ccc文件夹都打开的话，点击command1,text1就显示：
......
