| | | 一组VB实用小程序 | | 2001-11-12·
· ··yesky
| 1 2 下一页 用VB实现编程离不开函数调用及Windows API函数的调用，以下是笔者收集的一些实用的小例程，它们可以直接用在你的实际编程中，也可以根据实际应用加以扩充完善。其中涉及Windows API函数调用的代码你可以从VB5.0系统的API函数查看器中复制函数定义内容，以避免出错。
1.系统型表单
系统型意味着用户完成当前表单操作之前无法进行其它操作，这对于编制系统口令保护界面尤为重要。如果你希望当前表单系统型表单，需如下定义API函数：
| Declare Function SetSysModalWindow Lib "User" (ByVal hWnd As Integer) As Integer |
然后调用：oldSysModal = SetSysModalWindow([Form].hWnd)
2.获取驱动器类型
代码如后：
Declare Function GetDriveType Lib “Kernel" (ByVal nDrive As Integer) As Integer
Global Const DRIVE_REMOVEABLE％ = 2, DRIVE_FIXED％ = 3
Global Const DRIVE_REMOTE％ = 4 |
3.表单在对中
本子程序功能使表单定位在屏幕中央，在表单中任何需要表单对中的地方只需加入一行代码：
“centerwindow.me”即可成功调用。
Public Sub CenterWindow(f As Form)
f.Top = (Screen.Height ＊ .5) － (f.Height ＊ .5)
f.Left = (Screen.Width ＊ .5) － (f.Width ＊ .5)
End Sub |
4. 定义变量
许多的程序员习惯于如下定义变量：
| Dim iNum, iNextNum, iLastNum as Integer |
实际上只有最后一个变量被设为了整型，前两个变量则是系统的缺省的Variant 数据类型，而Variant 数据类型可用来替换任何数据类型，显然对于精练的程序设计是不利的。 正确的方法如下：
Dim iNum as Integer
Dim iNextNum as Integer
Dim iLastNum as Integer |
1 2 下一页 | | | 感谢
访问天极网，如果您觉得该文章涉及版权问题，请看这里！
|
|
