VB阶段性代码片段总结

#前言
已经学习过了VB这门语言，也已经开始了 C/S 的学习，虽然说这样的总结应该放在 VB 项目后，但是这个时候的总结是另外的一种复习，重温了 VB 的经典片段，回头望了一下自己曾经走过的路
#声明变量
Option Explicit 语句在模块级别中使用，强制显示声明模块中的所有变量。
Dim 用来定义变量，dimension
Sub说明一段代码是个过程（无返回值），Sub subroutine(子程序)
function 这是个函数（有可能有返回值，也可能没有返回值）
Private /public 说明这个过程或者函数可声明级别
Private sub 定义的是模块级的函数或过程，只能在本模块中使用
Public sub定义的是全局的函数或过程，可以在任何模块中使用
#驱动器列表框、目录列表框和文件列表框同步
Private Sub Drive1.Change（）
Dir1…Path = Dirve1.Drive
End Sub
Private Sub Dir1.Change()
File1.Path = Dir1.Path
End Sub
#On Error GoTo Line
line 表示要跳转到的行号，它可以是任何数值，当程序发生错误时用，OnError GoTo 语句可以跳过错误程序直接到 Line 后面的语句继续执行
#与flash交互
1、在flash里面找到对应的按钮，在按钮上填写代码（这里有 as 2.0和 as 3.0的区别）我用的是 as 2.0可以直接按 F9 编写代码，也可以右键按钮点击动作
代码如下

	On release {
Fscommand (“1”);
}

这个意思是 flash 里面发送“1”这个命令给 VB
接下来把 flash 导出为 swf 这个格式

2、将 flash 插入进 VB 中
代码如下

ShockwaveFlash1.Movie = App.Path & "\6.swf"
    ShockwaveFlash1.Playing = True

在这里建议大家去用相对路径，因为绝对路径到其他的电脑就不能用了，相对路径方便一点

3、既然 flash 发送命令给 VB 了那么 VB 也要去接受这个命令才可以实现
所以代码如下

Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String
 If command = "1" Then         '如果command = “1”则 msgbox输出111
       Msgbox”111
    End If
End Sub

#VB 循环
每一门语言中都会涉及到循环的内容，只是可能代码的编写不同，这是我总结的 VB 中一些循环的小实例VB循环

#VB 逻辑关系
NOT、AND、OR、Xor、Eqv、Imp这些在 VB中是有很多区别的，有的地方对着个不理解的话，是不很难解释清楚的，很庆幸我找到了这个问题，可以仔细看一下这个内容VB中逻辑关系小结