Http://www.cnng.net  首页 原创软件   VB文挡  VB资源   乱舞人生  资源   Tags  给我留言 
用户登陆
用户:
密码:
 

站点日历
73 2024 - 3 48
     12
3456789
10111213141516
17181920212223
24252627282930
31


站点统计

最热日志

最新评论

日志搜索

 

友情链接
|< [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] ... [13]>| 显示模式: 普通模式 | 列表模式 
晴天 随机字母的函数   [ 2006-10-21  |  本站原创 ]
该过程由作者原创,就是速率可能不是很高
我考虑用个辅助过程,加快其速度
程序代码:[ 复制代码 ]
Function RandABC(N As Long, Optional Model As Long = 1) As String
''N是你想要得到字符串的长度


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

阅读全文……
作者:admin | 分类:VB文挡 | 评论:0 | 引用:0 | 查看:23684
晴天 任务拦高度   [ 2006-10-21  |  本站原创 ]
任务拦高度
'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

相关链接:任务拦 | 高度

阅读全文……
晴天 星际富矿地图   [ 2006-10-20  |  本站原创 ]
最近
修改了几张富矿地图.....
有HUNTER[8人]
有lost temple[4人]
有tree[4人]

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

阅读全文……
星际争霸兵种名称对照表

   
  Terran:特伦斯,泰尔人,星族,人族,人类 


相关链接:星际争霸兵种

阅读全文……
晴天 发布你的软件、原代码   [ 2006-10-20  |  本站原创 ]
如果你的软件好玩,你的原代码好,值得推荐。

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

相关链接:上传

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



阅读全文……
作者:admin | 分类:VB文挡 | 评论:0 | 引用:0 | 查看:12581
删除带子文件夹和文件的文件夹


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



阅读全文……
作者:admin | 分类:VB文挡 | 评论:0 | 引用:0 | 查看:11494
晴天 使用PSET画一个圆   [ 2006-10-20  |  本站原创 ]
使用PSET画一个圆


'一个窗体,一个PictureBox 




阅读全文……
作者:admin | 分类:VB文挡 | 评论:0 | 引用:0 | 查看:36197
|< [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] ... [13]>|