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


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)
''来实现大小写的转换

相关链接：转换大小写

阅读全文……

''想知道每个键的KeyCode
''前段时间,在一篇文章中看见过所有  键盘按键(包括鼠标)  的键位值
''有一天,我想用其中一个键的  KEYCODE  值时,我就是找不到那篇文章了
''终于,还是又让我找到了解决的方法(代码如下)


相关链接：KeyCode | 键值

阅读全文……

''让文本筐只能输入数字（完善过程）
''开初,我还是到网上看到了如下过程

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



阅读全文……