VB笔记

1. 代码换行

   在行尾加上 空格+下划线 —— " _"

2. Switch语句

   Select Case <变量名>

   case <变量值>

   进行的事件...

    

   case <变量值>

   进行的事件...

    

   case <变量值>

   进行的事件...

    

   case <变量值>

   进行的事件...

    

   End Select //过程结束

3. 求余和取整

   C语言     VB

   A % B     A Mod B

   A / B      Int(A/B)

4. 文件和文件夹是否存在

   在VB中编程中，经常需要判断一个文件是否存在，以便执行相应的操作，这可用下列语句进行判断

    

   Dir([pathname],[Attributes as VbFileAttribute=vbNormal]) As String

   解释： pathname:文件的绝对路径；

   Attributes：文件的属性。

   "[]"内为可选项。dir(file)=""表示文件不存在，dir(file)<>""表示文件存在。

   例如判断c:wpswinwps.exe是否存在，如存在，就调用它，可用下列语句：

   if dir("c:wpswinwps.exe")<>"" then

   shell "c:wpswinwps.exe"

   end if

    

   但如果判断的文件是隐藏文件,上面的语句则无法判断出来,这时就需要加上后面的可选项目,例如

   判断C盘根目录下是否有隐藏文件command.com，就用下面的源代码：

   if dir("c:command.com,vbhidden")<>"" then

   msgbox"Found c:command.com"

   end if

    

   判断文件夹是否存在，可用下列语句：

   dir(文件夹路径, vbDirectory) <>""

   例如，要判断文件夹c:aaa是否正在，则代码如下：

   if Dir("c:aaa", vbDirectory) <>"" then

   　msgbox"文件夹：c:aaa 存在！"

   end if