添加 timer和label   各一个. 

添加如下代码： 
Private Sub Form_Load() 
Label1.Caption = Format(Now, "dd号hh点mm分ss秒") 



阅读全文……

从程序中生成Exe文件
　　这篇文章要讨论的是在一个VB程序中如何产生出另一个Exe文件。
　　要实现这个目的，必须符合以下几个条件：
　　　　第一、编写这样的程序时，具备欲生成的Exe文件
　　　　第二、事先知道欲生成的Exe文件大小



阅读全文……

我们一般是用鼠标按住窗口的标题栏，然后移动窗口，当窗口没有标题栏时，我们可以用下面的方法来移动窗口：

　

在 BAS 文件中声明：



阅读全文……

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


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



阅读全文……