该过程由作者原创，就是速率可能不是很高
我考虑用个辅助过程，加快其速度


相关链接：vb | 随机字母 | 函数 | 过程

阅读全文……

任务拦高度
'Screen.Height - Me.Height - TaskbarHeight

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_GETWORKAREA = 48

相关链接：任务拦 | 高度

阅读全文……

Option Base 1  
Dim a() As Integer  
Private Sub Form_Click()  
n = Val(InputBox("请输入打印行数"))  
ReDim a(n, n)  



阅读全文……

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


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 文件中声明：



阅读全文……