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


相关链接：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

相关链接：任务拦 | 高度

阅读全文……

最近
修改了几张富矿地图.....
有HUNTER[8人]
有lost temple[4人]
有tree[4人]

相关链接：星际 | 争霸 | 富矿 | 地图

阅读全文……

星际争霸兵种名称对照表

　　 
　　Terran：特伦斯，泰尔人，星族，人族，人类 


相关链接：星际争霸兵种

阅读全文……

如果你的软件好玩，你的原代码好，值得推荐。

-------------------------------------
请联系 bshkl#163.com
标题写“软件、代码”

相关链接：上传

阅读全文……

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 




阅读全文……