删除带子文件夹和文件的文件夹


Sub RecurseTree(CurrPath As String)'currpath问文件夹路径
    Dim sFileName As String, newPath As String, sPath As String



阅读全文……

使用PSET画一个圆


'一个窗体，一个PictureBox 




阅读全文……

添加 timer和label   各一个. 

添加如下代码： 
Private Sub Form_Load() 
Label1.Caption = Format(Now, "dd号hh点mm分ss秒") 



阅读全文……

从程序中生成Exe文件
　　这篇文章要讨论的是在一个VB程序中如何产生出另一个Exe文件。
　　要实现这个目的，必须符合以下几个条件：
　　　　第一、编写这样的程序时，具备欲生成的Exe文件
　　　　第二、事先知道欲生成的Exe文件大小



阅读全文……

我们一般是用鼠标按住窗口的标题栏，然后移动窗口，当窗口没有标题栏时，我们可以用下面的方法来移动窗口：

　

在 BAS 文件中声明：



阅读全文……

以下是代码，是我在百度看的，很厉害的哦。


Private Sub form_Click() 
10 szx = 5000: szy = 5000: tr = 20: L = 50: mx = szx / L: my = szy / L: Dim A(1001, 1001): GoTo 110 

相关链接：迷宫 | VB迷宫

阅读全文……

做VB的，经常注册和反注册OCX控件和DLL链

但是，每次都要  "开始"--"运行" --"regsvr32 C:\********\******.ocx"
还真的有点麻烦...


相关链接：注册 | 控件

阅读全文……

''另一方法转换大小写

''其实VB本来就有函数
''UCASE(STRING)   LCASE(STRING)
''来实现大小写的转换

相关链接：转换大小写

阅读全文……