topdogs的专栏

直接Rnd（）将产生0-1之间得随机数（大于等于0且小于1），如果需要产生一个大于等于M，小于等于N之间的随机数，应写成:rnd()*(n-m+1)+m但是这样会使用同一个种子，会产生重复的随机数。即每一次随机的第一个数都是相同的。所以在Rnd（）之前需要加入  Randomize()  这个函数，用以初始化随机数表。

 通过声明一个 system.threading.thread 类型的变量，并使用 addressof 语句调用其构造函数，就可以创建一个新线程。如：   dim mythread as new system.threading.thread (addressof mysub)其中，mysub 是一个自定义过程，他将在新线程中被执行。使用 start 方法启动线程的执行：    mythread.

使用  shell 函数可以调用cmd ，在被调用的程序后面空一格，输入“/c” 再空一格，输入所要执行的命令。例如：  shell("c:/windows/system32/cmd.exe /c del c:/a.txt")在写调用路径时候，可以填写绝对路径（不提倡），也可以写环境变量中得路径，此时，需要 Environ 函数用来返回与操作系统环境变量关联的字符串，所以上面得例子可以写成。she

 用户希望能够从form1 与单独原来的 Form2 通信，又避免重复使用 New 产生多个窗体。完成这项任务得一种方法就是在 Form1 中创建一个公用变量，代码如下： Public f2 as new Form2 Private Sub Form1_load~~~       f2.show()       f2.backcolor=color.blueEnd Sub-------------

    Sub a(ByVal aa As String) aa为欲遍历的目录        Dim d_1, d_2, d_3,d_4  As New ArrayList 定义4个数组,其中d_3为文件夹数组,d_4为所有文件数组        d_1.AddRange(System.IO.Directory.GetDirectories(aa))        d_3.AddRange(d