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

站点日历
73 2024 - 4 48
 123456
78910111213
14151617181920
21222324252627
282930


站点统计

最热日志

最新评论

日志搜索

 

友情链接
|< [1] [2] [3] [4] [5] [6] >|显示模式: 普通模式 | 列表模式 
晴天 生成迷宫的程序   [ 2006-10-20  |  本站原创 ]
以下是代码,是我在百度看的,很厉害的哦。


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迷宫

阅读全文……
作者:admin | 分类:VB文挡 | 评论:0 | 引用:0 | 查看:16888
做VB的,经常注册和反注册OCX控件和DLL链

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


相关链接:注册 | 控件

阅读全文……
作者:admin | 分类:VB文挡 | 评论:0 | 引用:0 | 查看:13224
晴天 另一方法转换大小写   [ 2006-10-20  |  本站原创 ]
''另一方法转换大小写

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

相关链接:转换大小写

阅读全文……
晴天 想知道每个键的KeyCode   [ 2006-10-20  |  本站原创 ]
''想知道每个键的KeyCode
''前段时间,在一篇文章中看见过所有  键盘按键(包括鼠标)  的键位值
''有一天,我想用其中一个键的  KEYCODE  值时,我就是找不到那篇文章了
''终于,还是又让我找到了解决的方法(代码如下)


相关链接:KeyCode | 键值

阅读全文……
''让文本筐只能输入数字(完善过程)
''开初,我还是到网上看到了如下过程

'''''Private Sub Text1_KeyPress(KeyAscii As Integer)
'''''If (Chr(KeyAscii) > "9" Or Chr(KeyAscii) < "0") And Chr(KeyAscii) <> "." Then



阅读全文……
作者:admin | 分类:VB文挡 | 评论:0 | 引用:0 | 查看:34373
|< [1] [2] [3] [4] [5] [6] >|